Comparer 2 chaines de caractères

[Holeshotman]

Bonjour le forum !

Je fais appel à vous dans l'espoir que vous puissiez me donner un petit coup de pouce !

Ce que je souhaite faire est indiqué dans le fichier joint (un exemple concret vaut mieux qu'un long discours )

J'ai essayé d'adapter une macro en utilisant la fonction Instr(), mais quelque chose doit m'échapper ...

Sub RechercheMot()

Dim i As Integer

For i = 1 To Range("A65536").End(xlUp).Row
If InStr(1, Cells(i, 1).Value, Cells(i, 1), vbTextCompare) = 0 Then
        MsgBox ("Ok")
        Exit Sub
    End If
Next i
End Sub

Je vais continuer de rechercher voir si je peux pas faire autrement en attendant vos propositions.
Merci beaucoup !

 

[pierrejean]

Re : Comparer 2 chaines de caractères

Bonjour holehotman

A tester sur plus données

 

[job75]

Re : Comparer 2 chaines de caractères

Bonjour Holeshotman, salut Pierre

On peut aussi utiliser :

Function compare(mot$, a$) As Byte
compare = Sgn(InStr(" " & a & " ", " " & mot & " "))
End Function

Edit : on peut surtout utiliser cette formule en C1 :

=--ESTNUM(CHERCHE(" "&A1&" ";" "&B1&" "))

A+

 

[Holeshotman]

Re : Comparer 2 chaines de caractères

C'est vraiment pile poil ce que je voulais ! Merci beaucoup à vous 2 pour ces propositions de code.

Et si admettons, la liste issue de l'extraction ne se trouve plus en colonne B, mais dans une colonne d'une autre feuille du fichier, pensez-vous que l'on puisse conserver cette fonction ?
Ou faut-il prévoir quelque chose de différent ?

Je vous joins l'exemple associé à mon idée.

Merci encore !

 

[job75]

Re : Comparer 2 chaines de caractères

Re,

Ce n'est plus le même problème, un fil = un problème.

Edit : désolé, les 2 problèmes sont voisins, voir mes posts #3 et 8.

A+

 

[pierrejean]

Re : Comparer 2 chaines de caractères

re

Une solution utilisant la fonction de mon ami Gerard
La feuille 1 se met à jour à l'activation

 

[job75]

Re : Comparer 2 chaines de caractères

Re,

Pour ce problème, pas besoin de VBA, formule en C2 :

=SOMME.SI(Feuil2!F:F;A2;Feuil2!G:G)+SOMME.SI(Feuil2!F:F;A2&" *";Feuil2!G:G)+SOMME.SI(Feuil2!F:F;"* "&A2&" *";Feuil2!G:G)+SOMME.SI(Feuil2!F:F;"* "&A2;Feuil2!G:G)

Les 4 SOMME.SI traitent tous les cas de figure.

Fichier joint.

A+

 

[job75]

Re : Comparer 2 chaines de caractères

Re,

Une autre solution très classique avec SOMMEPROD :

=SOMMEPROD(ESTNUM(CHERCHE(" "&A2&" ";" "&Nom&" "))*Montant)

Voir les noms définis Nom et Montant.

Fichier (2).

Bonne fin de soirée.

 

[job75]

Re : Comparer 2 chaines de caractères

Bonjour le fil, le forum,

J'ai édité mes posts #3 et #5

A+

 

[Holeshotman]

Re : Comparer 2 chaines de caractères

PierreJean, Job75,

Merci beaucoup pour vos réponses ! Je vais essayer de comprendre un peu mieux les solutions proposées
Je pensais pas qu'une formule puisse faire l'affaire, mais en effet c'est aussi simple !

Bonne journée à vous et à l'ensemble du forum !

 

[Holeshotman]

Re : Comparer 2 chaines de caractères

Cela fait un petit moment que j'utilise la fonction DECALER sans vraiment la comprendre ..
C'est le moment de m'y mettre pour la réutiliser moi même par la suite !

 

[Holeshotman]

Re : Comparer 2 chaines de caractères

Bonjour le forum !

PierreJean,

En ce qui concerne votre proposition avec code vba, si en feuille 2, les colonnes F et G ne sont pas cote à cote, faut-il créer un "tablo3" dans le code ? Je suis un peu bloqué par rapport à ça ...

J'ai mis le fichier en pièce jointe pour que ce soit plus clair.

De plus, je ne comprends pas tout et ça me chagrine un peu (création de "dico" et de "scripting.dictionary" ainsi que le UBound et LBound). Je suis preneur d'explications !

Merci beaucoup par avance !