Bonjour,

J'ai un petit problème avec une macro Excel, je souhaite afficher plusieurs fois l'Userform dans laquelle il y a un calendrier (celui de excel).

Jusque la rien de bien compliqué, au clic sur le bouton de ma feuille excel on fait un : Userform1.show

Cependant il faut que je l'affiche X fois (X étant un entier déclaré directement dans l'Userform). Et a chaque fois il faut attendre un choix dans le calendrier pour fermer puis réafficher l'Userform.

Pour simplifier
On affiche l'Userform
On attend que l'utilisateur choisisse une date dans le calendrier
On demande à l'utilisateur de choisir une deuxième date dans le calendrier
On demande à l'utilisateur de choisir une troisième date dans le calendrier
Et ainsi de suite jusqu'a ce qu'on ait demandé les X valeurs

Chaque valeur du calendrier sont enregistrées dans un tableau dont la taille est X (je pense pouvoir m'en occuper)

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
Private Sub Calendar1_Click()
Dim jour As Integer
jour = 5
Dim i As Integer
i = 0
Dim truc As Date
 
    For i = 0 To jour
        truc = trouve(i)
        MsgBox truc
    Next
 
End Sub
 
 
Function trouve(i As Integer) As Date
    trouve = Calendar1.Value
End Function
J'ai essayé ca mais comme vous vous en doutez ca ne fonctionne pas, il n'attend pas une saisie, lorsque je clique sur une date dans le calendrier, il la garde en mémoire et "Msgbox truc" m'affiche 5 fois la même date.

Merci