Rechercher un mot (et pas une chaine) dans une cellule

[phendoc]

Bonjour,
Je rencontre un problème avec la recherche de mots, car les solutions via formules ne détectent que la chaine de caractères.
J'ai en colonne A :
bavaroise
location oise
oise
paris
location rouen
rouennais

En colonne B :
oise
rouen

Je souhaiterais avoir en résultat le statut ok en colonne C si une des valeurs de la colonne B se trouve dans la colonne A.
Pour l'instant j'arrive à détecter seulement la présence de la chaine de caractères, du coup le mot "bavaroise" est en statut ok.
Hors dans l'exemple ci-dessus, il ne devrait pas mettre en ok les cellules contenant bavaroise, paris et rouennais.

j'ai testé avec RechercheV et Equiv, ainsi qu'une formule du genre :
=SI(NB.SI(A1;"*"&"oise"&"*")>=1;"ok";"")
Mais ça ne me détecte pas le mot exact, et pour cette dernière formule, je n'arrive pas à gérer plusieurs mots dans la colonne B.

J'ai finalement trouvé ce code VBA :

If Range("A1").Value Like "*" & Range("A2").Value & "*" Then 
      MsgBox "Le mot " & Cells(2, 1).Value & " existe dans la cellule A1."
End If

Ce code recherche si le mot dans la cellule A2 existe dans la chaîne de mot de la cellule A1.
Je n'arrive pas à l'adapter à mes besoins, je ne connais pas du tout le vba et j'ai essayé en vain de modifier les références de cellules.

Existe-t-il une formule qui permette de gérer mon besoin simplement ?
Merci pour votre aide.

 

[Robert]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Bonjour Phendoc, bonjour le forum,

Formule je sais pas faire, je te propose ce bout de code ci-dessous :

Sub Macro1()
Dim ca As Range 'déclare la variable ca (Cellule de la colonne A)
Dim cb As Range 'déclare la variable cb (Cellule de la colonne B)
 
For Each ca In Range("A1:A" & Cells(Application.Rows.Count, 1).End(xlUp).Row) 'boucle 1 : sur toutes les cellulles éditées ca de la colonne A
    For Each cb In Range("B1:B" & Cells(Application.Rows.Count, 2).End(xlUp).Row) 'boucle 2 : sur toutes les cellulles éditées ca de la colonne B
        'si la cellule ca contient la chaine de caractère de la cellule cb, affiche "Ok" en colonne C
        If ca.Value.Value Like "*" & cb.Value & "*" Then ca.Offset(0, 2).Value = "Ok"
    Next cb 'prochaine cellule de la boucle 2
Next ca 'prochaine cellule de la boucle 1
End Sub

 

[JNP]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Bonjour Pendhoc ,
Seul un RegExp peut détecter si c'est un début ou une fin de mot ... Le code que tu proposes acceptera bavaroise et rouennais ...
Vois si l'exemple joint te convient ...
Bonne journée
Ajout : Salut Robert ...

 

[pierrejean]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Bonjour phendoc

Avec une fonction personnalisée

Salut Robert
Salut Jean Noel

 

[pierrejean]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Re

Autre fonction personnalisée acceptant plusieurs mots

 

[CISCO]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Bonjour

Une possibilités en pièce jointe, avec une formule matricielle (à valider avec ctrl+maj+entrer), en rajoutant des " " devant et derrière le mot recherché pour qu'Excel puisse faire la différence entre rouen et rouennais.

@ plus

 

[phendoc]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Un grand merci à tous pour votre aide

 

[phendoc]

Re : [résolu] Rechercher un mot (et pas une chaine) dans une cellule

Bonjour à tous,

Je reviens à la charge car un comportement n'est pas géré.
La comparaison des mots se fait en effet cellule par cellule et non en définissant la colonne contenant les termes à détecter.
Le but n'est pas de rechercher un nom (simple ou composé) dans une colonne d'expressions, mais de détecter au sein d'une expression (colonne A, onglet Matrice) un des items présents dans une colonne (colonne A, onglet Géolocalisation).

Je vous ai mis un fichier d'exemple qui sera plus parlant.
J'ai pu me servir d'une des solutions données ci-dessus pour générer des statistiques, mais il me reste cette approche à affiner.

Merci à vous
phendoc

 

[JNP]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Re ,
Je ne comprends pas, en dehors de la solution de Robert , toutes les autres fonctionnent, celle de CISCO n'a même plus besoin d'être en matricielle ...
Vois le fichier joint .
Bonne soirée

 

[Robert]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Bonjour le fil, bonjour le forum,

La crevette s'est faite bouffer par la cigogne. Ça m'apprendra à reprendre un code que je ne maîtrise pas (Like) sans le tester ! P... j'ai mal...

 

[phendoc]

Re : Rechercher un mot (et pas une chaine) dans une cellule

En fait ça ne marche toujours pas puisqu'il faut renseigner la valeur dans la formule (ici "oise"), hors dans mon onglet géolocalisation, j'ai potentiellement des centaines de localités (voire même des milliers), du coup il faudrait que la formule prenne en compte la colonne et pas juste la valeur d'une cellule. Du coup avec le dernier exemple, beaucoup d'expressions ont un statut ko alors que la localité est présente dans la colonne de l'onglet "géolocalisations".

 

[JNP]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Re ,
Tu n'avais pas vraiment posé le problème comme ça ...
Alors la deuxième fonction de Pierre-Jean devrait fonctionner, ainsi que la matricielle de CISCO. Sinon, une 2ème version de la mienne

Function MotExact(AChercher As Range, ATester As String) As Boolean 'JNP
Dim Cellule As Range
Application.Volatile
With CreateObject("vbscript.regexp")
    For Each Cellule In AChercher
        .Global = True
        .Pattern = "\b" & Cellule & "\b"
        If .test(ATester) Then MotExact = True
    Next Cellule
End With
End Function

avec en B2

=SI(MotExact(GEOLOCALISATION!$A$2:$A$85;A2);"ok";"ko")

à glisser vers le bas ...
Bonne soirée
Ajout : La matricielle de Cisco à mettre ne B2

=SI(SOMME(ESTNUM(TROUVE(" "&GEOLOCALISATION!$A$2:$A$85&" ";" "&A2&" "))*1)>0;"ok";"ko")

à valider avec Ctrl+Maj+Enter et à glisser vers le bas fonctionne très bien ...

 

[phendoc]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Super !
Merci beaucoup pour l'aide, cette fois ca marche nickel

 

[Monique]

Re : Rechercher un mot (et pas une chaine) dans une cellule

Bonjour tous,

Juste pour alléger (ça ferait une colonne de formules en moins)

Le tableau A21:B26 de l'onglet "Statistiques" n'a pas besoin de la colonne B de l'onglet "GéolocEtc"

En B21 :
=SOMME((ESTNUM(TROUVE(" "&GEOLOCALISATION!$A$2:$A$85&" ";TRANSPOSE(" "&MATRICE!$A$2:$A$39&" "))))*(GEOLOCALISATION!$C$2:$C$85=A21))
à valider par ctrl, maj et entrée

Pour vérifier la somme de B21:B25 :
=SOMME(SI(ESTNUM(TROUVE(" "&GEOLOCALISATION!$A$2:$A$85&" ";TRANSPOSE(" "&MATRICE!$A$2:$A$39&" ")));1))
à valider par ctrl, maj et entrée