Discussion :

[Mut]

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

[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.

[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....

[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 ?

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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

??

[jmfmarques]

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

[jmfmarques]

Alors :
pour la 1ère :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?...)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[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.
EDIT : Isnumeric (aide en ligne, te facilitera encore plus la tâche)
par contre :

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

n'est pas clair

[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 !

[SfJ5Rpw8]

tiens ... voilà ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=ExtraitNombre(A2)

[jmfmarques]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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 !

[jmfmarques]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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