Convertir string en date

Bonjour à tous,

je souhaiterai convertir un mois et une année recuperés à partir de deux combobox en date:

J'utilise deux combobox un contenant les mois(janvier, fevrier....decembre), l'autre les année (2013,2014,2015).

j'aimerai donc , si l'utilisateur selectionne dans la premiere combobox le mois "fevrier" , et l'année "2015" , me retrouver avec une date fev-15....

J'espere avoir été clair...

Cordialement

Bonjour,

Donc tu souhaites récupérer le mois de "FEVRIER" par exemple dans un combobox , mais qui vient d'ou ce "Février"

idem pour 2015

Car je pense qu'il y a surement plus simple pour raccorder le mois et l'année que de passer par 2 combobox

ou alors mettre un petit fichier exemple pour mieux comprendre

Bonjour,

dim d as date
d = DateValue("01 " & mois & " " & annee)

L'affichage fev-15 dépend du format de cellule.

eric

Le code ci dessous me permet de remplir mes combobox

Private Sub UserForm_Initialize()
      Dim Mois(1 To 12) As String
      Dim i As Integer
      ' Création d'un tableau des noms de mois
      For i = 1 To 12
            Mois(i) = Format(DateSerial(1, i, 1), "mmmm")
            Me.ComboBox1.AddItem Mois(i)
            Me.ComboBox2.AddItem Mois(i)
      Next i

      Me.ComboBox3.AddItem "2015"
      Me.ComboBox3.AddItem "2014"
      Me.ComboBox3.AddItem "2013"
      Me.ComboBox4.AddItem "2015"
      Me.ComboBox4.AddItem "2014"
      Me.ComboBox4.AddItem "2013"

End Sub

ici, c'est le code de ma maccro , ou j'apelle une boite de dialogue, comprenant mes combobox.

la boite s'apelle b

dmois = b.ComboBox1.Value
fmois = b.ComboBox2.Value
ann = b.ComboBox3.Value

si l'utilisateur selectionne dans combobox1 janvier

puis dans combobox2 mars

et enfin dans combobox3 2014

j'aimerai créer deux variables de ce format : janv-15 et une seconde mars-15

Bonjour,

Tu es fâché avec les accents ?

Excel ne reconnaîtra pas fevrier !!

(NB- Je viens justement d'essayer pour être sûr !)

Cordialement.

MFerrand a écrit :

Bonjour,

Tu es fâché avec les accents ?

Excel ne reconnaîtra pas fevrier !!

(NB- Je viens justement d'essayer pour être sûr !)

Cordialement.

Private Sub UserForm_Initialize()
      Dim Mois(1 To 12) As String
      Dim i As Integer
      ' Création d'un tableau des noms de mois
      For i = 1 To 12
            Mois(i) = Format(DateSerial(1, i, 1), "mmmm")
            Me.ComboBox1.AddItem Mois(i)
            Me.ComboBox2.AddItem Mois(i)
      Next i

cette partie de code remplie automatiquement la combobox avec les mois bien comme il faut

Cordialement

En gros le proble que j'ai c'est:

a= janvier (string)

b= 2015 (string)

j'aimerai avoir c=janv-15 (date)

Re,

janv-15 n'est pas une date !

01 janv 15 est une date.

Voir mon post au-dessus

Bon là c'est plus simple !

Tu utilises DateSerial : tu convertis l'année en nombre, tu récupères le mois par le .ListIndex + 1 du ComboBox.