Discussion :

[eidb96]

Bonjour à tous !

Je suis nouveau sur VBA. Je souhaite à l'aide d'un bouton incrémenter une colonne à partir de la ligne 6.

J'ai essayé d'utiliser la boucle While mais je n'y arrive pas ...

Merci d'avance pour vos réponses !

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
for i= 6 to 10
next

[Igloobel]

Bonjour,

Peux-tu être plus explicite

... incrémenter une colonne à partir de la ligne 6.

[eidb96]

Merci pour vos réponses !

Enfaite quand je clique sur un bouton, je veux que la cellule A6 affiche 1, quand je reclique sur le bouton, la cellule A7 affiche 2, etc ...

Désolé si je ne suis pas très explicite je suis novice sur VBA :p

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click() Pos = Cells(Cells.Rows.Count, "A").End(xlUp).Row - 6
 If Pos < 0 Then Pos = -1
Range("A6").Offset(Pos + 1) = Range("A6").Offset(Pos) + 1
End Sub

[eidb96]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click() Pos = Cells(Cells.Rows.Count, "A").End(xlUp).Row - 6
 If Pos < 0 Then Pos = -1
Range("A6").Offset(Pos + 1) = Range("A6").Offset(Pos) + 1
End Sub

J'ai essayé mais ça bloque au niveau de : Range("A6").Offset(Pos + 1) = Range("A6").Offset(Pos) + 1