Discussion :

[Merryy]

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 :

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

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

[Invité]

Bonjour,

Code :

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

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

[Merryy]

Rien à dire. Parfait

[Igloobel]

Bonjour,

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

ton exemple :

Code :

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

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

[Merryy]

t'as raison , merciii