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

[carlos]

Bonjour
Je galère ...
1 - Je souhaite récupérer la liste des dates d'une colonne ( sans doublon).
en format : "DD/MM/YYYY hh:SS"

2 - Puis selon le choix du combobox, renvoyer cette date vers une cellule (G10) en format date :
Pour le moment je n'arrive pas à renvoyer la valeur en date , elle est en texte.
Range("g10").Value = Format(CDate(ComboBox1.Value), "DD/MM/YYYY hh:SS").ne marche pas

Si quelqu'un peut m'aider.
Merci
Carlos

 

[Dranreb]

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).

 

[carlos]

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

 

[Docmarti]

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

Bonjour Carlos, Dranreb.

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

Remplace

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

par

Z = c.Value

Et remplace

ComboBox1.AddItem d

par

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

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

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

End Sub

Docmarti

 

[carlos]

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