Regrouper des lignes qui contiennent le même mot.

[Fabien-michel]

Bonjour a tous


Je suis en ce moment a la recherche d'un moyen de regrouper des données ( de fournisseurs). Le problème c'est que pour un même fournisseur je peux avoir plusieurs dénomination .
Ex le fournisseur "l'oréal"
je peut avoir ;

L'oréal distribution
S.A L'oréal
Maquillage L'oréal
Etc

je voudrais les regrouper sous une seule dénomination ; l'oréal afin de faire le bilan des progression de l'année.
évidement ce n'est qu'un fournisseur parmi des centaines et tous faire a la main s'avère être très long.

Merci D'avance et bonne journée.


F.B.

 

[Bebere]

Re : Regrouper des lignes qui contiennent le même mot.

Bonjour Fabien-Michel
un fichier - de 50k .xls ou .zip serait le bienvenu
à bientôt

 

[BOISGONTIER]

Re : Regrouper des lignes qui contiennent le même mot.

Bonjour,

Voir PJ

Function proches2(phrase, champ As Range)
  exclus = Array("le", "les", "des", "sur", "elle", "est", "ses", "s.a.")
  a = champ
  b = Split(phrase, " ")
  temp = ""
  For Each c In a
   For Each mot In b
     If IsError(Application.Match(LCase(mot), exclus, 0)) Then
       If InStr(LCase(c), LCase(mot)) > 0 Then
         If Not InStr(temp, c) > 0 Then
           temp = temp & c & "-"
         End If
       End If
     End If
   Next mot
  Next c
  proches2 = Left(temp, Len(temp) - 1)
End Function

En matriciel:

Function proches3(phrase, champ As Range)
  exclus = Array("le", "les", "des", "sur", "elle", "est", "ses", "s.a.")
  Dim d(1 To 5)
  a = champ
  b = Split(phrase, " ")
  n = 0
  For Each c In a
   For Each mot In b
     If IsError(Application.Match(LCase(mot), exclus, 0)) Then
       If InStr(LCase(c), LCase(mot)) > 0 Then
         If IsError(Application.Match(LCase(c), d, 0)) Then
           n = n + 1
           d(n) = c
         End If
       End If
     End If
   Next mot
  Next c
  proches3 = d
End Function

JB
Formation Excel VBA JB

 

[Fabien-michel]

Re : Regrouper des lignes qui contiennent le même mot.

Re Bonjour


Tout d'abord merci pour la vitesse de votre réponse, c'est vraiment sympa de pas se sentir seul devant un problème.


Dans l'idée ca me semble tout a fais correspondre avec ce que je recherche.En plus j'aurais aimé faire la somme des CA et les moyennes des progressions( je ne peux malheureusement envoyer le fichier original mais je peux faire un fichier type comme dans l'exemple.)
Par contre j'ai ouvert les fichiers avec les macros mais je n'ai pas bien saisi comment je pouvais les utiliser sur mes fichiers...

F.B.

 

[BOISGONTIER]

Re : Regrouper des lignes qui contiennent le même mot.

Voir PJ

JB