Comparaison de colonnes avec texte et compteur

Bonjour à tous,

Malgré mes recherches je n'ai pas trouvé la solution qui fonctionne à mon petit souci.

Il existe sans doute cette solution sur un forum mais j'a dû la louper...

Voici mon problème :

J'ai une feuille Excel avec deux colonnes (A et B), dont l'une contient des cellules remplies de chaînes de caractères mélangeant des lettres et des chiffres (la colonne A), et l'autre contenant des cellules remplies de la même manière, mais dont certaines cellules contiennent la valeur d'une cellule en A, mais à l'intérieur d'une autre chaîne de caractères plus grande.

Exemple :

A

A1234Q

2345

PMN852

ERFGHU

B

PINVA1234Quyg

UYG54

526PMN852

2345

J'ai besoin d'une formule qui initialise un compteur du nombre de cellules dans la colonne B, qui contiennent la valeur d'une cellule de A. Là par exemple il y en a 3 dans B.

Merci d'avance.

Bonjour,

Un exemple avec une fonction personnalisée (VBA).

Cdlt.

Public Function fnCount(rng As Range, rng2 As Range) As Long
Dim Cell As Range, Cell2 As Range, N As Long
    For Each Cell2 In rng2
        If Not IsEmpty(Cell2) Then
            For Each Cell In rng
                If Not IsEmpty(Cell) Then
                    If InStr(1, Cell2.Value, Cell.Value) > 0 Then N = N + 1
                End If
            Next Cell
        End If
    Next Cell2
    fnCount = N
End Function

bonjour,

edit bonjour Jean-Eric, je remarque tu avais déjà fourni une réponse ...

solution via une fonction personnalisée, à mettre dans un module

Function nbmots(motsachercher, mots)
    compteur = 0
    For Each motachercher In motsachercher
        For Each mot In mots
            If InStr(mot, motachercher) <> 0 Then compteur = compteur + 1
        Next mot
    Next motachercher
    nbmots = compteur
End Function

appel de la fonction

=nbmots(plage des mots à chercher, plage des mots dans lesquels chercher)

exemple

=nbmots(A2:A5,B2:B5)

Merci à vous, Jean-Eric et h2so4

Effectivement j'ai bien mon résultat qui s'affiche et qui est cohérent avec ce que j'attendais.

Je met le sujet en résolu.