carlos

Bonsoir à tous

voila g cette macro qui me transforme une suite de 1 à 28 chiffres inscrit dans une colonne Plage en 7 paquets de 4 numerotés 1,1,1,1 puis2,2,2,2 etc.... jusqu'a 7

For i = 1 To 8
For Each cellMD In Range('g4:g44')
If cellMD <> Empty And cellMD <> 'A' And cellMD <= 4* i And cellMD >= 4 * (i - 1) _
Then cellMD.Offset(0, 0).Value = 1 * i

Next
Next i

Quand il y a un 'A' dans une cellule de cette plage , il passe à la cellMD suivante.
mon souci c'est que si il y a un 'A' dans la cellule alors je n'ai que 3 chiffres de 2 par exemple au lieu d'en avoir 4 car une boucle i est passée.

Comment faire pour que si il y a un 'A' alors cette boucle i ne perde pas son tour .

g essayé i = i - 1 mais ca va pas ...

Merci