A voir également:
- 2 feuilles - Comparaison de cellules et copie si correspondance
- Supercopier 2 - Télécharger - Gestion de fichiers
- Copie cachée - Guide
- Comment faire un livret avec des feuilles a4 - Guide
- Copie écran samsung - Guide
- Fusionner 2 cellules excel - Guide
1 réponse
J'ai essayé de faire quelque chose mais ca ne fonctionne pas :
Sub RechercheCopie()
Dim Nom As String
Dim Condition As Boolean
Dim i, j As Integer
Sheets(1).Select
i = 1
Do
Nom = Sheets(1).Cells(i, 3).Value
j = 1
Condition = False
Do
If Nom = Sheets(2).Cells(j, 1).Value Then
Sheets(1).Cells(i, 6).Value = Sheets(2).Cells(j, 6).Value
Condition = True
End If
j = j + 1
Loop While (Sheets(2).Cells(j - 1, 1).Value <> "" And Condition = False)
i = i + 1
Loop While Sheets(1).Cells(i - 1, 1).Value <> ""
End Sub
Sub RechercheCopie()
Dim Nom As String
Dim Condition As Boolean
Dim i, j As Integer
Sheets(1).Select
i = 1
Do
Nom = Sheets(1).Cells(i, 3).Value
j = 1
Condition = False
Do
If Nom = Sheets(2).Cells(j, 1).Value Then
Sheets(1).Cells(i, 6).Value = Sheets(2).Cells(j, 6).Value
Condition = True
End If
j = j + 1
Loop While (Sheets(2).Cells(j - 1, 1).Value <> "" And Condition = False)
i = i + 1
Loop While Sheets(1).Cells(i - 1, 1).Value <> ""
End Sub
merci !