Liste déroulante (ComboBox) contenant date

[Everlast03]

Bonjour,

J'ai un petit problème, j'ai créé une liste déroulante (ComboBox) qui contient des dates du type (jan.-09 / févr.-09 [...] mai-11)

Mon code est le suivant :

Private Sub ComboBox3_Change()
ComboBox3 = Format(ComboBox3, "mmm-yy")
Range("A50") = CDate(ComboBox3.Value)
End Sub

Mais lorsque je sélectionne "jan.-09" il m'affiche "jan.-10" et pareille pour févr.-11 il m'affiche "févr.-10".

Pourriez-vous me dire d'où cela provient-il ?

 

[Pierrot93]

Re : Liste déroulante (ComboBox) contenant date

Bonjour,

pas facile de travailler sur une photo... le mieux serait de placer un petit fichier en pièce jointe...

bonne journée
@+

 

[ChTi160]

Re : Liste déroulante (ComboBox) contenant date

Salut Everlast03
Bonjour le fil "Pierrot93"
Bonjour le forum

arff pas évident de devoir récréer un fichier , sans savoir comment le combobox est alimenté etc etc

Voila ce que j'ai fait , qui peut être une solution .

Private Sub ComboBox1_Click()
With Worksheets("Feuil1") 'a partir de la feuille
With .ComboBox1 'a partir du combobox
Worksheets("Feuil1").Cells(1, 1) = Format(CDate(.List(.ListIndex, 1)), "mmm-yy") 'on colle la valeur de la colonne cachée en la formatant
End With
End With
End Sub

Private Sub Worksheet_Activate()
Dim L As Byte 'on définie la variable
With Worksheets("Feuil1") 'avec la feuil1

With .ComboBox1 'avec le combobox qui s'y trouve
.Clear 'on le vide
.ColumnCount = 2 'on définie son nombre de colonnes
.ColumnWidths = "50;00" 'on définie la largeur de ces colonnes
For L = 1 To 12 'pour les valeurs allant de 1 à 12
.AddItem Format(DateSerial(Year(Date), L, 1), "mmm-yy") 'on va en fonction de la date ainsi définie remplir la partie visible du combobox
.List(.ListCount - 1, 1) = Format(DateSerial(Year(Date), L, 1)) 'dans la partie invisible du Combobox on va mettre l'équivalent date de la colonne précédente

'soit par exemple pour Jan 2010 -----> 01/01/2010
Next L
End With

End With
End Sub

Le Fichier exemple : Regarde la pièce jointe CmbBV1.xls
Dans l'attente d'un fichier



Bonne journée

 

[Everlast03]

Re : Liste déroulante (ComboBox) contenant date

Voici le fichier en pièce jointe : PJ

Merci d'avance

 

[Everlast03]

Re : Liste déroulante (ComboBox) contenant date

Dites moi si le fichier est téléchargeable chez vous

 

[ChTi160]

Re : Liste déroulante (ComboBox) contenant date

Re

une proposition

j'ai allégé le fichier

Le Fichier : Cijoint.fr - Service gratuit de dépôt de fichiers

Bonne fin de journée

 

[Everlast03]

Re : Liste déroulante (ComboBox) contenant date

Merci, cependant j'ai encore un problème avec :

.Value = Format(Worksheets("Menu").ComboBox3.List(Worksheets("Menu").ComboBox3.ListIndex, 1), "00000") 'ici on colle la valeur du Combobox

 

[ChTi160]

Re : Liste déroulante (ComboBox) contenant date

Re
il faudrait être plus précis ,c'est quoi le problème ??? Lol
merci

 

[Everlast03]

Re : Liste déroulante (ComboBox) contenant date

"Impossible de lire la propriété List. Argument non valide."

 

[ChTi160]

Re : Liste déroulante (ComboBox) contenant date

Re
je ne suis pas chez moi , je regarde cela des demain aprés midi .
Bonne fin de Soirée

 

[Everlast03]

Re : Liste déroulante (ComboBox) contenant date

Bonjour,

toujours pas de réponse ?

Help please !

 

[kjin]

Re : Liste déroulante (ComboBox) contenant date

Bonjour,
Et ton fichier est où ?!
http://cjoint.com/
A+
kjin

 

[Everlast03]

Re : Liste déroulante (ComboBox) contenant date

Oui tiens : Pièce Jointe

Merci d'avance.

 

[Everlast03]

Re : Liste déroulante (ComboBox) contenant date

Toujours personne ?

 

[kjin]

Re : Liste déroulante (ComboBox) contenant date

Tiens
Fichier zippé moins de 20 ko
A force de bidouiller les propriétés des contrôles
kjin