Recuperer date cellule vers combobox puis coller choix combo vers autre cellule

Dranreb

XLDnaute Barbatruc

• 16 Mai 2014

• #2

Re : Recuperer date cellule vers combobox puis coller choix combo vers autre cellule

Bonsoir.

1) - Vous ne prenez que la partie entière des valeurs, donc uniquement la date et non l'heure.
2) - Il n'y a pas lieu de la reconvertir en string avec Format, juste CDate(ComboBox1.Value).

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 16 Mai 2014

• #3

Re : Recuperer date cellule vers combobox puis coller choix combo vers autre cellule

Bonsoir Dranreb
1- j'ai besoin du jour du mois de l'année et de l'heure. -
Comment faire pour prendre l'heure ?
2 - j'ai essayé : CDate(ComboBox1.Value) ,ca marche mais je pense que c'est juste avec le format DD/MM/YYYY
Bien cordialement

 

Vote positif 0 Vote négatif

D

Docmarti

XLDnaute Occasionnel

• 16 Mai 2014

• #4

Re : Recuperer date cellule vers combobox puis coller choix combo vers autre cellule

Bonjour Carlos, Dranreb.

carlos à dit:

1- j'ai besoin du jour du mois de l'année et de l'heure. -
Comment faire pour prendre l'heure ?

Cliquez pour agrandir...

Remplace

Code:

Z = Format(Int(c.Value), "dd/mm/yyyy hh:ss")

par

Code:

Z = c.Value

Et remplace

Code:

ComboBox1.AddItem d

par

Code:

ComboBox1.AddItem DateValue(d) & " " & Format(TimeValue(d), "hh:mm")

Et utilise CDate pour récupérer une valeur de type DATE.

Code:

Private Sub ComboBox1_Change()
 
Range("g10").NumberFormat = "General"
Range("g10").Value = CDate(ComboBox1.Value)

End Sub

Docmarti

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

• 16 Mai 2014

• #5

Re : Recuperer date cellule vers combobox puis coller choix combo vers autre cellule

Bonsoir à tous
Super merci Docmarti .C'est tres explicite en plus .
Merci aussi et encore à Dranreb pour ses réponses pertinentes .
Bonne soirée
Carlos

 

Vote positif 0 Vote négatif