Discussion :

[Bragu Demon]

Bonjour,

Comme l'indique le sujet souhaiterai complètement supprimer une entrée d'un dictionnaire.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub TT()
  Dim d As New Dictionary, Key As Variant
 
  d.Add 0, 5
  d.Add 1, 10
  d.Add 2, 15
  d.Add 3, 20
  d.Add 4, 25
  d.Add 5, 30
 
  d.Remove (3)
 
  For i = 0 To d.Count
   Debug.Print "clé " & i & " valeur [" & d(i) & "]"
  Next
 
End Sub

Affiche :

clé 0 valeur [5]
clé 1 valeur [10]
clé 2 valeur [15]
clé 3 valeur []
clé 4 valeur [25]
clé 5 valeur [30]

Or je souhaiterai obtenir :

clé 0 valeur [5]
clé 1 valeur [10]
clé 2 valeur [15]
clé 3 valeur [25]
clé 4 valeur [30]

à la façon de array_splice() en php qui permet de supprimer la donnée, la clé et de réordonner les clés.


J'ai 2 boucles for imbriquées.
La deuxième permet de parcourir le dictionnaire dont je souhaite supprimer les éléments déjà traités (pour éviter de les traiter une seconde fois)

IsEmpty(d(3)) renvoi vrai, mais je préfèrerai faire une suppression de la clé et de la valeur.

[patricktoulon]

bonjour
il me semble qu'il y a la fonction remove pour le dico non?
un petit tour par la aussi
http://boisgontierjacques.free.fr/pa...ctionnaire.htm

[Bragu Demon]

Bonjour Patrick,

Oui la fonction remove existe, mais elle ne fait que supprimer la valeur, le dictionnaire garde la clé, or je voudrais supprimer la clé ET la valeur :-(

[Marc-L]

Bonjour,

non pas du tout ‼ Remove supprime bien la clef, rien qu'en ouvrant l'aide VBA !   Et sans compter MSDN …

C'est juste une mauvaise utilisation du dictionnaire, voir dans l'aide Keys …

___________________________________________________________________________________________________________

Je suis Paris, New-York, Mogadicio, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Bragu Demon]

Alors dans ce cas, pourquoi le code que j'ai fourni en exemple ne fonctionne pas ?

[Marc-L]

Salut Jacques !

Alors dans ce cas, pourquoi le code que j'ai fourni en exemple ne fonctionne pas ?

Mauvais codage !

Juste en ouvrant l'aide VBA de l'objet Dictionary puis consulter l'aide de Keys manquant dans le code présenté !
Sans compter les exemples dans les discussions de ce forum …

[unparia]

Bonjour
J'ajoute à ce que rappelle Marc-L, que je salue, que la méthode Remove reçoit justement la clé (Key) à supprimer

[Invité]

Bonsoir,
Dic("toto")=10
Va créer une clé toto implicitement!
Debug.print Dic("chèvre") va créer une instance chèvre implicitement, il y a de quoi le devenir!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
k=Dic.keys
For i =0 to Dic.count -1
Debug.print Dic(k(i)),k(i)
Next

[patricktoulon]