Discussion :

[Tempas]

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

[Tempas]

Voila ce à quoi je suis arrivé. Le problème est que le code n'est pas joli, n'y a-t-il pas mieux ?

sur le clic du bouton de la feuille excel

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
 
    Dim jour As Integer
    Dim i As Integer
 
    jour = 5
        For i = 1 To jour
            UserForm1.Show
        Next
End Sub

Dans userform1 sur le clic sur le calendar

Code :

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

1
2
3
4
5
6
7
Private Sub Calendar1_Click()
    Dim truc As Date
 
    truc = Calendar1.Value
    MsgBox truc
    UserForm1.Hide
End Sub