Valider les données dans un userform

[siocnarf]

Bonjour,

Je suis à créer un Userform. Dans celui-ci l'utilisateur doit saisir une date et un intervalle interrogation.

Ainsi si un utilisateur sélectionne le jour 24, je ne veux pas qu'il puisse saisir un intervalle de 25. Il pourrait saisir un intervalle de 0 à 23.

Comment puis-je faire en sorte que lorsqu'il saisit une valeur d'intervalle trop grande, le code le vérifie dans le code du userform et que l'utilisateur puisse corriger la valeur??

Private Sub cboIntervalle_Change()
Dim cIntervalle

cIntervalle = cboIntervalle.Value

End Sub

Private Sub cboJour_Change()
Dim cJour
cJour = cboJour.Value
'MsgBox (cJour)
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub cmdCancel_Click()
    Canceled = True
    Hide
End Sub

Private Sub cmdOK_Click()
    Canceled = False
    Hide
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _
  CloseMode As Integer)
  If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "SVP, utilisez le bouton!"
  End If
End Sub

Sub UserForm_Initialize()
Dim i As Byte
cboJour.Value = Day(Date)
cboIntervalle.Value = 0

'cboJour.List = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31)
'cboIntervalle.List = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 21, 23, 24, 25, 26, 27, 28, 29, 30)

For i = 1 To Day(Date)
    cboJour.AddItem i
Next

For i = 0 To Day(Date) - 1
    cboIntervalle.AddItem i
Next

End Sub

Merci,

 

[jp14]

Re : Valider les données dans un userform

Bonjour

Il faut écrire dans les procédures cboIntervalle_Change() et cboJour_Change()

if cboJou.listindex = -1 then exit sub
if cboIntervalle.listindex = -1 then exit sub
If cbyte(cboJour) > cbyte(cboIntervalle) then MsgBox ("erreur")
Ensuite remettre à blanc le combobox

A tester

JP

 

[siocnarf]

Re : Valider les données dans un userform

Merci, je vais effectuer un test.

À quoi correspond ".listindex"?

Merci

 

[jp14]

Re : Valider les données dans un userform

Bonsoir

Listindex a la valeur -1 si on n'a pas sélectionné une valeur, sa valeur corespond à la position de l"élément sélectionné 0 pour le premier élément.

JP