incrementation dans un module bouton

Question

Bonjour, 

J'ai créé un bouton sur ma feuille Excel qui me permet de 'ajouter une nouvelle ligne dans mon tableau avec une forme déjà défini. et grâce a ce bouton j'aimerais incrémenter un numéro dans la colonne L . C'est a dire qu'en L5 j'ai mon numéro 1 et J'aimerai que quand je clique sur mon bouton il y ai en L6 le numéro 2 , quand je reclique sur le bouton en L7 le numéro 3 apparaisse etc.  

merci d'avance


Configuration: Windows 7 / Mozilla 11.0

cs_Le Pivert · Answer

Bonjour,

Je n'avais pas compris sur ton dernier post. Si ton dernier post est résolu, cliques sur Résolu, pour que l'on puisse passer à autre chose.

Ce code cherche la plus grande valeur dans une colonne. Il faut qu'il y ait une valeur sinon bug. Il faut mettre ta valeur 1 pour commencer l'incrémentation.

Voici le code

Option Explicit
Private Sub CommandButton1_Click()
 Dim x As Byte
    Dim Nombre As Single
    Dim Ligne As Long
 'récupère la  valeur la plus élevée dans la 1ère colonne
        Nombre = Application.WorksheetFunction.Large(Columns(1), 1)
 'recherche le numéro de ligne pour la valeur trouvée
        Ligne = Application.Match(Nombre, Columns(1), 0)
    Rows(Ligne + 1 & ":" & Ligne + 1).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A" & Ligne + 1).Value = Nombre + 1
End Sub

math74200 · Answer

J'ai mis ma valeur 1 sur la cellule L5 comme tu m'as dis j'ai lancer le bouton et cela m'a mis 42303 dans L6,jai recliqué dessus et j'ai eu la même valeur au lieu d'avoir une suite logique de 1,2,3

cs_Le Pivert · Answer

Ce code cherche la plus grande valeur dans une colonne 

Si tu as des valeurs plus grandes que le 1, cela ne peut pas fonctionner

math74200 · Answer

oui j'ai corrigé le range "A" par le range "L" mais même si je commence à faire mon incrémentation en L6 ça marche? vu que mon tableau commence en ligne 5

cs_Le Pivert · Answer

Tu prends un nouveau classeur, tu mets ce code et tu verras que cela fonctionne. Ensuite a toi de chercher le problème sur ton classeur.
Bonne soirée et à demain

Incrementation dans un module bouton

5 réponses

Discussions similaires

Newsletters