Re : gros problème : comparaison plusieurs colonnes...!!!!!!
Bonsoir tiankoo et tdenfer ,
Je pense avoir compris votre demande:
je vous joint le fichier et le bout de code.
Sub test()
' Feuil1 la base à comparer avec la feuil2
Set F1 = Sheets("Feuil1")
derf1 = F1.Range("A65536").End(xlUp).Row
' Les donner de la feuil2
Set F2 = Sheets("Feuil2")
derf2 = F2.Range("A65536").End(xlUp).Row
' Nettoyage
F2.Range(F2.Cells(1, 5), F2.Cells(derf2, 6)).Clear
' Boucle sur les cellule de la feuil1 de la colonne C
For Each c In F1.Range(F1.Cells(1, 3), F1.Cells(derf1, 3))
' Boucle sur les cellule de la feuil2 de la colonne D
For Each j In F2.Range(F2.Cells(1, 4), F2.Cells(derf2, 4))
'Découpage du resultat de la cellule D (séparateur de texte "espace")
tabl1 = Split(j, " ")
' Boucle en tableau
For k = 0 To UBound(tabl1)
' Condition à respecter
If Right(c, Len(c) - 1) = tabl1(k) Then
Range(j.Address).Activate
With Selection
.Interior.ColorIndex = 4
.Font.Bold = True
End With
Range(j.Address).Offset(, 1) = c & " Existe F1"
' L'autre condition si la quantité de la feuil1 = à la feuil2
If c.Offset(, -2) = j.Offset(, -2) Then
Range(j.Address).Offset(, 2) = c.Offset(, -2) & " Existe F1"
Range(j.Address).Offset(, -2).Activate
With Selection
.Interior.ColorIndex = 4
.Font.Bold = True
End With
End If
Else
End If
Next k
Next j
Next c
End Sub
Au plaisir de vous lir est vous répondre, si vous avez un complément ou une modification
Laurent