DTPicker

[jetgirl]

bonsoir tout le monde !!
Voila j'ai voulu ajouter à mon userform un dtpicker. Seul hic je ne sais pas trop quel code rentrer dans VBA; Voila ce que j'ai mis pour le moment...Si quelqu'un pouvait m'éclairer ce serait super !

Private Sub CommandButton1_Click()
End If
Nomconverti = Application.WorksheetFunction.Proper(Me.TextBox1.Text)
Prenomconverti = Application.WorksheetFunction.Proper(Me.TextBox2.Text)
fonctionconverti = Application.WorksheetFunction.Proper(Me.TextBox3.Text Typedecontratconverti = Application.WorksheetFunction.Proper(Me.TextBox6.Text)
'
Mise en place des valeurs saisies
Range("D65536").End(xlUp).Offset(1, 0).Value = Nomconverti
Range("E65536").End(xlUp).Offset(0, 0).Value = Prenomconverti
Range("F65536").End(xlUp).Offset(0, 0).Value = fonctionconverti
Range("G65536").End(xlUp).Offset(0, 0).DTPicker1.Value = Format(Int(Now), "dd/mm/yyyy")
Range("H65536").End(xlUp).Offset(0, 0).Value = Sortiedelentrepriseconverti
Range("I65536").End(xlUp).Offset(0, 0).Value = Typedecontratconverti
' On décharge le formulaire
Unload Me
End Sub

 

[Cousinhub]

Re : DTPicker

Bonsoir,

pas sûr que ton code fonctionne, comme tu l'as posté....

regarde celui-ci :

Private Sub CommandButton1_Click()
End If
Nomconverti = Application.WorksheetFunction.Proper(Me.TextBox1.Text)
Prenomconverti = Application.WorksheetFunction.Proper(Me.TextBox2.Text)
fonctionconverti = Application.WorksheetFunction.Proper(Me.TextBox3.Text)
Typedecontratconverti = Application.WorksheetFunction.Proper(Me.TextBox6.Text)
'Mise en place des valeurs saisies
Range("D65536").End(xlUp).Offset(1, 0).Value = Nomconverti
Range("E65536").End(xlUp).Offset(0, 0).Value = Prenomconverti
Range("F65536").End(xlUp).Offset(0, 0).Value = fonctionconverti
Range("G65536").End(xlUp).Offset(0, 0) = Format(Me.DTPicker1.Value, "dd/mm/yyyy")
Range("H65536").End(xlUp).Offset(0, 0).Value = Sortiedelentrepriseconverti
Range("I65536").End(xlUp).Offset(0, 0).Value = Typedecontratconverti
' On décharge le formulaire
Unload Me
End Sub

Et dis si tu as des soucis

PS : je pense que tu auras des soucis, concernant la ligne d'écriture......
Pour calculer la ligne d'écriture, utilise une variable, nommée DerLig, par exemple, déclarée en Long, et utilise cette variable pour déterminer cette ligne...

Exemple :

Private Sub CommandButton1_Click()
Dim DerLig As Long
DerLig = Range("A65000").End(xlUp).Row + 1
End If
Nomconverti = Application.WorksheetFunction.Proper(Me.TextBox1.Text)
Prenomconverti = Application.WorksheetFunction.Proper(Me.TextBox2.Text)
fonctionconverti = Application.WorksheetFunction.Proper(Me.TextBox3.Text)
Typedecontratconverti = Application.WorksheetFunction.Proper(Me.TextBox6.Text)
'Mise en place des valeurs saisies
Cells(DerLig, 4).Value = Nomconverti
Cells(DerLig, 5).Value = Prenomconverti
Cells(DerLig, 6).Value = fonctionconverti
Cells(DerLig, 7).Value = Format(Me.DTPicker1.Value, "dd/mm/yyyy")
Cells(DerLig, 8).Value = Sortiedelentrepriseconverti
Cells(DerLig, 9).Value = Typedecontratconverti
' On décharge le formulaire
Unload Me
End Sub

Bonne soirée

 

[BERRACHED said]

Re : DTPicker

Salut,setjiril

ça c'est pas du vb et ca ne marchera jamais: Range("G65536").End(xlUp).Offset(0, 0).DTPicker1.Value = Format(Int(Now), "dd/mm/yyyy")

le Dtpicker je crois est un contrôle qui ne pourra jamais ce retrouvée dans la propriété d'une Feuille

Range("N°Colonne").value= Format(DTPicker1.value,"dd/mm/yyyy

Cordialement

 

[jetgirl]

Re : DTPicker

en effet la première solution ne met pas d'erreur mais la date n'est pas écrite...deuxième solution j'ai une erreur ossi ! le deblogeur me met une erreur sur le end If :

Dim DerLig As Long
DerLig = Range("A65000").End(xlUp).Row + 1
End If
Nomconverti = Application.WorksheetFunction.Proper(Me.TextBox1.Text)
Prenomconverti = Application.WorksheetFunction.Proper(Me.TextBox2.Text)
fonctionconverti = Application.WorksheetFunction.Proper(Me.TextBox3.Text)
Typedecontratconverti = Application.WorksheetFunction.Proper(Me.TextBox6.Text)
'Mise en place des valeurs saisies
Cells(DerLig, 4).Value = Nomconverti
Cells(DerLig, 5).Value = Prenomconverti
Cells(DerLig, 6).Value = fonctionconverti
Cells(DerLig, 7).Value = Format(Me.DTPicker1.Value, "dd/mm/yyyy")
Cells(DerLig, 8).Value = Sortiedelentrepriseconverti
Cells(DerLig, 9).Value = Typedecontratconverti
' On décharge le formulaire
Unload Me
End Sub

Pour faire simple, je souhaitais simplement afficher une date dans ma feuille par le biais d'un formulaire et on m'a dit d'utiliser cet outil !

 

[Cousinhub]

Re : DTPicker

Re-,

scuse....


J'ai oublié de le supprimer......

 

[jetgirl]

Re : DTPicker

aucun soucis c'est super maintenant ma date fonctionne !!! Mais les autres données ne fonctionnent plus...oups !