Chiffre pair ou impair

[yugguy]

Bonjour à tous,
J'ai une série de valeur dans la colonne F. J'ai aussi la macro suivante:

Range("H3") = Range("F3")
Range("H4").Activate
Do
ActiveCell=ActiveCell.Offset(-1, 0) + 2
ActiveCell.Offset(1, 0).Activate
Loop Until ActiveCell.Offset(-1, 0) = WorksheetFunction.Max(Range("F3:F" & Range("F65536").Ensd(xlUp).Row))

Mon problème est que si la valeur dans H3 est un chiffre impair et que le maximum dans la colonne F est un chiffre pair, la macro ne fonctionne plus. Cela arrive aussi si la valeur de H3 est un chiffre pair et que le max est un chiffre impair. Je cherche une commande qui dirait que si H3 et la valeur max sont différents (pair/impair ou impair/pair), il faut ajouter 1 à la valeur max.

Merci beaucoup pour votre aide

Bonne journée

[Banzai64]

Bonjour

Ne connaissant pas ton programme

Une solution pas trop simple
Avec les tests pas de souci

Code: Tout sélectionner

Sub test()
Dim NbreMax As Long
 
  NbreMax = WorksheetFunction.Max(Range("F3:F" & Range("F65536").End(xlUp).Row))
  NbreMax = NbreMax + (Range("F3") Mod 2 + NbreMax Mod 2)

  Range("H3") = Range("F3")
  Range("H4").Activate
  Do
    ActiveCell = ActiveCell.Offset(-1, 0) + 2
    ActiveCell.Offset(1, 0).Activate
  Loop Until ActiveCell.Offset(-1, 0) = NbreMax
End Sub
 

[yugguy]

Merci,

Cela fonctionne super bien. Je l'ai adapté à mon classeur et c'est parfait.

Encore merci