[VBA-E] Vérifier si une suite de caractère est présente

Version imprimable

17/03/2006, 18h37
Mut

[VBA-E] Vérifier si une suite de caractère est présente

Bonjour je souhaiterais savoir s'il existe (je crois que oui) une fonction qui permet de savoir si une suite de caractère est présente dans une cellule.

Par exemple, j'ai une cellule qui contient une phrase :

"ceci est un exemple...."

et moi je souhaiterais extraire "est un" de cette cellule....mais comment le détecter et l'extraire ??

Merci
17/03/2006, 19h00
jmfmarques

En te servant de Instr pour savoir si ta chaîne de caractère existe dans ton texte
En te servant de Right, Left, Mid, Len pour extraire, etc...
Voir tout celà dans l'aide en ligne, avec exemples...
C'est facile. :?
17/03/2006, 19h22
Mut

Merci ! :)

Le probleme est pour extraire vu que le texte n'est jamais pareil et que je dois vérifier dans une colonne entière.en fait j'ai une phrase et dedans je peux avoir la chaine que je recherche.Mais de cette chaine là je ne veux que ce qui suit. exemple :

AAAAAAAAA AAA AA XXX YYY AAAA BBBB
AAABBB XXX YYY CCCC GGGG
RRRRGGGG XXXYY UUUUUKLKLLLLLL

Voici par exemple trois lignes différentes; je souhaiterais récupérer la chaine de caractère YY ou YYY à chaque fois.....alors je vois pas trop comment faire....
17/03/2006, 19h30
SfJ5Rpw8

essai d'être plus clair sur la chaine que tu ve récupérer et ces caractéristiques... , comment tu fais pour la reconnaitre ?
17/03/2006, 19h37
jmfmarques
Ben !

Ceci à condition de ne pas avoir de Y ailleurs que dans ta chaine de YYY, sinon c'est sans solution.....

Instr te permet d'avoir la position de la 1ère lettre de ta chaine YYY
Mid tout ce qui vient depuis ce début, jusqu'à la fin (appelons cela titi)
ensuite, ma foi, il va te falloir faire une boucle, puisque tu ne sais pas où s'arrête ta chaîne YY..
du genre :
Code:

1 2 3 4 5 toto = "" tant que left(titi, 1) = "Y" toto = toto & left(titi, 1) titi = mid(titi, 2) fin de tant que
Mais, puisque tu as également lu Len dans l'aide en ligne, rien ne t'empêche de faire autrement ... du genre :
Code:

1 2 3 4 5 6 7 For I = 1 to len(titi) si mid(titi, 1) = "Y" alors toto = toto & mid(titi,i,1) sinon exit for fin des si next I
ou ce que tu peux inventer d'autre toi-même...
C'est facile :)
17/03/2006, 19h44
SfJ5Rpw8

j'ai toujours pas compris ce que vous voulez faire ... ton code il fait quoi jmfmarques ??
si titi ne contient pas d'Y :arrow: TOTO = ""
si titi ne contient pas 1 'Y :arrow: TOTO = "Y"
si titi ne contient pas 2 'Y ou plus :arrow: TOTO = "YY"

??
17/03/2006, 19h45
jmfmarques

s'ilo n'y a pas de Y, instr... = 0 et titi = "" !

Alors :
pour la 1ère :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Command1_Click()
  aaa = "AAAAAAAAA AAA AA XXX YYY AAAA BBBB"
 On Error Resume Next
  titi = Mid(aaa, (InStr(aaa, "Y")))
  err.clear
  toto = ""
  While Left(titi, 1) = "Y"
    toto = toto & Left(titi, 1)
    titi = Mid(titi, 2)
  Wend
  MsgBox toto
End Sub

testé.
Reviens avec la 2ème...

que voilà (testée aussi) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
aaa = "AAAAAAAAA AAA AA XXX YYY AAAA BBBB"
On Error Resume Next
titi = Mid(aaa, (InStr(aaa, "Y")))
err.clear
For I = 1 To Len(titi)
  If Mid(titi, I, 1) = "Y" Then
    toto = toto & Mid(titi, I, 1)
  Else
    Exit For
  End If
Next I
MsgBox toto
End Sub

On en veut d'autres (et des meilleures ?...) :lol:

