Data Picker Dynamique

bonjour
j'essaye de faire avec la procédure, qui fonctionne avec une cellule qui au passage m'arrange bien les bidons, mais j'essaye de l'appliquer à un userform qui s'appelle formulaire1 et renvoyer la value du dtpiker1 dans le texbox15 ,il est lui-même dans formulaire, je le fais venir le dtpiker1 quand mon formulaire est ouvert par ceci

Code:

---

1 2	Private Sub TextBox15_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)LancementProcedure End Sub

---

j'ai modifie cette ligne qui dans userform du DTPicker1

Code:

---

ActiveCell.Value = Format(DateSerial(Year(DTPicker1), Month(DTPicker1), Day(DTPicker1)), "dd mmmm yyyy")

---

par ceci

Code:

---

Formulaire1.TextBox15.Value = Format(DateSerial(Year(DTPicker1), Month(DTPicker1), Day(DTPicker1)), "dd mmmm yyyy")

---

ma question es que je doit modifier la fonction
es que je dois modifié la fonction qui es ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

Function UserForm_Et_DataPicker_Dynamique(NomObjet As String) As Object Dim Obj As Object Dim j As Integer Set Usf = ThisWorkbook.VBProject.VBComponents.Add(3) With Usf .Properties("Caption") = "Mon calendrier" .Properties("Width") = 130 .Properties("Height") = 40 End With   Set Obj = Usf.Designer.Controls.Add("MSComCtl2.DTPicker.2")   With Obj .Left = 0: .Top = 0: .Width = 130: .Height = 20 .Name = NomObjet .CalendarBackColor = &HFF00FF End With   With Usf.CodeModule j = .CountOfLines .insertlines j + 1, "Sub " & NomObjet & "_Change()" .insertlines j + 2, " ActiveCell.Value = Format(DateSerial(Year(" _ & NomObjet & "), Month(" & NomObjet & "), Day(" _ & NomObjet & ")), " & Chr(34) & "dd mmmm yyyy" & Chr(34) & ")" 'Option pour refermer l'userform après l'insertion de la date. .insertlines j + 3, " Unload Me" .insertlines j + 4, "End Sub" End With   VBA.UserForms.Add (Usf.Name) Set UserForm_Et_DataPicker_Dynamique = UserForms(UserForms.Count - 1)   End Function

---

Citation:

---

Envoyé par pilounet54

ma question es que je doit modifier la fonction qui es ceci

---

Je dirais... essaie et repose la question après avoir essayé ;)
Mais regarde quand même cette ligne...

Code:

---

.insertlines j + 2, " ActiveCell.Value = Format(DateSerial(Year(" _

---

Par contre, il me semble que pour cette partie

Code:

---

1 2 3

Format(DateSerial(Year(" _ & NomObjet & "), Month(" & NomObjet & "), Day(" _ & NomObjet & ")), " & Chr(34) & "dd mmmm yyyy" & Chr(34) & ")"

---

Ceci devrait convenir

Code:

---

Format(" & NomObjet & ".Value, " & Chr(34) & "dd mmmm yyyy" & Chr(34) & ")"

---

ok je viens de trouve par contre sur cette ligne cela me ferme les deux userforms
'.insertlines j + 3, " Unload Me" es que je peus fermer que celui de la date
sur le meme sujet j'ai d'autre question mais j'attend d'avancé un peu plus

Citation:

---

Envoyé par pilounet54

par contre sur cette ligne cela me ferme les deux userforms

---

Deux UserForm ? :koi:
Tu confonds sans doute entre le calendrier et le userform, c'est peut-être ceci que tu cherches à faire

Code:

---

.insertlines j + 3, " Me." & NomObjet & ".Visible = False"

---

merci pour ce code es que tu peu me dire pourquoi il me cree des userforms
calandrier dtpiker à foison a chaque ou presque a chaque fois que je l'utilise ?

Citation:

---

Envoyé par pilounet54

es que tu peu me dire pourquoi il me cree des userforms calandrier dtpiker à foison a chaque fois que je l'utilise ?

---

euhh...tu parles des lignes de code je suppose ?

non! non! a chaque fois que je l'utilise il me cree userform calandrier avec le dtpicker ?

pour l'instant je mets pas resolu pour la raison suivant, je l'utilise de differente façon donc je n'en ai pas fais le tour cela fontionne dans deux solutions il m'en reste une que je verrai plus tard
pour la creation de l'userform effectivement si tu fais lancement procedure tu as une chance de recree l'userform merci pour tous @plus tard merci encore

Citation:

---

Envoyé par pilounet54

non! non! a chaque fois que je l'utilise il me cree userform calandrier avec le dtpicker ?

---

bin oui...à chaque fois que tu lances la procédure de création dynamique, il t'en crée un, cela me semble normal... :aie:

merci beaucoup c'est un grand plaisir de travailler avec vous tous à bientot:ccool: