Macro pour faire deux listes sans doublons...

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

  • SansDoublon.xls
    20.5 KB · Affichages: 59
  • SansDoublon.xls
    20.5 KB · Affichages: 61
  • SansDoublon.xls
    20.5 KB · Affichages: 68

bobaskis

XLDnaute Nouveau
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
 

Bebere

XLDnaute Barbatruc
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

  • SansDoublon.xls
    41 KB · Affichages: 69
  • SansDoublon.xls
    41 KB · Affichages: 64
  • SansDoublon.xls
    41 KB · Affichages: 67

Discussions similaires

Statistiques des forums

Discussions
312 429
Messages
2 088 351
Membres
103 823
dernier inscrit
ben talha redouane