Incrémenter colonne.

[Hulk]

Bonjour les amis,

Terrible, je n'arrive pas à incrémenter une colonne de + 1... J'en deviens tout vert 😀

Je m'explique :

Avec un bouton :

1er click A2 = 1
2ème A3 = 2
3ème A4 = 3
4ème A5 = 4
5ème A6 = 5
Etc...

J'ai tenté avec pas mal de chose, notamment ça :

Private Sub CommandButton1_Click()
    
    Dim c As Variant

    c = Range("A65000").End(xlUp).Row + 1
    Cells(c, 1) = Cells(c, 1) + 1

End Sub

Mais il met que des 1 😕

Pouvez-vous me venir en aide svp...

Merci d'avance !

 

[Pierrot93]

Re : Incrémenter colonne.

Bonjour Hulk

modifie peut être comme suit :

Cells(c, 1) = Cells(c -1 , 1) + 1

bonne journée
@+

 

[Hulk]

Re : Incrémenter colonne.

Re,

Mais oui... Comme ça c'est bon

Private Sub CommandButton1_Click()
    
    Dim c As Variant

    c = Range("A65000").End(xlUp).Row + 1
    Cells(c, 1) = Cells([COLOR="Red"][B]c - 1[/B][/COLOR], 1) + 1

End Sub

Sorry pour le dérangement !

Bon week à tous !

EDIT : Slt Pierrot, oui je venais de m'en apercevoir !

Merci quand même !