2 feuilles - Comparaison de cellules et copie si correspondance
Fermé
crazywork
Messages postés
3
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
20 octobre 2016
-
Modifié par crazywork le 19/10/2016 à 16:00
crazywork Messages postés 3 Date d'inscription mercredi 19 octobre 2016 Statut Membre Dernière intervention 20 octobre 2016 - 20 oct. 2016 à 14:45
crazywork Messages postés 3 Date d'inscription mercredi 19 octobre 2016 Statut Membre Dernière intervention 20 octobre 2016 - 20 oct. 2016 à 14:45
A voir également:
- 2 feuilles - Comparaison de cellules et copie si correspondance
- Copie cachée - Guide
- Super copie - Télécharger - Gestion de fichiers
- Excel additionner des cellules - Guide
- Copie écran samsung - Guide
- Fusionner 2 cellules excel - Guide
1 réponse
crazywork
Messages postés
3
Date d'inscription
mercredi 19 octobre 2016
Statut
Membre
Dernière intervention
20 octobre 2016
19 oct. 2016 à 15:58
19 oct. 2016 à 15:58
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
20 oct. 2016 à 14:45
merci !