Recherche d'un mot dans une chaîne de caractères

[Résolu/Fermé]
Signaler
-
 Siamens_duj -
Bonjour,

J'essaie de faire un code qui me permettrait de chercher dans la colonne E de chaque ligne un mot commençant par "UP-" suivi de 9 caractères dont un tiret et un chiffre à la fin ou par "UT-" suivi de 4 caractères.

J'ai donc fais :

Sub chercher()

Dim I As Integer
Dim Nom As String * 12
Dim PNom As String * 7
Dim Instruc As String * 12
Dim Proc As String * 7
Dim ligne As String

Ligne = "*" & Instruc 'il y a parfois d'autres caractères après Instruc dans la ligne
Instruc = "UP-" & "*" & "-?"
Proc = "UT-" & "*"

I = 1

Do While cells(I, 5).value <> ""

If Nom = Instruc Then
Sheets("Feuil2").Cells(I, 1).value = Nom 'copie le résultat dans la feuille 2 à partir de la cellule A1

Goto fin

Elseif Nom <> Instruc Then
Goto suite

End if

Suite :

If PNom = Proc Then
Sheets("Feuil2").Cells(I, 2).Value = PNom 'Copie le résultat dans la feuille 2 à partir de la cellule B1.
Else: Msgbox "Aucune valeur trouvé"

End if

I = I + 1

Fin:

Loop

End sub


Avec ce code j'obtiens toujours "Aucune valeur trouvé"

Quelqu'un pourrait t-il m'aider svp

2 réponses

Bonjour,

On ne peut pas comparer des chaines avec des caractères joker *?

Dans ton cas une solution serait de coder des fonctions spécialisées.
Par exemple, voici une fonction qui cherche un mot de 12 caractères commençant par "UP-" et de terminant par "-" suivi d'un chiffre

Function cherche_UP(ligneTXT As String) As String
Dim pos As Integer
Dim mot As String
pos = InStr(ligneTXT, "UP-")
cherche_UP = ""
If pos > 0 Then
mot = Mid(ligneTXT, pos, 12)
If Mid(mot, 11, 1) = "-" _
And Asc(Mid(mot, 12, 1)) >= Asc("0") _
And Asc(Mid(mot, 12, 1)) <= Asc("9") Then
cherche_UP = mot
End If
End If
End Function


En voici une autre qui cherche un mot de 7 caractères commençant par "UP-"

Function cherche_UP(ligneTXT As String) As String
Dim pos As Integer
Dim mot As String
pos = InStr(ligneTXT, "UP-")
cherche_UP = ""
If pos > 0 Then
mot = Mid(ligneTXT, pos, 12)
If Mid(mot, 11, 1) = "-" _
And Asc(Mid(mot, 12, 1)) >= Asc("0") _
And Asc(Mid(mot, 12, 1)) <= Asc("9") Then
cherche_UP = mot
End If
End If
End Function


Il faut placer ces fonctions dans un module
Voici une procédure test qui montre comment appeler ces fonctions

Sub test()
Dim ligneTEXTE As String 'texte à scanner
Dim RES As String 'resultat

'appel fonction cherche_UP
ligneTEXTE = "blabla UP-xxxxxxx-3 blablabla"
RES = cherche_UP(ligneTEXTE)
If RES <> "" Then
MsgBox "test UP- trouvé -> " & RES
Else
MsgBox "test UP- pas trouvé"
End If

'appel fonction cherche_UT
ligneTEXTE = "blabla UT-xxxxxxx-3 blablabla"
RES = cherche_UT(ligneTEXTE)
If RES <> "" Then
MsgBox "test UT- trouvé -> " & RES
Else
MsgBox "test UT- pas trouvé"
End If

End Sub
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65492 internautes nous ont dit merci ce mois-ci

> Siamens_duj
Puis-je voir ce que tu as écrit?

A+
Dans un module comme vous me l'avez dit :

Function cherche_UP(ligneTXT As String) As String
Dim pos As Integer
Dim mot As String
pos = InStr(ligneTXT, "UP-")
cherche_UP = ""
If pos > 0 Then
mot = Mid(ligneTXT, pos, 12)
If Mid(mot, 11, 1) = "-" _
And Asc(Mid(mot, 12, 1)) >= Asc("0") _
And Asc(Mid(mot, 12, 1)) <= Asc("9") Then
cherche_UP = mot
End If
End If
End Function


Function cherche_UT(ligneTXT As String) As String
Dim pos As Integer
Dim mot As String
pos = InStr(ligneTXT, "UT-")
cherche_UT = ""
If pos > 0 Then
mot = Mid(ligneTXT, pos, 7)
If Mid(mot, 6, 1) <> "-" _
And Asc(Mid(mot, 7, 1)) >= Asc("0") _
And Asc(Mid(mot, 7, 1)) <= Asc("9") Then
cherche_UT = mot
End If
End If
End Function


Et dans "Thisworkbook"

Sub Recherche()
Dim ligneTEXTE As String 'texte à scanner
Dim RES As String 'resultat

