J'ai lu plusieurs tuto, mais je ne comprends absolument comment marche la fonction RegExp sur VBA.
Je voudrais m'en servir pour conditionner la saisie dans une textbox sous VBA.
Ci-joint un exemple d'un morceau de code que l'on m'a fourni mais qui ne fonctionne pas.
Set RegExDate = New RegExp
With RegExDate
.IgnoreCase = True
.Global = False 'True matches all occurances, False matches the first occurance
.Pattern = "[0-9]{2}/[0-9]{2}/[0-9]{4}"
End With
Sinon, tu peux mettre un calendrier dans le UserForm, mais de mémoire ceux que j'utilisais étaient dépendants de la version d'Excel...et de l'activation de références.
Private Sub TextBox1_Change()
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub
'Ensuite pour vérifier que c'est bien une date qui a été saisie
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(TextBox1) Then
MsgBox "Format incorrect"
TextBox1 = ""
Cancel = True 'laisse le focus au textbox
End If
End Sub
- Messages postés
-
300
- Date d'inscription
- vendredi 15 mars 2013
- Statut
- Membre
- Dernière intervention
- 31 juillet 2018
22- Messages postés
-
1941
- Date d'inscription
- lundi 3 mai 2010
- Statut
- Membre
- Dernière intervention
- 23 août 2020
144- Messages postés
-
300
- Date d'inscription
- vendredi 15 mars 2013
- Statut
- Membre
- Dernière intervention
- 31 juillet 2018
22Je vais plutôt essayer de conditionner comme le propose pikaju.
En tout cas merci pour l'info.