date dans textbox

Créer une discussion
Répondre

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
MASSJIPE

MASSJIPE

XLDnaute Impliqué
Bonsoir
J'ai toujour le probleme pour afficher la date dans le textdate
j'arrive pas à comprendre
Cijoint.fr - Service gratuit de dépôt de fichiers
Si Quelqu'un peut me conseiller
merci
 
Trier par date Trier par votes
Re : date dans textbox

J'ai fait des corrections mais pour la date du jour qui doit s'afficher dans la text box à l'ouverture de la USF je bloque

Private Sub cmdValider_Click()


' On teste la saisie du N°...
If Me.TextNum.Text = "" Then
MsgBox "Vous devez entrer un N°."
Me.TextNum.SetFocus
Exit Sub
End If

' On teste la saisie du Elt...
If Me.TextElt.Text = "" Then
MsgBox "Vous devez entrer un Elt."
Me.TextElt.SetFocus
Exit Sub
End If

' On teste la saisie du Inc ...
If Me.TextInc.Text = "" Then
MsgBox "Vous devez entrer un Inc."
Me.TextInc.SetFocus
Exit Sub
End If

' On teste la saisie du Ordre ...
If Me.TEXOrdre.Text = "" Then
MsgBox "Vous devez entrer un Ordre."
Me.TEXOrdre.SetFocus
Exit Sub

End If ' On teste la saisie du PJI ...
If Me.TEXPji.Text = "" Then
MsgBox "Vous devez entrer un Pji."
Me.TEXPji.SetFocus
Exit Sub
End If
Sheets("RectoalerteV1").Range("c2").Value = Me.Textdate.Text
Sheets("RectoalerteV1").Range("O1").Value = Me.TextNum.Text
Sheets("RectoalerteV1").Range("c6").Value = Me.TextElt.Text
Sheets("RectoalerteV1").Range("E6").Value = Me.TextInc.Text
Sheets("RectoalerteV1").Range("H9").Value = Me.TEXOrdre.Text
Sheets("RectoalerteV1").Range("K9").Value = Me.TEXPji.Text
Sheets("RectoalerteV1").Range("D11").Value = Me.TextCSCS.Text
Sheets("RectoalerteV1").Range("K11").Value = Me.TextCSCD.Text
Sheets("RectoalerteV1").Range("H13").Value = Me.TextBox2.Text
Sheets("RectoalerteV1").Range("J6").Value = Me.ComboBox1
Sheets("RectoalerteV1").Range("C9").Value = Me.ComboBox2
Sheets("RectoalerteV1").Range("E9").Value = Me.ComboBox3
Sheets("RectoalerteV1").Range("C15").Value = Me.ComboBox4
Sheets("RectoalerteV1").Range("B1").Value = Me.ComboBox5
Sheets("RectoalerteV1").Range("G11").Value = Me.ComboBox6
SAISIE.Hide
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub saisie_Initialize()
With Sheets("RectoalerteV1")
Derlign = .Range("A65000").End(xlUp).Row + 1
RectoalerteV1.Textdate.Value = Format(Now, "dd/mmm/yyyy")
End With
With Sheets("RectoalerteV1")
ComboBox1.List = .Range("Origine").Value
ComboBox2.List = .Range("TYPE").Value
ComboBox3.List = .Range("FLUX").Value
ComboBox4.List = .Range("AQM").Value
ComboBox5.List = .Range("Alerte").Value
ComboBox6.List = .Range("BDM").Value
End With

End Sub
merci
 
Vote positif 0 Vote négatif
Re : date dans textbox

Fait modif mais pas de date
Private Sub cmdValider_Click()


' On teste la saisie du N°...
If Me.TextNum.Text = "" Then
MsgBox "Vous devez entrer un N°."
Me.TextNum.SetFocus
Exit Sub
End If

' On teste la saisie du Elt...
If Me.TextElt.Text = "" Then
MsgBox "Vous devez entrer un Elt."
Me.TextElt.SetFocus
Exit Sub
End If

' On teste la saisie du Inc ...
If Me.TextInc.Text = "" Then
MsgBox "Vous devez entrer un Inc."
Me.TextInc.SetFocus
Exit Sub
End If

' On teste la saisie du Ordre ...
If Me.TEXOrdre.Text = "" Then
MsgBox "Vous devez entrer un Ordre."
Me.TEXOrdre.SetFocus
Exit Sub

End If ' On teste la saisie du PJI ...
If Me.TEXPji.Text = "" Then
MsgBox "Vous devez entrer un Pji."
Me.TEXPji.SetFocus
Exit Sub
End If
Sheets("RectoalerteV1").Range("c2").Value = Me.Textdate.Text
Sheets("RectoalerteV1").Range("O1").Value = Me.TextNum.Text
Sheets("RectoalerteV1").Range("c6").Value = Me.TextElt.Text
Sheets("RectoalerteV1").Range("E6").Value = Me.TextInc.Text
Sheets("RectoalerteV1").Range("H9").Value = Me.TEXOrdre.Text
Sheets("RectoalerteV1").Range("K9").Value = Me.TEXPji.Text
Sheets("RectoalerteV1").Range("D11").Value = Me.TextCSCS.Text
Sheets("RectoalerteV1").Range("K11").Value = Me.TextCSCD.Text
Sheets("RectoalerteV1").Range("H13").Value = Me.TextBox2.Text
Sheets("RectoalerteV1").Range("J6").Value = Me.ComboBox1
Sheets("RectoalerteV1").Range("C9").Value = Me.ComboBox2
Sheets("RectoalerteV1").Range("E9").Value = Me.ComboBox3
Sheets("RectoalerteV1").Range("C15").Value = Me.ComboBox4
Sheets("RectoalerteV1").Range("B1").Value = Me.ComboBox5
Sheets("RectoalerteV1").Range("G11").Value = Me.ComboBox6
SAISIE.Hide
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub saisie_Initialize()
With Sheets("RectoalerteV1")
Derlign = .Range("A65000").End(xlUp).Row + 1
Textdate.Value = Date
End With
With Sheets("RectoalerteV1")
ComboBox1.List = .Range("Origine").Value
ComboBox2.List = .Range("TYPE").Value
ComboBox3.List = .Range("FLUX").Value
ComboBox4.List = .Range("AQM").Value
ComboBox5.List = .Range("Alerte").Value
ComboBox6.List = .Range("BDM").Value
End With

