Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

DTPicker

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jetgirl
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jetgirl

Guest
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
 
Trier par date Trier par votes
Re : DTPicker

Bonsoir,

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

regarde celui-ci :

Code: 
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 :

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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 !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
924
AtTheOne
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
C
  • Résolu(e)
Autres gestion bibliothèque avec lecteur code barre
2
Réponses
21
Affichages
3 K
Chatron
C
E
  • Résolu(e)
XL 2019 effacer combobox
Réponses
4
Affichages
829
ChTi160
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
2 K
MONADESIGN82
M
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
S
  • Résolu(e)
Microsoft 365 Amelioration Inputbox
Réponses
7
Affichages
1 K
sgangbadjo
S
D
  • Question Question
XL 2013 Filtre dynamique VBA Listbox simplification de code
Réponses
0
Affichages
1 K
dela
D
M
  • Question Question
XL 2010 traçabilité du cumulé Excel VBA
Réponses
4
Affichages
1 K
Marh
M
E
  • Résolu(e)
Microsoft 365 Transférer valeurs de Textbox et ComboBox dans classeur
Réponses
8
Affichages
1 K
Emli15
E
P
  • Question Question
XL 2016 Ajouter une bordure sur dernière ligne insérée
2
Réponses
16
Affichages
2 K
patrick60880
P
D
  • Résolu(e)
XL 2016 Utilisation de la fonction Me.Controls
2 3 4
Réponses
49
Affichages
9 K
dayyoni
D
D
  • Question Question
XL 2016 Code pour faire défiler les photos
Réponses
1
Affichages
1 K
BOISGONTIER
D
  • Question Question
XL 2016 Faire défiler des photos dans un userForm
Réponses
5
Affichages
2 K
mapomme
B
  • Question Question
XL 2010 Remplacer DTPicker et mettre en format heure "hh:mm"
Réponses
2
Affichages
2 K
Dranreb
B
  • Question Question
XL 2013 [RESOLU] Erreur de compilation End with sans with
Réponses
5
Affichages
3 K
BENAM69
B
H
  • Question Question
VBA CheckBox en oui/non
2
Réponses
19
Affichages
7 K
Dranreb
F
  • Question Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
S
  • Question Question
XL 2016 Remise à zéro du formulaire
Réponses
0
Affichages
1 K
Sparfell29
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…