Bonjour le Forum,

dans la partie du code ci-dessous :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
OK = False
Do While OK = False
   d1 = InputBox("Valeur 1")
   If CInt(d1) >= [AD1] And CInt(d1) <= [AT243] Then        'CInt(d1) >= 3 And CInt(d1) <= 242
      OK = True
      d2 = InputBox("Valeur 2", "Titre", [AT243])         'InputBox("Texte ?", "Titre", "Valeur par défaut")
      If CInt(d2) <= CInt(d1) Then                   'If CInt(d2) <= CInt(d1)
         OK = False
         MsgBox "d2 doit être supérieur à d1"
      Else
          OK = True
      End If
   Else
       MsgBox "d1 doit être compris entre " & [AT3] & " et " & [AT243]   '"d1 doit être compris entre 3 et 242"
       OK = False
   End If
Loop
,

1 condition est imposée à "d2" : "d2" >= "d1".
Comment compléter ce code en ajoutant une 2 ème condition pour "d2"; à savoir : "d2"<= [AT243] (condition déjà imposée à "d1") ?

Je vous remercie pour vos réponses et vous souhaite une bonne journée.
Cordialement.

Nonno 94.