XL 2010 Supprimer Item dictionnaire

cp4 · 30 Décembre 2022

Bonjour,
Je bloque sur un truc qui est sûrement très simple.
Après avoir alimenter 2 dictionnaires dans une procédure.

VB:

Option Explicit
Dim d1 As Object, d2 As Object

Sub essai_dict()
   Dim i As Byte
   Set d1 = CreateObject("Scripting.Dictionary")
   Set d2 = CreateObject("Scripting.Dictionary")

   For i = 1 To 10
      d1(i) = ""
   Next i

   d2(2) = 2: d2(6) = 6
End Sub

Sub Remove_item()
'ici remove item'
End Sub

Je voudrais via une autre procédure supprimer les items du dictionnaire d2 du dictionnaire d1.
Dans d1, il devrait rester 1,3,4,5,7,8,9,10.
Avec mes remerciements anticipés.

Dranreb · 30 Décembre 2022

Bonjour.
Vous avez la méthode Keys qui renvoie dans un tableau les clés d'un Dictionary, et la méthode Delete qui permet de supprimer une clé dans un autre Dictionary.
En cochant la référence "Microsoft Scripting Runtime" et en les déclarant As Dictionary plutôt qu'As Object ces méthodes sont suggérées dans une liste dès que vous tapez un point derrière la variable.
Sans compter que ça apporte un gain de performance certes microscopique.

VB:

Option Explicit
Dim d1 As Dictionary, d2 As Dictionary
Sub essai_dict()
   Dim i As Byte
   Set d1 = New Dictionary
   Set d2 = New Dictionary
   For i = 1 To 10
      d1(i) = ""
      Next i
   d2(2) = 2: d2(6) = 6
   MsgBox "d1.Keys :  " & Join(d1.Keys, ", ") _
      & vbLf & "d2.Keys :  " &...

Dranreb · 30 Décembre 2022

Bonjour.
Vous avez la méthode Keys qui renvoie dans un tableau les clés d'un Dictionary, et la méthode Delete qui permet de supprimer une clé dans un autre Dictionary.
En cochant la référence "Microsoft Scripting Runtime" et en les déclarant As Dictionary plutôt qu'As Object ces méthodes sont suggérées dans une liste dès que vous tapez un point derrière la variable.
Sans compter que ça apporte un gain de performance certes microscopique.

VB:

Option Explicit
Dim d1 As Dictionary, d2 As Dictionary
Sub essai_dict()
   Dim i As Byte
   Set d1 = New Dictionary
   Set d2 = New Dictionary
   For i = 1 To 10
      d1(i) = ""
      Next i
   d2(2) = 2: d2(6) = 6
   MsgBox "d1.Keys :  " & Join(d1.Keys, ", ") _
      & vbLf & "d2.Keys :  " & Join(d2.Keys, ", ")
   End Sub
Sub Remove_item()
   Dim k
   For Each k In d2.Keys
      d1.Remove k
      Next k
   MsgBox "d1.Keys :  " & Join(d1.Keys, ", ") _
      & vbLf & "d2.Keys :  " & Join(d2.Keys, ", ")
   End Sub

cp4 · 30 Décembre 2022

Dranreb à dit:
Bonjour.
Les variables locales ne sont conservée que durant l'exécution de la procédure.
Seules des variables globales sont connues dans tout le module et peuvent donc être utilisées par plusieurs procédures.

Bonjour Dranreb,

Merci pour ton rapide retour. Pourrai-tu stp, être plus explicite. Car là, je crois que je viens de rater ma vie. En effet, dans ma petite tête, en déclarant les variables en tête du module, sont globales et donc réutilisables dans toutes les procédures du module.

Bonne journée.

Dranreb · 30 Décembre 2022

Oui j'avais mal étudié le code reproduit. Excuses.

cp4 · 30 Décembre 2022

Dranreb à dit:
Bonjour.
Vous avez la méthode Keys qui renvoie dans un tableau les clés d'un Dictionary, et la méthode Delete qui permet de supprimer une clé dans un autre Dictionary.
En cochant la référence "Microsoft Scripting Runtime" et en les déclarant As Dictionary plutôt qu'As Object ces méthodes sont suggérées dans une liste dès que vous tapez un point derrière la variable.
Sans compter que ça apporte un gain de performance certes microscopique.

Entretemps tu as modifié ton message. Je suis parvenu avec ceci,

VB:

Option Explicit
Dim d1 As Object, d2 As Object

Sub essai_dict()
   Dim i As Byte
   Set d1 = CreateObject("Scripting.Dictionary")
   Set d2 = CreateObject("Scripting.Dictionary")

   For i = 1 To 10
      d1(i) = ""
   Next i

   d2(2) = 2: d2(6) = 6
End Sub
Sub Remove_item()
   Dim key
   Call essai_dict
   For Each key In d2.keys
      d1.Remove key
   Next
End Sub

on constate un résultat exact dans la fenêtre des variables locales

par contre par la suite dans fenêtre espions "hors contexte"

Dranreb · 30 Décembre 2022

Modifiez les contextes de vos espions.

cp4 · 30 Décembre 2022

Dranreb à dit:
Modifiez les contextes de vos espions.

Bonsoir,

Toutes mes excuses pour mon absence depuis ce matin. je te remercie pour tes conseils et ton code.
Cependant, je n'ai pas compris ce que je dois modifier dans les contextes des espions.
Moi, je sélectionne comme ici d1 et je fais un clic droit et ajouter un espion.
S'il y a une autre méthode, j'avoue que je ne la connais pas.

Bonne soirée.

Dranreb · 30 Décembre 2022

Non mais ce n'est pas grave. Mais s'il y a marqué "Hors de contexte" c'est parce que l'espion a été demandé pour dans une procédure bien précise au lieu de tout le module voire tout le projet.

patricktoulon · 31 Décembre 2022

Bonjour à tout les deux
je ne vois pas ou est le soucis
charge des dico(essai_dict)

suppression des des éléments( clé 2 et 6 du dico2 )dans dico1

VB:

Option Explicit
Dim d1 As Object, d2 As Object

Sub essai_dict()
Dim i As Byte
    Set d1 = CreateObject("Scripting.Dictionary")
    Set d2 = CreateObject("Scripting.Dictionary")

    For i = 1 To 10
        d1(i) = ""
    Next i

    d2(2) = 2: d2(6) = 6
End Sub

Sub Remove_item()
Dim elem, i
    For Each elem In d2
        d1.Remove elem
    Next
    MsgBox Join(d1.keys)

End Sub

cp4 · 31 Décembre 2022

patricktoulon à dit:
je ne vois pas ou est le soucis

Bonjour PatrickToulon,
En fait, le souci c'était moi. En effet, ce matin j'étais vraiment bloqué. Gros bug matinal

Je profite de l'occasion de ces dernières heures de 2022:
Mes meilleurs vœux à l'occasion de la nouvelle année 2023.

XL 2010 Supprimer Item dictionnaire

cp4

XLDnaute Barbatruc

Dranreb

Dranreb

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Discussions similaires