Calendrier dans userform

[Toubabou]

Bonjour à tous,

Je travail avec Excel 2010 - 64 Bits. je voudrai insérer un calendrier pour saisir une date dans une TextBox, mais sous Excel 2010 - 64 Bits ce n'est pas possible.
Quelqu'un pourrait-il me faire ce calendrier pour que je puisse l’insérer dans mon Userform?

Merci par avance

Jean-Marie

 

[MJ13]

Re : Calendrier dans userform

Bonjour Jean-Marie

Tu peux en essayer un trouvé parmi d'autres comme ici:

https://www.excel-downloads.com/threads/creer-1-calendrier-dans-un-userform.184456/


Tines nous au jus si cela fonctionne sur ta version 🙂.

 

[Toubabou]

Re : Calendrier dans userform

Bonjour MJ13,
Cela fonctionne j'arrive ouvrir le fichier et utiliser le calendrier, mais je ne sais pas comment l'integrer à mon Userform

Amicalement,

Jean-Marie

 

[camarchepas]

Re : Calendrier dans userform

Bonjour Jean Marie , @ Salutations Michel

Le problème est que nous n'avons pas ton userform , mais nous saurions surement l'intégrer ........

 

[Toubabou]

Re : Calendrier dans userform

Bonsoir à tous,

MOT DE PASSE "1"

Voilà mon problème est simple, enfin pas pour moi
Je voudrais intégrer votre calendrier dans mon UserForm dans la textbox « DATE D'ENTRÉE AU CORPS »

Ne faite pas attention au code, je l'ai récupéré sur un que jamais déjà fait.




Amicalement,

Jean-Marie

 

[camarchepas]

Re : Calendrier dans userform

RE ,

Et bien voici , ,y'a vraiment besoin d'un coup d'aspirateur dans ton fichier.

 

[Toubabou]

Re : Calendrier dans userform

Re,

Effectivement, mais à ma décharge Comme je le disais précédemment je suis un novice +++++
Et c'est pour cela que je me permet, avec ton autorisation bien évidement de te demander un service.
J'ai absolument besoin pour demain soir du fichier LUTIN opérationnel.
A savoir maintenant il faudrait que l'on puisse par le biais d'un nouvel Userform effectué une recherche.
- En sélectionnant un Permis avoir tout le personnel possédant tel ou tel Permis
- Ceci pareil pour les formations.

Pourrais tu m'aider??
Un grad meri par avance

Jean-Marie

 

[camarchepas]

Re : Calendrier dans userform

Re,

Je ne pense pas que ce soit écrit la poste ,

Je viens de répondre à ton sujet, tu pars complétement sur autre chose .

de plus avec un délai imposible .

Et bien et comme tel est mon droit , je ne poursuit pas cette discussion.

C'est carrément de l'abus . Si tu est trés préssé , il y a des professionnels dont c'est le métier , mais de toute façon , même avec une rénumération certaine , aucun ne tiendrait ce délai.

Sur ce Bonne soirée d'un bénévol en pétard ....

 

[Toubabou]

Re : Calendrier dans userform

Re,
Je te comprends et m'en excuse.
Je te remercie pour toute l'aide que tu m'as apporté. Desolé de t'avoir froissé.

Jean Marie

 

[angoul]

Re : Calendrier dans userform

Je me permet de reouvrir cette petite discution.
j'ai recuperer le fichier calendrier que je trouve super top, merci a tous pour se boulot, par contre j'aimerai avoir une petite aide sur la modification. quand on clique sur aaujourd'hui cela met la date, le mois et l'année ainsi que l'heure.
j'aimerai que cela n'affiche pas l'heure.
quand je copie dans une cellule cela me rentre la date sous le format 11/11/2011 - j'aurait aimer plus sous le format 11 Novembre. 2011. J'ai modifier le format de ma cellule mais toujours pareil.

Avez vous des idée
merci d'avance

 

[camarchepas]

Re : Calendrier dans userform

Bonjour ,


Pour moi ,en faisant :
Dim Jour As String
Jour = Format(Date, "dddd mmmm yyyy")

cela devrait être ok

 

[angoul]

Re : Calendrier dans userform

j'ai mis ce que tu propose dans le code, mais helas cela fait rien
Private Sub TextBox5_Enter()
Dim Jour As String, Semaine As String, Lundi As String
Dim Decompte As Long
Jour = Format(Date, "dddd mmmm yyyy")
Jour = Calendriers.Calendrier(Date)
Lundi = Jour
For Decompte = Weekday(Jour, 3) To 1 Step -1
Lundi = DateAdd("d", -1, Lundi)
Next
Semaine = "Semaine du " & Lundi & " au " & DateAdd("d", 5, Lundi)
TextBox5 = Jour
Jour = Format(Date, "dddd mmmm yyyy")
End Sub

 

[camarchepas]

Re : Calendrier dans userform

Re ,

Plutot comme cela :

Private Sub TextBox5_Enter()
Dim Jour As String, Semaine As String, Lundi As String
Dim Decompte As Long

Jour = Calendriers.Calendrier(Date)
Lundi = Jour
For Decompte = Weekday(Jour, 3) To 1 Step -1
Lundi = DateAdd("d", -1, Lundi)
Next
Semaine = "Semaine du " & Lundi & " au " & DateAdd("d", 5, Lundi)
Jour = Format(jour, "dddd mmmm yyyy")
TextBox5 = Jour

End Sub

 

[job75]

Re : Calendrier dans userform

Bonsoir angoul, camarche pas,

Plutôt que Format(jour, "dddd mmmm yyyy") utiliser Format(jour, "dd mmmm yyyy") 🙄

A+

 

[camarchepas]

Re : Calendrier dans userform

Bonsoir Job ,

Merci d'avoir controlé mon dérappage.