Excel vba : Vérification d'un mot saisi

Résolu
zahr kall Messages postés 62 Date d'inscription   Statut Membre Dernière intervention   -  
zahr kall Messages postés 62 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   550
 
Normalement un
If ValeurDeLaTextBox Like "a*" Then...
ça fonctionne?
0
zahr kall Messages postés 62 Date d'inscription   Statut Membre Dernière intervention   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!!
0
zahr kall Messages postés 62 Date d'inscription   Statut Membre Dernière intervention   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
0
LatelyGeek Messages postés 1758 Date d'inscription   Statut Membre Dernière intervention   550
 
Essaye

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

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


0
zahr kall
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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   Statut Membre Dernière intervention   550
 
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   Statut Membre Dernière intervention   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...)
0
LatelyGeek Messages postés 1758 Date d'inscription   Statut Membre Dernière intervention   550
 
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 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 276
 
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   Statut Membre Dernière intervention   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.
0