remplir une listebox depuis depuis controle calendrier

[antoine]

Bonjour

J'aimerais que quand l'utilisateur double clik sur le calendrier, la date, le mois et l'année ( calendar.day ; calendar.month .... ) apparaisse gentiment dans une liste box. chaque date ne dois plus bouger sauf instruction contraire.
J'arrive a récupérer la première ligne de la liste box, mais le problème est que a chaque fois que je reclique sur le calendrier : la list se vide est la première ligne est remplacé. ( alors que je voudrais que les dates soit conservée, ligne a ligne )

merci de votre aide

ci -joint le fichier exemple : ne fait pas attention au reste, cliquer sur le bouton en feuil1, dans l'userform aller dans l'ongler "quand ?" et tester le calendrier.
Si jamais ça ne marchais pas : le code est dans l'évenement double_click du calendrier ( cal )

 

[michel]

bonsoir Antoine

tu peux essayer la methode ci dessous pour incrémenter ta ListBox


Private Sub Cal_DblClick()
Dim J As Byte
fbase.listestockjours.ColumnCount = 3
listestockjours.AddItem , J
listestockjours.List(J, 0) = Cal.Day
listestockjours.List(J, 1) = Cal.Month
listestockjours.List(J, 2) = Cal.Year
J = J + 1
End Sub


bonne soiree
michel

 

[antoine]

merci beaucoup ! nickel, c'est exactement ce que je cherchais a faire. Mais là j'avais abandonner et j'allais faire ça en "trichant" ( faire transiter les données par une feuil et remplir la liste depuis là .. )
merci bien donc !

 

[herve]

controle calendrier

hellow
je voudrais en cliquant sur une cellule excel faire apparaitre le calendrier, choisir la date et que la date s'affiche dans cette cellule
merci