Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro pour faire deux listes sans doublons...

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Christian0258

XLDnaute Accro
Bonsoir à tous,

Je souhaiterais votre aide, afin d'écrire une macro pour faire 2 listes sans doublons en fonction de 2 critères...

voir fichier...

Merci pour votre aide si précieuse.

Bien à vous,
Christian
 

Pièces jointes

Re : Macro pour faire deux listes sans doublons...

bjr,
Bebere peux-tu me donner quelques explications sur ton code ?
Tu écris :
Set M = CreateObject("Scripting.Dictionary") : je ne connais pas, après quelques recherches sur google je crois avoir compris qu'il s'agit d'une sorte de tableau , exact ? et donc tu alimentes ce "tableau" avec
If C = "MIDI" Then
If Not M.Exists(C.Offset(, 3).Value) Then M.Add C.Offset(, 3).Value, C.Offset(, 3).Value
End If
If C = "SOIR" Then
If Not S.Exists(C.Offset(, 3).Value) Then S.Add C.Offset(, 3).Value, C.Offset(, 3).Value
End If
---------
A la fin tu écris :

Set D = Nothing: Set M = Nothing
Application.ScreenUpdating = True
ca ne serait pas plutot

Set S = Nothing: Set M = Nothing
Application.ScreenUpdating = True
---------
en attendant tes explications...
a+
bob
 
Re : Macro pour faire deux listes sans doublons...

bonjour Bobaskis
objet Dictionary pour créer des listes de valeurs uniques
bien sûr ,Set S = Nothing: Set M = Nothing
le curseur sur un mot clé(exemple offset) et appel aide touche F1

à bientôt
 

Pièces jointes

Re : Macro pour faire deux listes sans doublons...

Bonjour à tous

Pour le scripting dictionary, le mieux est d'aller sur le site de JB 🙂.

Sinon, pour nothing, c'est pour vider les objets (enfin, il me semble 😱).
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
40
Affichages
1 K
Réponses
40
Affichages
2 K
Réponses
2
Affichages
169
Réponses
6
Affichages
130
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…