un calendrier pour plusieurs useforms

B

Bebere

XLDnaute Barbatruc

• 29 Mars 2015

• #2

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

 

Pièces jointes

• Classeur1.xlsm

  48.2 KB · Affichages: 40
• Classeur1.xlsm

  48.2 KB · Affichages: 51
• Classeur1.xlsm

  48.2 KB · Affichages: 55

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 29 Mars 2015

• #3

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.

 

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 29 Mars 2015

• #4

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

 

Pièces jointes

• Classeur1.xlsm

  47.5 KB · Affichages: 27
• Classeur1.xlsm

  47.5 KB · Affichages: 35
• Classeur1.xlsm

  47.5 KB · Affichages: 24

Vote positif 0 Vote négatif

D

Docmarti

XLDnaute Occasionnel

• 29 Mars 2015

• #5

Re : un calendrier pour plusieurs useforms

Bonjour

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

Code:

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

Cordialement

Docmarti

 

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 29 Mars 2015

• #6

Re : un calendrier pour plusieurs useforms

slt Docmarti

ton code me lance une erreur de variable non defini

 

Vote positif 0 Vote négatif

H

Herdet

Nous a quitté

Repose en paix

• 30 Mars 2015

• #7

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

 

Pièces jointes

• RD_UF_Calendrier.xlsm

  32.7 KB · Affichages: 33

Vote positif 0 Vote négatif

D

Docmarti

XLDnaute Occasionnel

• 30 Mars 2015

• #8

Re : un calendrier pour plusieurs useforms

paskikic à dit:

slt Docmarti

ton code me lance une erreur de variable non defini

Cliquez pour agrandir...

Voici le fichier avec ActiveControl.

Docmarti

 

Pièces jointes

• paskikic_Activecontrol.xlsm

  62.9 KB · Affichages: 28

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 30 Mars 2015

• #9

Re : un calendrier pour plusieurs useforms

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

Code:

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

 

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 30 Mars 2015

• #10

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

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 30 Mars 2015

• #11

Re : un calendrier pour plusieurs useforms

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

 

Vote positif 0 Vote négatif

D

Docmarti

XLDnaute Occasionnel

• 30 Mars 2015

• #12

Re : un calendrier pour plusieurs useforms

paskikic à dit:

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

Cliquez pour agrandir...

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

Docmarti

 

Pièces jointes

• paskikic_ActiveControl_2.xlsm

  63.6 KB · Affichages: 23

Vote positif 0 Vote négatif

paskikic

XLDnaute Occasionnel

• 30 Mars 2015

• #13

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

 

Vote positif 0 Vote négatif

D

Docmarti

XLDnaute Occasionnel

• 30 Mars 2015

• #14

Re : un calendrier pour plusieurs useforms

paskikic à dit:

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

Cliquez pour agrandir...

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

Code:

Set objdate = Me.Frame1

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

Cordialement

Docmarti

 

Vote positif 0 Vote négatif