Excel vba : Vérification d'un mot saisi

Résolu
zahr kall Messages postés 63 Statut Membre -  
zahr kall Messages postés 63 Statut Membre -
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.
Configuration: Windows XP
Firefox 2.0.0.12

7 réponses

  1.
    LatelyGeek Messages postés 1774 Date d'inscription   Statut Membre Dernière intervention   550
     
    Normalement un
    If ValeurDeLaTextBox Like "a*" Then...
    ça fonctionne?
    0
  2. zahr kall Messages postés 63 Statut Membre 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
    1. zahr kall Messages postés 63 Statut Membre 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
  3. LatelyGeek Messages postés 1774 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
    1. 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
  4. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonsoir,

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

    eric
    0

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

    Posez votre question
  6. LatelyGeek Messages postés 1774 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
    1. zahr kall Messages postés 63 Statut Membre 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
  7. LatelyGeek Messages postés 1774 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
  8. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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
    1. zahr kall Messages postés 63 Statut Membre 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