Discussion :

[pilounet54]

* Bonjour, *

j'appel le calandar par ce code par contre pourquoi je ne recupere pas le value du calandar ?

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
Dim ligne  As Integer
Private Sub UserForm_Initialize()
 
 Dim Ctl As Control
 Set Ctl = Me.Controls.Add("MSCAL.Calendar", "Calendar1", True)
 Ctl.Left = 6: Ctl.Top = 6
 Ctl.Width = 198: Ctl.Height = 132
 
End Sub
Private Sub Calendar1_Click()
 
        ligne = ActiveCell.Row
        Worksheets("Bilan").Range("C" & ligne).Value = Calendar1.Value
 
End Sub

merci

[patricktoulon]

bonjour pilounet

sans doute parce que le calendard est a 0 au depart mais je n'en suis pas sur

maintenant tu peux le parametrer lors de l'activate de l'userform

enfin il me semble

au plaisir

[kiki29]

Salut, lire ceci et en particulier cela et aussi

Car tu veux mettre la charrue devant les boeufs.

[pilounet54]

es que tu peu me mettre sur la piste je ne trouve ! rien ecoute j'ai un programme qui fonctionne avec les controle active x calandar mais pour des raisons de facilite je le modifie car il va dans divers ordinateurs ,donc je souhaite cette creation objet par contre je n'ai à aucun moment la récuperation de la valeur du calandar merci pour les liens
je n'ai malheureusement rien vue qui pourrais maider merci

De même patrick ! pour l'instant je ne trouve pas j'ai essayer a ce qu'il prenne la date mais rien, il n'est pas bloqué il fonctionnerait mais je n'arrive pas a recuper la value dans une cellule encore une astuce de plus a trouvé
merci encore

[brownthefou]

Bonjour à toi,

Je suis encore débutant en VBA et je n'ai jamais touché au calandar, cependant, ne faut-il pas le définir dans ta seconde Sub ?

Cordialement

[pilounet54]

escuse moi tu as peut etre raison mais pour l'instant je ne voie pas ce qui cloche
merci si tu trouve quelle que chose je suis preneur merci encore

[fring]

Bonjour,

Cela ne peut pas fonctionner vu que tu crées le contrôle dynamiquement, il faut également créer ses procédures évènementielles dynamiquement (voir les exemples de gestions des objets via le dernier lien que Kiki t'a communiqué). L'évènement Private Sub Calendar1_Click() (la charrue) ne fait référence à rien puisque le Calendar (les boeufs) n'existe pas encore...

Pourquoi vouloir créer le calendrier dynamiquement et ne pas l'insérer manuellement dans l'UserForm une fois pour toutes ?

[pilounet54]

le programme fonctionne avec les controle active x sur mon ordinateur mais sur d'autre cela me semble bien plus difficile que je croyais donc j'obtais pour sur ce calandar qui reglais pas mal de probleme je te remercie tres vivement pour la piste je vais regarde plus attentivement ses procédures évènementielles dynamiquement ,ce que je ne comprenais pas c'est que mon calandar si je fais un

Code :

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

UserForm1.Show

il existe est en plus n'est pas bloqué d'ou toutes mes interogations mais je comprend qu'il faut toujours apprendre mais je m'en fou j'aime cela ++ à bientot
salutation