Excel vba : Vérification d'un mot saisi

Résolu/Fermé
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 - 12 mars 2008 à 00:32
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 - 13 mars 2008 à 10:08
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.
A voir également:

7 réponses

LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
12 mars 2008 à 00:43
Normalement un
If ValeurDeLaTextBox Like "a*" Then...
ça fonctionne?
0
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 10
12 mars 2008 à 09:32
ç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!!
0
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 10
12 mars 2008 à 15:05
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
0
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
12 mars 2008 à 16:55
Essaye

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

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


0
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.
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
12 mars 2008 à 20:04
Bonsoir,

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

eric
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
12 mars 2008 à 20:55
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...
0
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 10
13 mars 2008 à 00:37
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...)
0
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
13 mars 2008 à 00:41
Eriiic, tu as une explication, si les feuilles s'appellent "A" tout court? J'aime pas quand je comprends pas...
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
13 mars 2008 à 07:17
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
0
zahr kall Messages postés 62 Date d'inscription mercredi 12 mars 2008 Statut Membre Dernière intervention 28 septembre 2009 10
13 mars 2008 à 10:08
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.
0