Chiffre pair ou impair

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

Bonjour

Ne connaissant pas ton programme

Une solution pas trop simple

Avec les tests pas de souci

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

Merci,

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

Encore merci