Macro copier/coller ligne si plusieurs conditions (actualisation onglet à onglet
Fermé
InitialesVBA
Messages postés
2
Date d'inscription
mercredi 18 août 2021
Statut
Membre
Dernière intervention
19 août 2021
-
Modifié le 18 août 2021 à 11:53
InitialesVBA Messages postés 2 Date d'inscription mercredi 18 août 2021 Statut Membre Dernière intervention 19 août 2021 - 19 août 2021 à 12:00
InitialesVBA Messages postés 2 Date d'inscription mercredi 18 août 2021 Statut Membre Dernière intervention 19 août 2021 - 19 août 2021 à 12:00
A voir également:
- Macro copier/coller ligne si plusieurs conditions (actualisation onglet à onglet
- Rouvrir onglet fermé - Guide
- Aller à la ligne excel - Guide
- Copier coller pdf - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Historique copier-coller android - Guide
1 réponse
InitialesVBA
Messages postés
2
Date d'inscription
mercredi 18 août 2021
Statut
Membre
Dernière intervention
19 août 2021
Modifié le 19 août 2021 à 12:09
Modifié le 19 août 2021 à 12:09
Bonjour,
Après avoir continué à chercher et à force d'essais, je laisse ici le code pour ceux qui se retrouveront dans la même situation :
Après avoir continué à chercher et à force d'essais, je laisse ici le code pour ceux qui se retrouveront dans la même situation :
Sub CCM()
' Test 1 est le classeur variable
' Test 2 est le classeur fixe
For j = 1 To 12 ' "j" corresponds aux lignes du classeur variable
For i = 1 To 12 ' "i" corresponds aux lignes du classeur fixe
If Trim(Worksheets("TEST1").Cells(j, 1).Value) = vbNullString Then Exit For 'si la cellule intérrogée est vide, on passe à la suivante
If Worksheets("TEST1").Cells(j, 1).Value = Worksheets("TEST2").Cells(i, 1).Value Then 'cherche la correspondance entre les deux cellules similaires dans les deux classeurs
Worksheets("TEST2").Cells(i, 2).Value = Worksheets("TEST1").Cells(j, 2).Value 'copie la valeur du classeur variable dans le classeur fixe pour les colonnes "B"variable à "B"fixe
Worksheets("TEST2").Cells(i, 3).Value = Worksheets("TEST1").Cells(j, 3).Value
Worksheets("TEST2").Cells(i, 4).Value = Worksheets("TEST1").Cells(j, 4).Value ' idem pour les colonnes "D" et "D"
End If
Next
Next
End Sub