Discussion :

[helpmi]

Bonjour à tous.

Voici mon problème.
J'ai un fichier excel avec un certain nombre de référence dans 2 colonnes.
Je souhaiterais comparer ces 2 colonnes et renvoyer dans une (ou plusieurs) autre(s) colonne(s) les valeurs des cellules de la 2eme colonnes qui ont une chaine commune d'au moins 10 caractères avec une des cellules de la première colonne.
Il faudrait vraiment que quel que soit l'emplacement de la chaine de 10 caractères minimum dans les valeurs des cellules 1 et 2 les correspondances soient renvoyées.
Et il y a des cas où il peut y avoir plusieurs valeurs répondant aux critères dans la colonne 2, Il faudrait que les différentes réponses se mettent sur la même ligne dans la colonne suivante.

Petite précision : le fichier que je dois traiter comporte 5644 lignes en colonne A et 6297 lignes en colonne B.

Merci d'avance de votre aide.
Cdt.

[Philippe Tulliez]

Bonjour,
En Excel, les fonctions de la catégorie Texte devraient t'aider et particulièrement GAUCHE, EXCACT et bien entendu la fonction de la catégorie Logique SI
En VBA, If et Left

[helpmi]

Bonjour Philippe.

En fait j'ai déjà essayé pas mal de choses au niveau formule mais le problème c'est que les chaines communes à trouver peuvent se trouver au début, au milieu ou à la fin.
On m'avait déjà aiguillé vers une formule matricielle de ce type :

Code :

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

{=SIERREUR(INDEX($B$1:$B$22;PETITE.VALEUR(SI(SIERREUR(CHERCHE($A2;$B$1:$B$22)>0;0);LIGNE($B$1:$B$22));COLONNES($A:A)));"")}

Mais le fichier est un peu lourd pour ça et je n'arrive pas à l'implanter dans mon fichier (impossible de l'incrémenter correctement et je n'ai que les valeurs de la première ligne qui apparaissent :/) et je ne comprends pas tout dans cette formule car je ne vois pas apparaitre le critère correspondant aux chaines de 10 caractères minimum.
Cette formule peut-elle vraiment fonctionner et si oui est-il possible de la remplacer par du vba (que je ne maitrise pas) ?
Merci Philippe.

[unparia]

Bonjour
ce que je lis :

le fichier que je dois traiter comporte 5644 lignes en colonne A et 6297 lignes en colonne B.

signifie pour moi :
1) si les chaînes ont une longueur moyenne de 15 caractères --->> 177 701 340 comparaisons minimum (et encore -->> en utilisant l'opérateur Like, qui aide) !
2) si leur longueur moyenne est de 18 caractères ----->> 284 322 144 comparaisons minimum
j'ose à peine faire allusion à des chaînes de plus grande longueur moyenne.
Possible, oui, mais il va falloir mettre plusieurs galériens aux rames. Et même ainsi, être extrêmement patient

[helpmi]

Rerebonjour.

On m'a aidé d'un autre coté et voici ce qui fonctionne (précisons que j'avais zappé dans ma demande que pour la colonne A les chaines de 11 caractères se trouvait toujours au début, ce qui réduit les calculs quand même)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub doublons()
    With Sheets("feuil1")
        dl = .Cells(Rows.Count, 1).End(xlUp).Row
        Set plage = .Cells(1, 2).Resize(dl)
        For i = 2 To dl
            sv = Left(.Cells(i, 1), 11)
            Set re = plage.Find(sv, lookat:=xlPart)
            If Not re Is Nothing Then
                fa = re.Address
                col = 2
                Do
                    col = col + 1
                    .Cells(i, col) = re.Value
                    Set re = plage.FindNext(re)
                Loop Until re.Address = fa
            End If
        Next i
    End With
End Sub

ça peut mettre quelques minutes à traiter mais ça marche .
En tout cas merci d'avoir pris le temps d'étudier la question.
Cdt

[unparia]

C'est déjà moins douloureux avec ces nouvelles précisions.
Voici, pour ton info, ce que tu aurais dû faire (et que j'avais préparé) si les choses avaient été celles énoncées par ton message initial :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim dlb As Long, dla As Long, k As Long, ch As String, sch As String, m As Integer, n As Long
dlb = Range("B" & Rows.Count).End(xlUp).Row
dla = Range("A" & Rows.Count).End(xlUp).Row
For k = 1 To dlb
  ch = Range("B" & k).Text
    For m = 1 To Len(ch) - 10
      sch = Mid(ch, m, 10)
      For n = 1 To dla
        If InStr(Range("A" & n).Text, sch) > o Then MsgBox sch & "présent en ligne " & k & " de colonne B & ligne " & n & " de colonne A"
      Next
    Next
Next

[patricktoulon]

bonjour
un exemple codé a main levée
ici on compare la colonne 1 et 2 et si un left 10 se trouve dans les 2 on la met dans la colonne 4

Code :

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

1
2
3
4
5
6
7
8
 
Sub testx()
    For Each cel2 In Range(Cells(1, 2), Cells(Rows.Count, 2).End(xlUp)).Cells
        For Each cel1 In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).Cells
            If Left(cel1, 10) Like Left(cel2, 10) Then Cells(Rows.Count, 4).End(xlUp).Offset(1) = Union(cel1, cel2).Address & " = " & cel1
        Next
    Next
End Sub