'appel fonction cherche_UT
ligneTEXTE = "blabla UT-xxxx blablabla"
RES = cherche_UT(ligneTEXTE)
If RES <> "" Then
MsgBox "test UT- trouvé -> " & RES
Else
MsgBox "test UT- pas trouvé"
End If

'appel fonction cherche_UP
ligneTEXTE = "blabla UP-xxxxxxx-x blablabla"
RES = cherche_UP(ligneTEXTE)
If RES <> "" Then
MsgBox "test UP- trouvé -> " & RES
Else
MsgBox "test UP- pas trouvé"
End If

End Sub
> Siamens_duj
Tu n'as pas bien recopié

'appel fonction cherche_UP
ligneTEXTE = "blabla UP-xxxxxxx-x blablabla"

Il faut tester avec un chiffre à la 12è position
'appel fonction cherche_UP
ligneTEXTE = "blabla UP-xxxxxxx-5 blablabla"
puisque le 12ème caractère doit etre un chiffre

pour ma part j'ai fait un faux copié collé pour la fonction cherche_UT

voici la bonne
Function cherche_UT(ligneTXT As String) As String
Dim pos As Integer
Dim mot As String
MsgBox ligneTXT
pos = InStr(ligneTXT, "UT-")
cherche_UT = ""
If pos > 0 Then
mot = Mid(ligneTXT, pos, 7)
If Len(mot) = 7 Then
cherche_UT = mot
End If
End If
End Function
Bonjour et merci pour votre réponse.

Votre code fonctionne, j'ai cependant retiré le chiffre en dernière position car on sait que le code UP doit faire 12 caractères et j'ai fais en sorte qu'il me copie le résultat dans la feuil2.

Aussi, j'aimerais parcourir toutes les cellules de ma feuil1 et copier le résultat qu'il trouve en feuil2 colonne A pour les UP et en colonne B pour les UT.

J'ai fais un code mais il ne me copie que ce qu'il trouve dans la cellule E de la première ligne.

Comment puis-je faire ?
> Mosca
En fait c'est bon j'ai réussi !

Un grand merci.
Messages postés
15832
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
5 août 2021
1 514
Bonjour,

A quel moment ces deux variables prennent une valeur:

Dim Nom As String * 12
Dim PNom As String * 7
Bonjour,

Et merci pour votre réponse.
Apres quelques remarques j'ai modifié mon code.

Cependant lorsque je donne une valeur à Nom il n'accepte pas ceci : "UP-" & "*" & "-?"
Je dois donc lui attribuer une valeur en dur alors que Nom n'a pas toujours la même valeur.
Idem pour PNom.
Aussi, la position de la sous chaîne n'est jamais la même, et là aussi j'ai du lui attribuer une position en dur.
Mon code ne fonctionne donc que pour recherche UNE unique valeur dans UNE unique cellule, ce qui n'est pas du tout ce que je veux faire mais je n'arrive pas à faire autrement.

Je vous joins mon code :

Sub Cherche()

Dim PlageDeRecherche As Range
Dim Nom As String * 12
Dim PNom As String * 7
Dim i As Integer
Dim j As Integer

j = 1
'For i = 1 To 2000
i = 1954

Nom = "UP-M-03454-1"
PNom = "UT-" & "????"

Do While Cells(i, 5).Value <> ""

Set PlageDeRecherche = Sheets("Feuil1").Cells(i, 5)

If InStr(PlageDeRecherche, Nom) = 14 Then

' MsgBox "trouvé"

Sheets("Feuil2").Cells(j, 1).Value = Nom
GoTo fin

Else

GoTo Suite

End If

Suite:

If InStr(PlageDeRecherche, PNom) = 1 Then

MsgBox "IP trouvé"

Sheets("Feuil2").Cells(j, 2).Value = PNom

Else

MsgBox " Aucun UT ou UP trouvé"

i = i + 1

End If

fin:
j = j + 1
Loop

'Next i

End Sub


Merci par avance pour votre aide.
Messages postés
15832
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
5 août 2021
1 514 > Siamens_duj
Re,

Pouvez-vous mettre un fichier avec des donnees significatives et une explication claire de ce que voue voulez obtenir pour que nous puissions comprendre ?????
>
Messages postés
15832
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
5 août 2021

Je dispose d'un classeur Excel composé d'une "feuil1" qui comporte des données en ligne dont les données qui m'intéressent en colonne E.

Par exemple =
A1 = La petite
B1 = Fille de ce
C1 = Monsieur aime
D1 = Aimer les
E1 = Poneys de numéro "UP-M-03434-1"

Les données dans les autres cellules ne m'intéressent pas car elles peuvent être les même que dans d'autres cellules.

Par contre, le numéro qui m'intéresse en "E" n'est pas toujours à la même position et la longueur de la chaîne n'est pas toujours la même.

Le numéro n'est jamais le même dans d'autre cellule mais commence toujours par "UP-" fini par "- un chiffre" et comporte en tout 12 caractères ou commence par "UT-" suivi de 4 caractères.

J'espère avoir été un peu plus claire, j'avoue avoir un peu de mal à expliquer.

Je vous remercie tout de même pour votre aide.