Excel vba : Vérification d'un mot saisi

[Résolu/Fermé]
Signaler
Messages postés
62
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
28 septembre 2009
-
Messages postés
62
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
28 septembre 2009
-
Bonjour,
Je débute en vba et je cherche à interdire tous les mots saisis dans une textbox commençant par une autre lettre que "A".
Ex : "Arrivée", "Adrénaline" ou même "azerty" c'est bon, mais "babaorum" ou "haricot" c'est pas bon donc msgbox "impossible".

J'ai essayé avec des macros du style if ... like ... then, mais ça m'interdit tout!!
Donc, si quelqu'un peut m'aider, ce serait vraiment sympa.
Merci de m'avoir lu.

7 réponses

Messages postés
1712
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
16 janvier 2020
532
Normalement un
If ValeurDeLaTextBox Like "a*" Then...
ça fonctionne?
Messages postés
62
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
28 septembre 2009
10
ça fonctionne, mais je voulais le faire dans le sens inverse. Une petite manip. et hop!! ça marche parfaitement!!
Merci beaucoup pour l'aide, ça fait vraiment plaisir.

Voic ce que j'ai fait :

If Nom.Value Like "a*" Then

If IsNumeric(vendeur) Then

MsgBox ("attention : vendeur inconnu")
ElseIf ....

........

End If

Else

MsgBox "Attention : vous êtes sur l'onglet des clients dont le nom commence par la lettre A"

End If


Et voilà. Encore merci!!
Messages postés
62
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
28 septembre 2009
10
Bon, je relance le problème légèrement différent maintenant.

J'ai 26 onglets correspondant chacun à une lettre de l'alphabet.
Je voudrai savoir si ma formule actuelle :

If Nom.Value Like "a*" Then

If IsNumeric(vendeur) Then

sgBox ("attention : vendeur inconnu")
ElseIf ....

........

End If

Else

MsgBox "Attention : vous êtes sur l'onglet des clients dont le nom commence par la lettre A"

End If



peut s'adapter onglet par onglet. Je pense qu'il faudrait changer Nom.Value Like "a*" par un truc du genre nom.activesheet + "*". Mais là, je ne suis aps assez doué pour trouver tout seul et l'aide d'excel ne m'a pas vraiment aidé...
Merci d'avance pour vos réponses
Messages postés
1712
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
16 janvier 2020
532
Essaye

If Nom.Value Like ActiveSheet.Name & "*" Then

T'étais pas si loin, tu aurais fini par trouver!!!


J'ai essayé mais ça marche pas.
mais merci quand même pour le coup de main. (j'ai essayé en mettant "+" ou "et", mais je crois que je n'aurai jamais pensé à "&"!!).
Je regarderai ça plus en détail demain au boulot.
Messages postés
24146
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2021
6 847
Bonsoir,

Left(ActiveSheet.Name, 1) & "*" ?

eric
Messages postés
1712
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
16 janvier 2020
532
Ah oui, je suis partie du fait que ta feuille s'appelle "A" tout court. Si c'est "A-Clients", c'est Eriiic qui a raison!!! Parce que chez moi, ça fonctionne...
Messages postés
62
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
28 septembre 2009
10
Alors en fait, chaque feuille se nomme "A", "B", etc jusqu'à "Z".
J'ai donc essayé avec If Nom.Value Like Left(ActiveSheet.Name, 1) & "*" Then, et... ça marche!!!!!
Trop trop bien. merci beaucoup c'est vraiment génial!!! (vivement que je fasse une formation excel...)
Messages postés
1712
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
16 janvier 2020
532
Eriiic, tu as une explication, si les feuilles s'appellent "A" tout court? J'aime pas quand je comprends pas...
Messages postés
24146
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
30 juillet 2021
6 847
Bonjour tout le monde,

heuuu, non aucune explication.
En fait, ayant lu rapidement, je pensais classeur et non feuille... :-)
Peut-être une erreur de saisie la 1ère fois ?
Ca serait interessant que zahr kall re-teste.

eric
Messages postés
62
Date d'inscription
mercredi 12 mars 2008
Statut
Membre
Dernière intervention
28 septembre 2009
10
Bonjour à tous,
Bon j'ai retesté au boulot et ça marche presque super bien. Il reste le problème de prise en compte que la lettre soit majuscule ou non, mais ça, je devrai y arriver seul!!!
merci encore pour tout et bonne continuation.