Liste déroulante (ComboBox) contenant date

Everlast03 · 20 Octobre 2010

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 :

Code:

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 · 20 Octobre 2010

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 · 20 Octobre 2010

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 · 20 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

Voici le fichier en pièce jointe : PJ

Merci d'avance

Everlast03 · 20 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

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

ChTi160 · 20 Octobre 2010

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 · 20 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

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

Code:

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

ChTi160 · 20 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

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

Everlast03 · 20 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

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

ChTi160 · 20 Octobre 2010

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 · 25 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

Bonjour,

toujours pas de réponse ?

Help please !

kjin · 25 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

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

Everlast03 · 25 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

Oui tiens : Pièce Jointe

Merci d'avance.

Everlast03 · 25 Octobre 2010

Re : Liste déroulante (ComboBox) contenant date

Toujours personne ?

kjin · 25 Octobre 2010

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

Liste déroulante (ComboBox) contenant date

Everlast03

XLDnaute Occasionnel

Pièces jointes

Pierrot93

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Everlast03

XLDnaute Occasionnel

Everlast03

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Everlast03

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Everlast03

XLDnaute Occasionnel

ChTi160

XLDnaute Barbatruc

Everlast03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Everlast03

XLDnaute Occasionnel

Everlast03

XLDnaute Occasionnel

kjin

XLDnaute Barbatruc

Pièces jointes

Discussions similaires