remplir une listebox depuis depuis controle calendrier

  • Initiateur de la discussion antoine
  • Date de début
A

antoine

Guest
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 )
 

Pièces jointes

  • CreationBesoin.zip
    26.8 KB · Affichages: 49
M

michel

Guest
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
 
A

antoine

Guest
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 !
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson