obliger selection

[GHISLAIN]

bonjour a tous , et bonnes fetes

j'ai cree un calendriers a l aide d'exemple du forum , et je souhaiterais obliger la selection de 3 dates a la suite et controlant la selection que les dates selectionnees soient obligatoirement superieures a la precedente

apres avoir choisie la premiere date , obliger la selection de la seconde et apres la troisieme

merci a tous de votre aide

amicalament GHISLAIN

 

[PMO2]

Re : obliger selection

Bonjour,

Essayez de remplacer la portion de code concernant
Private Sub CommandButton18_Click()
par le code suivant

Private Sub CommandButton18_Click()
If CommandButton18.Caption = "SELECTION_DATE" Then
TextBox6.Visible = True
TextBox7.Visible = True
TextBox8.Visible = True
For i = 1 To 37
    Controls("ToggleButton" & i) = False
Next i
Else
  '-----
End If

If TextBox6 = "" Then
  TextBox6 = TextBox1
ElseIf TextBox7 = "" And CDate(TextBox1) > CDate(TextBox6) Then
  TextBox7 = TextBox1
ElseIf TextBox8 = "" And CDate(TextBox1) > CDate(TextBox7) Then
  TextBox8 = TextBox1
End If

CommandButton18.Caption = "VALIDER"
End Sub

Cordialement.

 

[GHISLAIN]

Re : obliger selection

bonjour PM02,

je te remerci d'etre passe sur mon fil et d avoir résolu mon probleme

tres amicalement

ghislain