Discussion :

[inessita]

Bonjour à tous

Je dispose dans une feuille excelle de deux colonnes remplies avec des noms d'entreprises.

Je cherche à croiser les noms sachant que le plus souvent les libellé ne sont pas exactement les memes.

Je souhaite chercher les 5 premiers caracteres de chaque cellules de la premiere colonne dans la deuxieme colonne et sortir les numero les lignes dans lesquelle les 5 caracteres recherché aparaissent ( en debut, au milieu ou à la fin de la chaine de caractere de la cellule de la deuxieme colonne)

Je ne sais pas si l ennoncé est clair..Le pb semble trés simple , la solution ne m es pas evidente du tout..et encore moins le programme VBA!!!

Je suis trés débutante en VBA
Merci d'avance de votre aide

[Gorfael]

Salut inessita
sur un module général :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function RECH(Cel_Val As Range, Plg As Range) As String
Dim Cel As Range
Application.Volatile
If Cel_Val.Count > 1 Then
    RECH = "#Paramétre 1 trop grand#"
    Exit Function
End If
For Each Cel In Plg
    If InStr(1, Cel, Left(Cel_Val, 5), 1) > 0 Then
        RECH = RECH & IIf(Len(RECH) > 0, ", ", "") & Cel.Row
    End If
Next Cel
End Function

Tu l'utilises comme les fonctions d'Excel (catégorie Personnalisée)
si tu as des questions, n'hésites pas
A+