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