Discussion :

[counterbob]

Bonsoir

J'ai une erreur d"exécution 13 à l'ouverture d'un formulaire.

je pense que c'est le code en rouge,
les valeurs de la colonne D sont des dates.
Je ne comprend pas
Merci pour une aide

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
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
Private Sub UserForm_Initialize()

   Set f = Sheets("BD")
   Set Rng = f.Range("A2:M" & f.[A65000].End(xlUp).Row)
   BD = Rng.Value
   
  Set d = CreateObject("Scripting.Dictionary")
  BD = f.Range("A2:N" & f.[A65000].End(xlUp).Row).Value
  
  Me.ListBox1.List = BD
  For i = LBound(BD) To UBound(BD)
    d(Year(BD(i, 4))) = ""
  Next i
  
  Me.ComboBox1.List = d.keys
  Me.ListBox1.ColumnCount = 14
   
   Ncol = Rng.Columns.Count
   Set dte = Range([D2], [A65536].End(xlUp))
   
   
   Set D2 = CreateObject("Scripting.Dictionary")
   Set d3 = CreateObject("Scripting.Dictionary")
   
   D2.CompareMode = vbTextCompare
   d3.CompareMode = vbTextCompare
   For i = LBound(BD) To UBound(BD)
   
    
    If Not D2.Exists(BD(i, 2)) Then D2(BD(i, 2)) = ""
    If Not d3.Exists(BD(i, 3)) Then d3(BD(i, 3)) = ""
   Next i
 
   temp = D2.keys
   Call Tri(temp, LBound(temp), UBound(temp))
   Me.ComboBox2.List = temp
   temp = d3.keys
   Call Tri(temp, LBound(temp), UBound(temp))
   Me.ComboBox3.List = temp
   Me.ListBox1.Clear
   
   Me.ComboBox1.ListIndex = -1
   Me.ComboBox2.ListIndex = -1
   Me.Enreg = f.[A65000].End(xlUp).Row + 1
   
   Me.ComboBox5.ColumnCount = 2
   Me.ComboBox5.ColumnWidths = "350,40"
   Me.ComboBox5.RowSource = "ceremonie"
   
    Me.Frame4.Visible = False
   F_calendrier2datesForm.Hide
End Sub

[clementmarcotte]

Bonjour,

Dans un dictionnaire, tu dois avoir deux valeurs : un indice et une valeur.

[counterbob]

Merci pour la réponse mais je ne vois pas le problème, désolé pour mon faible niveau VBA.

merci

[riaolle]

Bonjour,
Un dictionnaire se contruit avec des doublons (clef;valeur). Il ne doit pas y avoir 2 clefs indentiques. Un exemple de dictionnaire, écrit "à la main" est :
salade = {(pomme;3);(poire;4);(banane;3)} où les clefs sont les fruits et les valeurs le nombre de fruits.
Si tu veux récupérer la valeur pour une clef donnée, tu utilises la propriété Item :

Code :

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

valeurCherchee = salade.Item("pomme")

valeurCherchee sera, alors égale à 3.
J'espère que ça te permettra d'avancer

[counterbob]

bonjour
Merci beaucoup
c'est plus clair expliqué comme ça
j'ai pu régler le problème

[Pierre Fauconnier]

Salut.

J'ai l'impression que tu essaies de faire des trucs bien complexes alors qu'il y a probablement plus simple.

A la base, que cherches-tu à réaliser? A remplir un combobox multicolonnes? Si oui, oublie ce système de passer par des dictionnaires et tout le tintoin.

Utilise AddItem. il paraît que c'est beaucoup plus lent (ça me fait doucement marrer, mais bon), mais c'est en tout cas beaucoup plus simple...

[counterbob]

Bonjour
en fait je cherchais à remplir une listbox selon les choix dans trois combobox.
Exemple
La feuille nommée BD à 10 colonnes renseignées
les lignes sont renseignées par un formulaire de saisie.
Sur ce formulaire il y a trois trois combobox un listbox
puis des champs textbox correspondant aux valeurs renvoyées lors d'une sélection d'une ligne sur le listbox.

le combobox1 fait référence à la colonne 4 de la feuille BD les valeurs sont au format date.
la liste de choix dans ce premier combo doit être l'année repris dans la colonne 4.
le combo 2 fait référence à la colonne 2 (ville) la liste doit être triée par ordre croissant sans doublon.
Idem pour le combox3 qui fait référence à la colonne3 (manifestion).

le problème est que je n'arrive pas à trier par ordre croissant des dates qui s'affiche dans le listbox col4.

et lorsque je sélectionne une ligne dans le listebox les valeurs renvoyées dans les textbox correspondants ne sont pas les bonnes.

Voilà j'avance doucement
j'ai repris un formulaire de ajout,modification, suppression réalisé par https://www.developpez.net/forums/u6...ontierjacques/

bonne journée

[Pierre Fauconnier]

Tu marques la discussion comme résolue... mais tu me dis que "ça ne marche pas"...

Au final, résolu ou pas résolu?