Chercher des Lettres dans une chaine de chiffre [Résolu]

Signaler
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008
-
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
-
Bonjour,

Voici une petite requete:
J'ai une cellule qui contien 'n' chiffre 2 lettre puis 'm' chiffre.
Ces 2 lettres sont FA ou GR ou MT ... (a la limite il n'y a que 5 ou 6 possibilité)
Je voudrais poser une condition qui, si cette cellule possède "FA" execute ... et sinon ...
Pour le If/Else je me débrouille mais pour chercher les 2 lettres je bute.
sachant que 'n' est variable et 'm' aussi avec aucun lien (je croi) entre 'n' et 'm'.

Merci de votre aide.

4 réponses

Messages postés
29
Date d'inscription
mercredi 25 avril 2007
Statut
Membre
Dernière intervention
22 avril 2008

Bonjour drik56

Si tu connais la chaine de 2 lettres que tu cherches, tu peux utiliser la fonction Instr

Dans ton cas, tu peux par exemple écrire
iPosLetter=Instr(1,sTaChaine,"FA") où 1 est la position dans sTaChaine a laquelle tu vas commencer la recherche, sTaChaine est le contenu de ta cellule est "FA" (ou autres) les lettres que tu cherches.

Dans ce cas, si "FA" n'est pas trouvé dans sTaChaine, iPosLetter=0. Sinon, iPosLetter vaudra la position a laquelle a été trouvé le F de "FA".
J'espère que ca t'aidera.
Messages postés
127
Date d'inscription
mercredi 16 avril 2008
Statut
Membre
Dernière intervention
8 juillet 2008

Tous d'abord merci de ta réponse Acta (je valide meme).
Ensuite si les autres on d'autres soluce je prend aussi
Merci
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
56
Salut,
La solution de [auteur/ACTA6/1045139.aspx Acta_6] me semble la plus adaptée et la plus simple à mettre en place. Pas besoin à mon avis que tu attendes d'autres solutions (même si c'est sûr qu'ils y en a)
Il est vrai qu'il te faudra peu etre faire un boucle pour tester tes différentes lettre.

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
7668
Date d'inscription
samedi 5 novembre 2005
Statut
Membre
Dernière intervention
22 août 2014
26
Bonjour,

Juste pour une approche différente et (en même temps) "paramétrer" mes couples de lettres

Private Sub Command1_Click()
  mescouples = "/FA/GR/MT/"
  toto = "023456GR1234"
  titi = "1" & toto 'j'ajoute ce "1" pour éviter une errueur avec un 0 devant (puisque j'utilise Val)
  titi = Left(Mid(titi, Len(Str(Val(titi)))), 2)
  If InStr(mescouples, "/" & titi & "/") Then
     MsgBox "bingo ===>> " & titi
  Else
    MsgBox "pas de couple cherché" & titi
  End If
End Sub