Macro pour croiser deux listes
Fermé
Licorne rose
Messages postés
997
Date d'inscription
mardi 10 juillet 2007
Statut
Membre
Dernière intervention
18 janvier 2024
-
17 juin 2015 à 17:18
Licorne rose Messages postés 997 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 18 janvier 2024 - 21 juil. 2015 à 15:32
Licorne rose Messages postés 997 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 18 janvier 2024 - 21 juil. 2015 à 15:32
A voir également:
- Macro pour croiser deux listes
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Deux ecran pc - Guide
- Tableau croisé dynamique pour les nuls - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
2 réponses
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
524
17 juin 2015 à 23:56
17 juin 2015 à 23:56
Bonsoir,
Essaie cette macro :
A+
Essaie cette macro :
Sub Test()
Dim Plage1 As Range, Plage2 As Range, Cel As Range
Dim LigneC As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
Set Plage1 = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
With Worksheets("Feuil2")
Set Plage2 = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
For Each Cel In Plage1
If Application.CountIf(Plage2, Cel) > 0 Then
LigneC = LigneC + 1
Worksheets("Feuil3").Range("A" & LigneC) = Cel.Value
End If
Next Cel
End Sub
A+
Licorne rose
Messages postés
997
Date d'inscription
mardi 10 juillet 2007
Statut
Membre
Dernière intervention
18 janvier 2024
227
21 juil. 2015 à 15:32
21 juil. 2015 à 15:32
Merci Gyrus,
Je vais essayer ça.
Désolé pour le temps que j'ai mis à répondre, j'ai eu une panne de mon ordi puis d'Internet.
Mille mercis.
Je vais essayer ça.
Désolé pour le temps que j'ai mis à répondre, j'ai eu une panne de mon ordi puis d'Internet.
Mille mercis.