[VBA] Date et Excel
IBegin
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
IBegin Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
IBegin Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai créé un UserForm, dans lequel je propose à l'utilisateur de rentrer une Date (dans un textbox qui s'appelle lbldate) et je voudrais que lorsqu'on clique Ok, la date saisie soit copiée dans une cellule de mon doc Excel
Mon code est le suivant :
Private Sub cmdOk_Click()
If frmSaisie.lbldate.Value = "" Then
frmSaisie.Hide
Else
'MsgBox (frmSaisie.lbldate.Value)
Sheets("Calcul").Range("D19").Value = frmSaisie.lbldate.Text
Sheets("Impressions").Select
frmSaisie.Hide
End If
End Sub
Mon problème, c'est qu'Excel m'inverse le jour et le mois, donc ça va pas. Exemple, je tape 01/05/2007 et dans la cellule, je retrouve 05/01/2007.
Si vous avez des solutions...
Merci d'avance!
Ps : question bonus, quelle est la différence entre frmSaisie.lbldate.Value et frmSaisie.lbldate.Text ? Merci !
J'ai créé un UserForm, dans lequel je propose à l'utilisateur de rentrer une Date (dans un textbox qui s'appelle lbldate) et je voudrais que lorsqu'on clique Ok, la date saisie soit copiée dans une cellule de mon doc Excel
Mon code est le suivant :
Private Sub cmdOk_Click()
If frmSaisie.lbldate.Value = "" Then
frmSaisie.Hide
Else
'MsgBox (frmSaisie.lbldate.Value)
Sheets("Calcul").Range("D19").Value = frmSaisie.lbldate.Text
Sheets("Impressions").Select
frmSaisie.Hide
End If
End Sub
Mon problème, c'est qu'Excel m'inverse le jour et le mois, donc ça va pas. Exemple, je tape 01/05/2007 et dans la cellule, je retrouve 05/01/2007.
Si vous avez des solutions...
Merci d'avance!
Ps : question bonus, quelle est la différence entre frmSaisie.lbldate.Value et frmSaisie.lbldate.Text ? Merci !
A voir également:
- [VBA] Date et Excel
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et excel - Guide
- Déplacer colonne excel - Guide
- Nombre de jours entre deux dates excel - Guide
2 réponses
Salut,
Tu peux arranger ce problème de format avec la fonction
Format
Sheets("Calcul").Range("D19").Value = Format(frmSaisie.txtDate.Text, "dd/MM/yy")
J'ai recréé ta macro avec un TextBox.
Je sais aussi qu'il existe une fonction pour convertir une date au format régionnal, mais je ne la retrouve pas.
En fait, Value n'existe pas en Visual Basic version 6.00. Je pense que , comme value existait au niveau de l'objet range et n'était donc pas incompatible avec les autres objets, cela a du être une bonne occasion de doubler ce qui existait déjà.
A plus
Tu peux arranger ce problème de format avec la fonction
Format
Sheets("Calcul").Range("D19").Value = Format(frmSaisie.txtDate.Text, "dd/MM/yy")
J'ai recréé ta macro avec un TextBox.
Je sais aussi qu'il existe une fonction pour convertir une date au format régionnal, mais je ne la retrouve pas.
En fait, Value n'existe pas en Visual Basic version 6.00. Je pense que , comme value existait au niveau de l'objet range et n'était donc pas incompatible avec les autres objets, cela a du être une bonne occasion de doubler ce qui existait déjà.
A plus