Test sur chaine de caractères en vba excel
Résolu/Fermé
Nospam54
Messages postés
152
Date d'inscription
jeudi 16 avril 2009
Statut
Membre
Dernière intervention
15 novembre 2017
-
10 mai 2012 à 15:53
Nospam54 Messages postés 152 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 15 novembre 2017 - 11 mai 2012 à 16:14
Nospam54 Messages postés 152 Date d'inscription jeudi 16 avril 2009 Statut Membre Dernière intervention 15 novembre 2017 - 11 mai 2012 à 16:14
A voir également:
- Vba chaine de caractère contient
- Caractère ascii - Guide
- Caractere speciaux - Guide
- Caractère spéciaux - Guide
- Chaine tnt gratuite sur mobile - Guide
4 réponses
bonjour,
la fonction Mid(chaine, position de départ, longueur) vous permet de récupérer le caractère que vous voulez.
un Select Case vous permet de définir les actions pour les valeurs trouvées
A+
la fonction Mid(chaine, position de départ, longueur) vous permet de récupérer le caractère que vous voulez.
MonCar = Mid(Textbox1.Value, 4, 1)
un Select Case vous permet de définir les actions pour les valeurs trouvées
Select Case MonCar
Case "D", "C", "F", "I", "V"
'définir les actions
Case Else ' Autres valeurs.
MsgBox "Pas Bon"
.....
End Select
A+
lermite222
Messages postés
8724
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
11 mai 2012 à 09:41
11 mai 2012 à 09:41
Bonjour,
A+
MsgBox "Le 4ème caractère n'est pas bon !", vbExclamation
With txtFactPart1
.SetFocus
.SelStart = 4
.SelLength = 1
End With
A+
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
11 mai 2012 à 10:33
11 mai 2012 à 10:33
Bonjour
Une autre manière de voir les choses
Une autre manière de voir les choses
Private Sub TextBox1_Change()
Dim seuil As Byte, valeur As String, ctrlcar As String * 1
seuil = Len(TextBox1)
If seuil = 4 Then
valeur = Left(TextBox1, 3)
ctrlcar = Mid(TextBox1, 4)
Select Case ctrlcar
Case "D", "C", "F", "I", "V"
Case Else
MsgBox "Le 4ème caractèr: """ & ctrlcar & """ n'est pas bon !", vbExclamation
TextBox1 = valeur
End Select
End If
End Sub
Nospam54
Messages postés
152
Date d'inscription
jeudi 16 avril 2009
Statut
Membre
Dernière intervention
15 novembre 2017
13
11 mai 2012 à 16:14
11 mai 2012 à 16:14
Merci à vous, ça marche et je vais pouvoir développer mes tests !
11 mai 2012 à 08:24
Ça marche nickel !
Petite question subsidiaire... après ce contrôle, et si ce fameux 4ème caractère saisi n'est pas bon, je remets le focus sur le textbox de façon à ce que l'utilisateur corrige.
Mais, tout le monde le sait, les utilisateurs sont paresseux... Je voudrais donc qu'après le focus sur le textbox le curseur ne sélectionne que le 4ème caractère.
Est-ce possible ?
Voici mon code :
Private Sub txtFactPart1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) Cancel = True ctrlCar = Mid(txtFactPart1.Value, 4, 1) Select Case ctrlCar Case "D", "C", "F", "I", "V" Cancel = False Case Else MsgBox "Le 4ème caractère n'est pas bon !", vbExclamation With txtFactPart1 .SetFocus .SelStart = 0 .SelLength = Len(txtFactPart1.Text) End With End Select End SubMerci d'avance !