test VBA reconnaissance texte inclus dans un autre

[ChrisExcel]

Bonjour !

je me demande s'il existe en VBA une solution pour reconnaître un texte contenu dans un autre !

exemple fichier joint

je cherche dans la colonne A si chacune des cellules contient l'un des textes de la colonne D
si oui je voudrais inscrire dans la colonne B le texte de D qui correspond

mais on peut avoir des pièges genre "Orange" et "Orange Dijon" qui doivent demeurer distincts !!

Merci par avance aux "grosses têtes" !

 

[david84]

Re : test VBA reconnaissance texte inclus dans un autre

Bonjour,

mais on peut avoir des pièges genre "Orange" et qui doivent demeurer distincts !!

Qu'entends-tu par là ?
"Orange" sera obligatoirement trouvé dans "Orange Dijon".
Teste simplement

=NB.SI($A$2:$A$6;"*"&D2&"*")

et tu le constateras.
Je pense qu'il faudrait que tu établisses clairement les "règles du jeu".
A+

 

[Hervé]

Re : test VBA reconnaissance texte inclus dans un autre

salut

une tentative de réponse à travers ce code qui colore les cellules suivant les désignations à trouver :

Public Sub toto()
Dim i As Integer, j As Integer

For i = 2 To 6
    For j = 2 To 4
        If InStr(1, Cells(i, 1), Cells(j, 4)) > 1 Then
            Cells(i, 1).Interior.ColorIndex = i + 10
            Cells(j, 4).Interior.ColorIndex = i + 10
        End If
    Next j
Next i
End Sub

salut

edit : salut david

 

[gilbert_RGI]

Re : test VBA reconnaissance texte inclus dans un autre

Bonjour

un autre test

 

[ChrisExcel]

Re : test VBA reconnaissance texte inclus dans un autre

Bonjour ! vous avez raison ! il faudra donc éviter les doublons ! merci !

 

[ChrisExcel]

Re : test VBA reconnaissance texte inclus dans un autre

bonjour ! merci !

 

[ChrisExcel]

Re : test VBA reconnaissance texte inclus dans un autre

bonjour ! merci ! je teste !

 

[ChrisExcel]

Re : test VBA reconnaissance texte inclus dans un autre

hello gilbert ! je viens de tester tout à fait OK ! merci !