Afficher elements d'un dictionnary [Résolu]

[debutVBA]

Bonjour a tous et a toutes,


Qui pourrait m'indiquer comment faire pour afficher les élements d'un dictionnary si celui ci existe

Code :

1
2
3
4
5
6
7
8
9
10
Set objDico = CreateObject("Scripting.Dictionary")
objJferies.CompareMode = vbTextCompare 
 
 
        If objDico.exists(date) Then
 
       'AFFICHER L'ELEMENT DU DICTIONNARY,
       ce sont des dates qui se trouvent sur une feuille excel
 
       End if

Merci à tous et a toutes...

[ZebreLoup]

Je ne comprends pas bien ta question. Tu veux faire quoi quand tu dis afficher ?
Tu veux mettre tous les éléments d'un dictionary sur une feuille ?

[debutVBA]

Bonjour zebre loup,


alors je m'explique

j'ai sur une feuille ceci :
01/11/2011
11/11/2011
26/12/2011
27/12/2011
28/12/2011
29/12/2011
30/12/2011



puis je cree donc un dictionnary

Code :

1
2
3
4
5
6
7
8
9
Set objDico = CreateObject("Scripting.Dictionary")
objJferies.CompareMode = vbTextCompare 
 
        'si la date est present je souhaiterai l'afficher
        If objDico.exists(date) Then
 
 
   'ici je souhaiterai afficher la date si la condition est vraie. 
       End if

Merci

[ZebreLoup]

Euh, je ne comprends toujours pas... Je dois manquer un peu de neurones ! (Ou tu n'es pas très très clair).

Déjà tu déclares un objDico, puis tu parles d'objJferies. Ensuite tu dis que tu veux l'afficher, mais où ? Et tu ne l'as pas encore rempli ton dictionary.

Ou alors tu veux entrer les valeurs des cellules dans le dictionary ?

J'aime bien les devinettes, mais il me fait des indices

[debutVBA]

je mets directement toute la fonction :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
 
Function Work_Days(BegDate As Date, EndDate As Date, _
                   Optional bAvecJFerie As Boolean = True) As Variant
    Dim dt As Date
 
On Error GoTo Work_Days_Error
 
    If IsNull(BegDate) Or IsNull(EndDate) Then err.Raise vbObjectError + 1
    If Not IsDate(BegDate) Or Not IsDate(EndDate) Then err.Raise vbObjectError + 2
    If BegDate > EndDate Then err.Raise vbObjectError + 3
 
    dt = BegDate
    Work_Days = 0
 
    While dt <= EndDate
 
        If DatePart("w", dt, vbMonday) < 6 And Not obJDico.exists(dt) Then
            Work_Days = Work_Days + 1
 
 
        End If
 
 
 
 
'ici je souhaiterai afficher la date si celle ci est dans cette liste
 
01/11/2011
11/11/2011
26/12/2011
27/12/2011
28/12/2011
29/12/2011
30/12/2011
 
 
        If obJDico.exists(dt) Then
 
 
        'ici je cherche a afficher la date si
        MsgBox " la date est " & obJDico.Value
 
 
 
        End If
 
        dt = DateAdd("d", 1, dt)
    Wend
 
    Exit Function
 
Work_Days_Error:
    Select Case err.Number
        Case vbObjectError + 1: Work_Days = "Les 2 dates sont obligatoires."
        Case vbObjectError + 2: Work_Days = "Format de date incorrect."
        Case vbObjectError + 3: Work_Days = "La date de fin doit être postérieure à la date de début."
        Case Else: Work_Days = err.Description
    End Select
End Function

[ZebreLoup]

Je ne comprends toujours pas, il faut vraiment que tu t'efforces à bien expliquer ce que tu veux, dans quel cadre on se trouve...
Rajouter du code ne sert à rien, surtout qu'ici, on ne sait pas ce qu'est objDico, ce qu'il contient...
S'il existe déjà et que tu veux afficher la date, bah tu fais

Code :

MsgBox " la date est " & dt

Mais ça je suppose que tu l'aurais trouvé tout seul !

Maintenant si ton problème est de remplir l'objDico, dis-le !!!

[debutVBA]

oui excuse moi de n'etre pas très clair je vais tenter de l'etre le plus possible

Donc j'ai dans une feuille appelé "Ma feuille" une liste de date

01/11/2011
11/11/2011
26/12/2011
27/12/2011
28/12/2011
29/12/2011
30/12/2011


il faut que mon dictionnary ait toutes ses dates en mémoire.

Puis je parcours le dictionnary et si la date passé en parametre fait partie d'une date du dictionnary l'afficher à l'ecran..

je sais pas si j'ai été plus explicite ...

[ZebreLoup]

Ok. Alors l'avantage du dictionary, c'est justement que tu n'as pas à boucler sur tous ces éléments pour savoir si une valeur en fait partie. Sinon, tu utiliserais tout simplement un tableau.

Un dictionary est une liste dynamique de couple clé/valeur. Il ne peut pas y avoir 2 fois la même clé.
Pour le remplir, en imaginant que tes dates sont en A1:A30

Code :

1
2
3
4
Dim c As Range
For Each c In Range("A1:A30") 'Je te laisse le soin de préciser la feuille
 objDico.Add c.Value, c.Value 'Ici, on met la même chose pour la clé et la valeur
Next c

Ca tu ne le fais qu'une fois, au début de ta procédure (tu peux déclarer objDico en Public par exemple).
Ensuite quand tu veux vérifier si une date dt en fait partie

Code :

If objDico.Exists(dt) Then MsgBox " la date est " & dt

[debutVBA]

Merci zebre loup,

j'ai compris grace a ton explication comment le dictionnary fonctionnait.

Merci à toi

[Daniel.C]

Bonjour,

Pourquoi la ligne suivante ne fait-elle pas l'affaire ?

Code :

If obJDico.exists(dt) Then

N'en tiens pas compte, c'était resté bloqué dans les tuyaux