un calendrier pour plusieurs useforms

[paskikic]

slt les xlnautes,
comme d hab jai besoin de vous j essai temps bien que mal de donner ma valeur date de mon calendrier (recupere sur excel download merci les gars )a une textbox d un userform.

c est a dire que j ai un calendrier etje veux l activer par different userform ( 5 en tout ) et mettre la date dans un textbox du userform active.

j ai essayer en creeant un public ojbet mais il me fait une erreur de procedure.


a l aide les xlnautes

et merci en attendant

 

[Bebere]

Re : un calendrier pour plusieurs useforms

bonjour Paskikic
voilà une manière
déclarer en variable publique objdate as userform dans module1
initialiser dans code bouton , textbox1 dans chaque userform

 

[paskikic]

Re : un calendrier pour plusieurs useforms

Re les xlnautes

Merci Bebere

j etais sur la bonne route mais pas sur le bon chemin merci a toi.

 

[paskikic]

Re : un calendrier pour plusieurs useforms

ahhhhhhh!!!!! bebere

ca marche mais dans mon usf 5 j ai deux textbox pour une date de debut et une de fin bah la ca buggggg je peux pas nommer deux textbox avec le meme nom et si je redeclare un autre objet date ca bug ( erreur de procedure)

aieee!! ca pique

j ai mis sur le bouton 2 les 2 textbox

 

[Docmarti]

Re : un calendrier pour plusieurs useforms

Bonjour

Très simple : tu peux spédifier objdate.ActiveControl =

objdate.ActiveControl = VBA.Format(DateCalendrier, "[$-40C]d mmmm yyyy")

Cordialement

Docmarti

 

[paskikic]

Re : un calendrier pour plusieurs useforms

slt Docmarti

ton code me lance une erreur de variable non defini

 

[Herdet]

Re : un calendrier pour plusieurs useforms

Bonjour,
Ci-joint un exemple de calendrier très souple d'emploi, initialisable avec une date prédéfinie et qui n'a besoin d'aucune bibliothèque complémentaire.

Si ça peut t'aider, j'ai mis 2 boutons Début, Fin et 2 textbox

Cordialement
Robert

 

[Docmarti]

Re : un calendrier pour plusieurs useforms

slt Docmarti

ton code me lance une erreur de variable non defini

Voici le fichier avec ActiveControl.

Docmarti

 

[Bebere]

Re : un calendrier pour plusieurs useforms

bonjour
avec évènement mouseup,un simple clic sur l'objet

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
    frmCalendrier.Show
End Sub

 

[paskikic]

Re : un calendrier pour plusieurs useforms

merci a vous les gars
Docmarti ton code fonctionne a merveille( encore merci) mais j ai encore un petit probleme et c est pour ca que ca ne fonctionnait pas ma textbox est dans une frame des que je la sort ca fonctionne mais quand elle est dedans le code bloque et je ne sais comment y remedier qqn a t il une idee

merci a vous

 

[Bebere]

Re : un calendrier pour plusieurs useforms

Paskikic
objdate n'est plus l'userform mais la frame de l'userform
exemple
Set objdate = Me.Frame1

 

[Docmarti]

Re : un calendrier pour plusieurs useforms

merci a vous les gars
Docmarti ton code fonctionne a merveille( encore merci) mais j ai encore un petit probleme et c est pour ca que ca ne fonctionnait pas ma textbox est dans une frame des que je la sort ca fonctionne mais quand elle est dedans le code bloque et je ne sais comment y remedier qqn a t il une idee

Alors on se passe de ActiveControl et on se montre plus précis pour nommer le contrôle Textbox.

Docmarti

 

[paskikic]

Re : un calendrier pour plusieurs useforms

merci docmarti

c est nickel il va falloir que j appronfisse mes connaissance excel vba y aurait il des sites pour ce type de control car sur le net y a pas mal de cours mais simpliciste(enfin de base ) et apres heureusement que les xlnautes sont la pournous aider

encore maerci a tous et a toi Docmarti

 

[Docmarti]

Re : un calendrier pour plusieurs useforms

il va falloir que j appronfisse mes connaissance excel vba y aurait il des sites pour ce type de control car sur le net y a pas mal de cours mais simpliciste(enfin de base ) et apres heureusement que les xlnautes sont la pournous aider

Je crois que Bebere sera plus à même de te diriger sur ce sujet. Sa réponse

Set objdate = Me.Frame1

me laisse penser qu'il s'y connaît mieux que moi en contrôles.

Cordialement

Docmarti