incrementer une cellule par 1

Bonjour tt le monde ,
j'ai un petit soucis avec mon code, ce que je veux c'est incrémenter les valeur suivi de la cellule A ( ex: A12= 1 , automatiquement quant je clique sur A13 reçois 2) et sa continue comma ça, j'ai essayé avec ce code qui ne marche plus :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test1()   Dim k As Integer With Worksheets("Suivi OS") .Cells(1, 12).Value = 1 For k = 12 To 5000 ActiveCell.Offset(1, k).Value = .Cells(1, k).Value + 1 k = k + 1 Next End With   End Sub

---

Bonjour,

Code:

---

1 2 3 4 5

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 11 Then If Target.Row = 12 Then Cells(Target.Row, 1) = 1 Else Cells(Target.Row, 1) = Cells(Target.Row, 1).Offset(-1) + 1 End If End Sub

---

Rien à dire. Parfait :bravo:

Bonjour,

dans une boucle de type : For ... Next le "Next" inclu déja +1

ton exemple :

Code:

---

1 2 3 4 5 6 7

' là tu démares à 12 For k = 12 To 5000 ActiveCell.Offset(1, k).Value = .Cells(1, k).Value + 1 ' là tu es à 13 k = k + 1 ' là comme Next fait + 1 tu seras à 14 quand tu remonteras au for et je pense que c'est pas ça que tu veux Next

---

t'as raison , merciii :D