Bonjour, J'ai deux fichier porte et test 3
Dans les deux fichiers j'ai une colonne No equipement.
Ensuite j'ai crée une macro pour qu'elle aille comparer cette colonne dans les deux fichiers et si les cellules sont identiques alors, la valeur de porte(de fichier porte) est copier dans la cellule correspondant au même no équipement dans le fichier(test3).
voir pj pour les deux fichiers. Mais mon code ne fonctionne pas. Quelqu'un aurait une idée.
Dans les deux fichiers j'ai une colonne No equipement.
Ensuite j'ai crée une macro pour qu'elle aille comparer cette colonne dans les deux fichiers et si les cellules sont identiques alors, la valeur de porte(de fichier porte) est copier dans la cellule correspondant au même no équipement dans le fichier(test3).
Code:
Private Sub CommandButton1_Click()
Set wbdest = ActiveWorkbook
Workbooks.Open ("C:\Desktop\test excel\porte.xlsx")
Worksheets("Feuil1").Activate
k = ActiveSheet.UsedRange.Rows.Count 'je compte le numero de ligne et la conserve dans k pour que je puisse parcourir toutes les cellules'
For i = 1 To k
If Worksheets("Feuil1").Cells(i, 1).Value = wbdest.Cells(i, 1).Value Then
wbdest.Cells(i, 3) = Worksheets("Feuil1").Cells(i, 2).Value
End If
Next i
End Sub
voir pj pour les deux fichiers. Mais mon code ne fonctionne pas. Quelqu'un aurait une idée.