Incrémenter Colonne sous VBA

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 ! :)

Code:

---

1 2	for i= 6 to 10 next

---

Bonjour,

Peux-tu être plus explicite

Citation:

---

Envoyé par eidb96

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

---

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

Code:

---

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

---

Code:

---

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