1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Sub copiermatrice()
Dim i As Integer, j As Integer
Dim DerLigi As Long
Dim DerLigj As Long
DerLigi = Sheets("f1").Cells(rows(1).Cells.Count, 1).End(xlUp).Row 'Récupère la dernière ligne remplie
DerLigj = Sheets("f2").Cells(rows(1).Cells.Count, 1).End(xlUp).Row 'Récupère la dernière ligne remplie
For i = 1 To DerLigi 'Itération de la ligne 1 à la derniere ligne pour le Classeur 1
For j = 1 To DerLigj 'Itération de la ligne 1 à la derniere ligne pour le Classeur 2
'Si la cellule(i,1) est egale à la cellule(j,1) alors
'On copie la valeur de la cellule (j,2) dans la cellule (i,2)
If Sheets("F1").Cells(i, 1).Value = _
Sheets("F2").Cells(j, 1).Value Then
Sheets("F1").Cells(i, 2).Value = Sheets("F2").Cells(j, 2).Value
Sheets("F1").Cells(i, 3).Value = Sheets("F2").Cells(j, 3).Value
j = DerLigj 'Nous permet de sortir de la boucle une fois la valeur trouvée
Else
'Sinon on met la cellule (i,2) à ???
Sheets("F1").Cells(i, 2).Value = "???"
End If
Next
Next
End Sub |
Partager