Bonjour,
merci bcp vous étes vraiment gentille , sos j ai un soucis
j ai regrouper tout les fichier par ligne mais il peut pas faire la comparaison tant que le fichier n est pas dérougrouper
j ai éssayé qu'est ce qui ya sur internet mais ca marche pas sil vous plait vous avait pas une solution a me proposé ??
il faut qui dégroupe la liste pour la comparer cest le mm code
Sub Mise_à_jour()
Dim za As Workbook
Dim PlgFE1 As Range
Dim PlgFE2 As Range
Dim Cel1 As Range
Dim Cel2 As Range
Dim chemin_globale As String
chemin_globale = "c:\za.xlsx"
'teste si le classeur est ouvert...
On Error Resume Next
Set za = Workbooks("za.xlsx")
'...si non, l'ouvre
If Err.Number <> 0 Then Set za = Workbooks.Open(chemin_globale)
'supprime le gestionnaire d'erreur
On Error GoTo 0
With za.Worksheets("Feuil1"): Set PlgFE1 = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With
With Workbooks("zo.xlsm").Worksheets("Documents"): Set PlgFE2 = .Range(.Cells(3, 3), .Cells(.Rows.Count, 3).End(xlUp)): End With
' degrouper le fichier et puis il fait ca
For Each Cel1 In PlgFE1
For Each Cel2 In PlgFE2
If Cel1.Value = Cel2.Value Then Cel2.Offset(, 1).Value = Cel1.Offset(, 2).Value
Next Cel2
Next Cel1
End Sub