ALLEZ, une 3ème (que je n'aime pas pour plusieurs raisons, même si elle parait plus facile) :

Code:

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
  aaa = "AAAAAAAAA AAA AA YYY CCC AAAA BBBB"
  toto = ""
  For i = 1 To Len(aaa)
    If Mid(aaa, i, 1) = "Y" Then toto = toto & Mid(aaa, i, 1)
  Next
  MsgBox toto
End Sub

20/03/2006, 18h16
Mut

Merci d'avoir répondu !!

J'arrive à m'en approcher mais ce n'est pas encore tout a fait ça....je vais réexpliquer en essayant d'etre plus clair

J'ai une colonne avec des cellules remplies avec un texte (pas le meme dans toutes les cellules)

ex :

en A1 : abcd5246ef ghijkl TEST 1 mnop545qrst
en A2 : uvw541x ghijkl TEST 23 yzpjpjj6454mj
en A3 : zgsdg56454qsg ghijkl TEST 154 sgdsgs644d

etc...

et donc ce que je souhaiterais faire c'est de récupérer le chiffre après la chaine de caractère "TEST" qui elle ne change pas.

En résumé, je cherche à extraire le numéro dans une autre cellule qui se trouve après le mot TEST.

Merci
20/03/2006, 18h35
jmfmarques

Alors là...
Tu avais peut-être mal exposé ton problème, mais n'en parlons plus...
L'examen des seuls exemples ci-dessus te montre bien comment utiliser Instr, Mid, etc....
Ce sont ces méthodes que tu dois mettre en oeuvre pour faire ce que tu veux qui, de surcroît, est plus simple encore après tes explications nouvelles. :lol:
EDIT : Isnumeric (aide en ligne, te facilitera encore plus la tâche)
par contre :

Citation:

je cherche à extraire le numéro dans une autre cellule qui se trouve après le mot TEST

n'est pas clair
20/03/2006, 22h11
Mut

en fait après le texte "TEST" se trouve un numéro qui se compose de 2 ou 3 chiffres et c'est lui que je dois récupérer et mettre dans une cellule à part....

Je vais essayer de voir avec tes exemples ci dessus si je peux faire quelque chose :)

Merci beaucoup !

tiens ... voilà ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function ExtraitNombre(st As String)
 Dim iPos As Integer
 Dim stCh As String ' Chaine cherché
 stCh = "TEST"
 iPos = InStr(1, st, stCh) + Len(stCh)
 ExtraitNombre = Val(Mid(st, iPos, 4)) 'Récupére les 4 cractéres suivant le mot TEST...
 
 End Function
 
Sub test()
     MsgBox ExtraitNombre("abcd5246ef ghijkl TEST 1 mnop545qrst ")
     MsgBox ExtraitNombre("uvw541x ghijkl TEST 23 yzpjpjj6454mj ")
     MsgBox ExtraitNombre("zgsdg56454qsg ghijkl TEST 154 sgdsgs644d ")
 End Sub

tu peu aussi placer une formule en B2...

Code:

=ExtraitNombre(A2)

Héla ! ce ne sont pas toujours 4 caractères ...

Regarde, Mut : bien qu'il y ait mieux à faire, je vais me contenter, tout simplement, d'utiliser l'un ou l'autre des 2 1ers exemples donnés par mon message précédent (quand tu nous a fait travailler sur des Y). Je vais simplement remplacer "Y" par "TEST" pour évaluer titi. Bien sur : je vais faire démarrer titi non pas au début mais à la fin (+ 4) du mot "TEST" et, bien sur, je vais ôter l'espace éventuellement présent (Trim)
et plus bas, faire mon test avec Isnumeric au lieu de le faire sur "Y", ce qui donne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Command1_Click() aaa = "zgsdg56454qsg ghijkl TEST 154 sgdsgs644d" On Error Resume Next titi = Trim(Mid(aaa, (InStr(aaa, "TEST") + 4))) Err.Clear toto = "" While IsNumeric(Left(titi, 1)) toto = toto & Left(titi, 1) titi = Mid(titi, 2) Wend MsgBox toto End Sub
Voilà, Mut et je répète qu'il y a mieux à faire. J'ai voulu ici simplement te montrer que tu avais déjà ce qu'il fallait entre les mains.

21/03/2006, 09h03
Mut

Merci beaucoup a vous deux !

bbil en effet le nombre de caractère peut évoluer, mais je garde quand meme le bout de code qui pourra certainement me servir :)

jmfmarques ton code fonctionne très bien! c'est parfait merci beaucoup !

Merci pour ton merci, mais... :lol:
Si après ta chaine numérique à extraire, le mot suivant ne risque pas de commencer par un chiffre...
Il suffit de :
Code:

1 2 3 4 5 6 aaa = "zgsdg56454qsg ghijkl TEST 154 sgdsgs644d" on error resume next '---- pour le cas où le mot "TEST" serait absent !!! toto = Str(Val(Trim(Mid(aaa, (InStr(aaa, "TEST") + 4))))) '---str uniquement si tu veux retransformer en texte, sinon : pas nécessaire err.clear msgbox toto
:lol: :lol: