Pair ou impair - la suite
Bonjour à tous,
Au cours des dernières semaines j'ai requis votre aide pour une macro. La réponse obtenue etait parfaite pour une augmentation de 2. Maintenant, j'augmente de 4 et la même macro bogue. Voici la macro que j'utilise:
Dim NbreMax As Long
NbreMax=WorksheetFunction.Max(Range"B3:B" & Range("B65536").End(xlUp).row))
Nbremax=NbreMax + (Range("B3") Mod 2 + NbreMax Mod 2)
Range("D3") = Range("B3")
Range("D4").Activate
Do
ActiveCell=ActiveCell.Offset(-1, 0) + 4
ActiveCell.Offset(1, 0).Activate
Loop Until ActiveCell.Offset(-1, 0) = NbreMax
Mon problème est que si la valeur maximale de la colonne B n'est pas un multiple de 4, ma macro ne s'arrête que lorsqu'elle a atteint la ligne 65536 et non quand la valeur de la colonne D est proche de la valeur maximale de la colonne B. Je joins un exemple de mon classeur. J'espère que je suis assez précis dans mes écrits.
Merci beaucoup pour votre aide.
Bonne journée
Bonjour yugguy
Loop Until ActiveCell.Offset(-1, 0) >= NbreMaxCordialement
Jules
Bonjour Jules
Merci beaucoup pour la réponse. Je suis un peu gêné de n'y avoir pas pensé moi mêmne!
J'en ai encore beaucoup à apprendre