incrémenter de 1 cellules sous condition

[rounil09]

Bonsoir la liste,

Malgré mes essais et mes recherches en ligne, je n'arrive pas à trouver une macro VBA qui incrémente de 1 les cellules B3 et suivantes jusqu'à la dernière ligne pleine de la colonne C.
Je demande donc votre aide.

Je joins un petit fichier de principe.

 

[camarchepas]

Re : incrémenter de 1 cellules sous condition

Bonjour ,

une solution possible, code à copier dans un module standard

Sub Incremente()
Dim Increment As Long
Increment = Range("B2")

Do
Increment = Increment + 1
Range("B" & Increment + 1) = Increment
Loop Until Range("C" & Increment + 2) = ""

End Sub

 

[rounil09]

Re : incrémenter de 1 cellules sous condition

Merci de ton aide, camarchepas, et de la rapidité de ta réponse.
La macro fonctionne nickel.