Chercher des Lettres dans une chaine de chiffre Résolu

Question

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.

Acta_6 · Accepted Answer

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.

drik56 · Answer

Tous d'abord merci de ta réponse Acta (je valide meme).
Ensuite si les autres on d'autres soluce je prend aussi
Merci

jrivet · Answer

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

jmfmarques · Answer

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

Chercher des Lettres dans une chaine de chiffre

4 réponses

Votre réponse

Discussions similaires