Me Controls Add

Version imprimable

Me Controls Add

* Bonjour, *

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

Code:

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

20/05/2012, 19h15
patricktoulon

re

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
20/05/2012, 21h08
kiki29

Salut, lire ceci et en particulier cela et aussi

Car tu veux mettre la charrue devant les boeufs.
21/05/2012, 07h57
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 !:ccool: 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
21/05/2012, 08h36
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
21/05/2012, 11h22
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
22/05/2012, 13h12
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 ?
22/05/2012, 14h50
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:

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

Pour faire plus simple, afin d'éviter de créer dynamiquement la procédure évènementielle "Click" du Calendar, place un bouton sur ton UserForm.

Ce qui donnerait :

Code:

1
2
3
4
5
6
7
8
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

Code:

1
2
3
4
Private Sub CommandButton1_Click()
Worksheets("Bilan").Range("C" & ActiveCell.Row).Value = Me.Controls("Calendar1").Value
Unload Me '<-- éventuellement pour désactiver le UserForm
End Sub

23/05/2012, 08h45
kiki29

Salut, un exemple avec MonthView, donc à adapter, ici
23/05/2012, 12h16
patricktoulon

heu

bonjour a tous

fring

j'ignorais ce détail?

ajout dynamique du calendar1 mais sa fonction click déjà inscrite dans le code ne peut pas fonctionner

sa voudrais dire que malgré l'expression explicite de "private calendar1_click(........) la fonction fait référence a une autre forme de correspondance (peut être par l'index ou je ne sais quoi?

je suis perplexe :calim2:
sa voudrais dire pour faire simple que quand on voit dans le code

Code:

private calendar1_click(......)

en fait le vba interprète comme

Code:

private je ne sais quoi_click(....)

si je t'ai bien compris

ça doit être quelque chose comme ça puisque si on ajoute la fonction click du calendar dynamiquement le code final sera identique

on en apprend tout les jours:ccool:*

au plaisir
23/05/2012, 21h03
pilounet54

c'est avec plaisir qu' indirectement tu as appris quelque chose par moi hihihi au plaisir :aie: