obliger selection

GHISLAIN · 27 Décembre 2011

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 · 29 Décembre 2011

Re : obliger selection

Bonjour,

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

Code:

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 · 30 Décembre 2011

Re : obliger selection

bonjour PM02,

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

tres amicalement

ghislain

obliger selection

GHISLAIN

XLDnaute Impliqué

Pièces jointes

PMO2

XLDnaute Accro

GHISLAIN

XLDnaute Impliqué

Discussions similaires

obliger selection

GHISLAIN

XLDnaute Impliqué

Pièces jointes

PMO2

XLDnaute Accro

GHISLAIN

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency