Incrementation des cellule en vba

[chaelie2015]

Bonjour forum
je cherche un code (en VBA) pour incrémenter les cellules de la colonne A si la colonne C est non vide
si C4 <>"" alors A4=1
si C5<>"" et A4<>"" alors A5=2
si C6<>"" et A5<>"" alors A6 = 3
et ainsi de suite
SALUTATIONS

 

[youky(BJ)]

Re : Incrementation des cellule en vba

Bonjour essaie ceci,
Le fichier est vraiment mis au minimum, qlq données auraient permis de tester.
Bruno

Sub mymacro()
If [C4] <> "" Then [A4] = 1: n = 1
For k = 5 To [A65000].End(3).Row
If Cells(k, 1) <> "" And Cells(k - 1, 3) <> "" Then
n = n + 1: Cells(k, 1) = n
End If
Next
End Sub