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...

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

Bebere

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

bonjour Christian
clic bouton update,code module1
 

Pièces jointes

  • SansDoublon.xls
    40 KB · Affichages: 65
  • SansDoublon.xls
    40 KB · Affichages: 68
  • SansDoublon.xls
    40 KB · Affichages: 70

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

MJ13

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…