End Sub
 
Vote positif 0 Vote négatif
Re : date dans textbox

Je veux dans textbox date la date du jour et quand je valide quelle va en C2
j'ai remplacé par Private Sub UserForm_Initialize()
mais une erreur Derlign = .Range("A65000").End(xlUp).Row + 1
Private Sub UserForm1_Initialize() L'erreur disparait mais pas de date
merci
 
Vote positif 0 Vote négatif
Re : date dans textbox

Bonjour à Tous,
je vais poser une question bête mais est-ce que au moins le textbox1 est sur l'userform?
est-ce que c'est pas un textbox sur une feuille ?
si c'est le cas
FeuilX.textbox1 = Date
bonne soirée à tous
a+
Papou
 
Vote positif 0 Vote négatif
Re : date dans textbox

Bonsoir à vous deux
Si j'ai tout changé se que tu a dit mais rien ce passe
Par contre dans les controles supplémentaires je n'ai plus le calendrier et le DTpickers
peut etre une relation avec mon probleme de date suite au formatage du PC ce matin avant tout fonctionner, par contre si c'est ca comment faire
merci
 
Vote positif 0 Vote négatif
Re : date dans textbox

Bonsoir Jean Marcel, le forum,
moi en ce qui me concerne j'ai fait le test avec une textbox dans les deux cas et j'ai bien la date qui s'affiche dans la textbox alors il y a peut-être aussi un problème de propriété de textbox.
Moi hier j'ai planché sur une connerie de columncount et à la finale j'avais mis 6 à la place de 5 et j'avais que des défauts et jamais les mêmes !!!!!
Bref il faut rien pour être ennuyé.
Quoi qu'il en soit content de t'avoir croisé et BONNE ANNEE 2009
a+
Papou
 
Vote positif 0 Vote négatif
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

Discussions similaires

O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
468
cathodique
cathodique
A
  • Question Question
Microsoft 365 Tri par date impossible sur TCD
Réponses
4
Affichages
229
abouam
A
M
  • Question Question
Microsoft 365 TDB Suivi des véhicules
Réponses
4
Affichages
271
Mar9
M
ARaul
  • Question Question
XL 2019 Affichage de date actuel dans TextBox
Réponses
6
Affichages
248
TooFatBoy
TooFatBoy
T
  • Question Question
XL 2019 Chiffre dans les 2 colonnes ( pour faire calcul ) { pas juste la formule }
Réponses
4
Affichages
205
sylvanu
sylvanu
S
  • Question Question
Microsoft 365 planning excel
Réponses
8
Affichages
400
stephane76940
S
T
  • Résolu(e)
XL 2019 calcul Delta Date ( et A ou( B C D E ))
Réponses
4
Affichages
238
TooFatBoy
TooFatBoy
PORCHER
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
367
AtTheOne
AtTheOne
E
  • Résolu(e)
XL 2010 Affichage d'un USF sans module mais avec du code inscrit dans le VBE de la feuille1
2
Réponses
16
Affichages
1 K
ericcool
E
M
  • Question Question
Microsoft 365 Échec pour la recherche de doublons
2
Réponses
17
Affichages
793
TooFatBoy
TooFatBoy
B
  • Question Question
XL 2021 trouver date anniversaire dans calendrier pour recopie
Réponses
12
Affichages
373
dysorthographie
dysorthographie
K
  • Question Question
Microsoft 365 Exercice compte en banque
Réponses
10
Affichages
580
klemasson
K
E
  • Résolu(e)
XL 2019 défiler listbox en même temps que textbox dans une frame
Réponses
5
Affichages
485
escudo
E
Titof06
  • Question Question
XL 2019 Copier des fichiers ".txt" selon la date de modification ou création
Réponses
10
Affichages
436
fanch55
fanch55
M
  • Question Question
Microsoft 365 Impossible de coller en mode valeur
Réponses
10
Affichages
433
job75
job75
MuscatMimi
  • Question Question
XL 2021 Formule pour Date
2
Réponses
18
Affichages
742
MuscatMimi
MuscatMimi
Y
  • Résolu(e)
XL 2013 Chronologie
Réponses
4
Affichages
222
Yvan1
Y
Dudu2
  • Question Question
XL 2016 VBA - Visualiser un document PDF dans Excel
Réponses
9
Affichages
842
patricktoulon
patricktoulon
alexandre33260
  • Question Question
XL 2021 Fonction SI (enfin je crois)
Réponses
4
Affichages
222
alexandre33260
alexandre33260
N
  • Résolu(e)
Microsoft 365 Garder le focus tant que vide
2 3
Réponses
30
Affichages
941
NONO14
N
Retour