NO COMMENT
Source / Exemple :
Option Explicit
Private Sub Command1_Click()
'si vous avez entrer les bonnes valeur le msgbox apparaitra
MsgBox "c'est bon...lol"
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
'si y a des lettre et si la val des chiffres est moins que 18 ou rien
Cancel = Not IsNumeric(Text1.Text) Or Val(Text1.Text) < 18
'si c 'est le cas alors
If Cancel Then
'message ".............."
MsgBox "L'age doit être suppérieur à 17 ans!"
'fin condition
End If
End Sub
Conclusion :
NIVEAU 0
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.