Discussion :

[nsqualli]

Bonjour,

dans ma feuille j'ai un bouton, quand je cliques dessus, une form s'affiche ou il deux zone de liste modifiable, la 1ere correspond aux jours de 1 à 31 et la 2eme correspond aux mois de janvier à décembre.

le probleme, c'est que lors de l'execution quand je choisie le jour 5 dans la liste il me donne une autre valeur, y'a comme un compteur (je vois 5 4 3 et affiche 2), et la meme chose avec la liste des mois.

voila le code pour le liste des mois:

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
Private Sub Liste_Mois_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Liste_Mois.Clear
    Liste_Mois.AddItem "Janvier"
    Liste_Mois.AddItem "Février"
    Liste_Mois.AddItem "Mars"
    Liste_Mois.AddItem "Avril"
    Liste_Mois.AddItem "Mai"
    Liste_Mois.AddItem "Juin"
    Liste_Mois.AddItem "Juillet"
    Liste_Mois.AddItem "Aout"
    Liste_Mois.AddItem "Septembre"
    Liste_Mois.AddItem "Octobre"
    Liste_Mois.AddItem "Novembre"
    Liste_Mois.AddItem "Décembre"
End Sub

SVP c'est dû à quoi?
Merci

[pgz]

Bonjour.

Tu devrais peut-être éviter d'utiliser l'évènement MouseDown du contrôle liste et charger plutôt la liste à l'ouverture du uForm.

PGZ

[nsqualli]

et comment je peux faire cela?

[pgz]

Tu renseignes les listes de valeurs des contrôles de liste à l'ouverture du formulaire.

Quelque part tu dois avoir une instruction

Code :

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

MonUserForm.Show

Eh bien juste avant tu peux renseigner tes listes.
Tu peux le faire aussi sur l'évènement Initialize du uForm.

Et enfin, si tes listes sont toujours les mêmes, pourquoi ne pas les définir en mode création du Uform, en dur, sans utiliser VBA.

PGZ

[decondelite]

Et enfin, si tes listes sont toujours les mêmes, pourquoi ne pas les définir en mode création du Uform, en dur, sans utiliser VBA.

Je me suis toujours demandé comment on pouvait faire ça pour les combobox: je suppose que c'est pareil que pour les listes, donc si tu pouvais me l'expliquer, ça m'éviterait d'avoir à charger mes combobox à la "VBA style" à coups de Userform_Initialise ou Activate.

[pgz]

Bonjour decondelite

Je me suis toujours demandé comment on pouvait faire ça pour les combobox: je suppose que c'est pareil que pour les listes, donc si tu pouvais me l'expliquer, ça m'éviterait d'avoir à charger mes combobox à la "VBA style" à coups de Userform_Initialise ou Activate.

Pour les listes "en dur", je pratique comme ceci:
Je crée une feuille de paramètres (Setup), généralement masquée, qui contient entre autre toutes les listes à afficher. Cela facilite leur maintenance.
Ensuite dans les propriétés de la combobox, il suffit de renseigner la propriété rowsource avec la plage : par exemple Setup!A1:A12
Variante : tu peux nommer la plage et utiliser le nom pour renseigner RowSource.

Cordialement,

PGZ

[decondelite]

Ah mais ça je connaissais déjà: je pensais que tu sortirais quelque chose qui puisse alimenter la liste/combobox juste en tapant du texte quelque part.