Discussion :

[pilounet54]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Par contre, il me semble que pour cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ceci devrait convenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pilounet54]

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

[fring]

par contre sur cette ligne cela me ferme les deux userforms

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pilounet54]

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 ?

[fring]

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 ?