Incrementation des cellule en vba

chaelie2015 · 29 Décembre 2015

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) · 29 Décembre 2015

Re : Incrementation des cellule en vba

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

Code:

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

Incrementation des cellule en vba

chaelie2015

XLDnaute Accro

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Discussions similaires

Incrementation des cellule en vba

chaelie2015

XLDnaute Accro

Pièces jointes

youky(BJ)

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency