Nombre si contient
Bonjour,
J'ai deux plages de cellules avec des données différentes, mais certains mots à l'intérieur des celulles dont identiques.
J'ai besoin d'une formule qui me "flaguera" les cellules aux mots communs. (les colonnes peuvent être dans deux feuilles différentes)
Ex
Col A Col B Formule
Abc holding inc Clinique dentaire ABC 2
Aéroport Calédonie Restaurant le bonbec 0
ABC chantier
Merci d'avance!
On ne voit pas dans l'exemple ce qui est en A, en B et le résultat souhaité !
une idée
C'est exactement ça, mais ça ne marche pas chez moi, pourquoi?
Les colonnes B et C sont ce que je souhaiterai faire (la C serait parfaite mais je doute....)
La E est le test de ta formule.
Merci!
ci-joint
Je ne comprends pas votre formule, si j'ajoute des mots, ça ne me donne aucun résultat alors que ça devrait...
Ton fichier est en calcul manuel, faire F9
La comparaison est sensible à la casse
Ok pour le manuel, je le savais, pour le sensible à la casse.... on va faire avec
J'essaie de le coller sur mon vrai fichier, et ça me fait encore #NOM?, j'aimerai savoir comment tu as fait pour ajuster la formule et qu'elle fonctionne vraiment....
Je ne peux pas envoyer le fichier, ce sont des données confidentielles....
Merci!
Edit: je viens de comprendre comment ça fonctionne, Est-ce que tu sais si on peut le rendre non sensible à la casse? Merci d'avance et merci beaucoup pour tous tes conseils!
Zimae a écrit :J'essaie de le coller sur mon vrai fichier, et ça me fait encore #NOM?, j'aimerai savoir comment tu as fait pour ajuster la formule et qu'elle fonctionne vraiment....
Edit: je viens de comprendre comment ça fonctionne, Est-ce que tu sais si on peut le rendre non sensible à la casse? Merci d'avance et merci beaucoup pour tous tes conseils!
Oui il fallait aussi importer le code qui définit cette fonction personnalisée
Pour la casse, ok, il faudrait tout déclarer en minuscules dans ce cas
Function correspond(cellule As Range, plage As Range) As String
Dim cel As Range
Dim tabtexte1, tabtexte2
tabtexte1 = Split(cellule, " ")
correspond = ""
For Each cel In plage
tabtexte2 = Split(cel, " ")
For i = 0 To UBound(tabtexte1)
For j = 0 To UBound(tabtexte2)
If UCase(tabtexte1(i)) = UCase(tabtexte2(j)) Then
If Not UCase(correspond) Like "*" & UCase(tabtexte2(j)) & "*" Then
correspond = correspond & (tabtexte2(j)) & " "
End If
End If
Next
Next
Next
End Function