Discussion :

[ch0ubida]

Bonjour à tous,

C'est la première fois que je poste ici, donc je m'excuse par avance si ma demande n'est pas assez claire du premier coup


Je programme en VBA pour mon école et je bloque sur une procédure que j'essaie de réaliser. Voici l'explication:

J'ai placé dans un UserForm trois ComboBox faisant chacune référence à une plage de cellules distinctes.
L'utilisateur devra renseigner:
- Dans la 1ère: le jour, allant de 1 à 31
- Dans la 2nd: le mois, écrit en toutes lettres (Janvier, Février, ..., Décembre)
- Et enfin dans la dernière: l'année, à partir de 2014

Je voudrais récupérer les valeurs choisies dans ces 3 ComboBox afin d'obtenir une date sous le format : jj/mm/aaaa
Le problème étant que deux des valeurs sont des nombres, et la dernière du texte, ceci complique la tâche.
J'aimerais placer cette "concaténation" de caractère dans une case précise de mon classeur, afin de pouvoir l'utiliser pour générer une calendrier débutant à cette même date.

Est-ce qu'une bonne âme accepterait de m'aider ?

Je vous remercie d'avance.

[Thautheme]

Bonsoir CH0ubida, bonsoir le forum,

Essaie comme ça :

Code :

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

1
2
3
4
5
6
Dim DT As String 'déclare la variable DT (Date en Texte)
Dim D As Date 'déclare la variable D (Date)
 
DT = Me.ComboBox1.Value & "/" & Me.ComboBox2.Value & "/" & Me.ComboBox3.Value 'définit la variable DT
D = Format(DT, "dd/mm/yyyy") 'définit la variable D
MsgBox D 'affiche la date D

[eric4459]

Bonsoir,
Sauf erreur de ma part les données issues de TextBox sont au format String, je suppose qu'il en est de même pour les ComboBox.
Dans ce cas il faudrait préciser le format désiré pour la variable DT.

Code :

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

DT =CDate( Me.ComboBox1.Value & "/" & Me.ComboBox2.Value & "/" & Me.ComboBox3.Value )

Eric

[Invité]

Bonsoir,
ne jamais passer une date au format français mais international:

Code :

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

ladate=yyyy-mm-dd

[ch0ubida]

Bonsoir,

Merci beaucoup Thautheme pour ta solution. Elle me paraît tout à fait correcte Je n'avais pas pensé à passer par une variable "tampon" en String...

eric4459, si DT est déjà déclaré en String, je ne comprends pas pourquoi déclarer le format souhaité pour DT. A quoi cela sert de rajouter CDate ? Est-ce que cela évite de passer par la variable D As Date ?

rdurupt: Si je comprends bien ce que tu dis, il faut que j'écrive:
D = Format(DT, "yyyy-mm-dd") ? Mais comment faire si je le veux en effet dans le format français, soit D = Format(DT, "dd/mm/yyyy") comme Thautheme l'a suggéré ?

Je vous remercie de votre aide. Je suis étonnée de la rapidité de vos réponses, ça fait plaisir

[Invité]

ce que j'ai voulue dire c'est que les date dans vba au format string vont être interprété comme des date américaine;
en d'autre terme tous les 4 de chaque mois ce convertiront en poissons d'avril 04/01, 04/02,04/03 en 01/04,02/04,03/04!