Liste déroulante (ComboBox) contenant date

Pierrot93

XLDnaute Barbatruc

• 20 Octobre 2010

• #2

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
@+

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Octobre 2010

• #3

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

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



Bonne journée

 

Dernière édition: 20 Octobre 2010

Vote positif 0 Vote négatif

E

Everlast03

XLDnaute Occasionnel

• 20 Octobre 2010

• #4

Re : Liste déroulante (ComboBox) contenant date

Voici le fichier en pièce jointe : PJ

Merci d'avance 😛

 

Vote positif 0 Vote négatif

E

Everlast03

XLDnaute Occasionnel

• 20 Octobre 2010

• #5

Re : Liste déroulante (ComboBox) contenant date

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

 

Dernière édition: 20 Octobre 2010

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Octobre 2010

• #6

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

 

Vote positif 0 Vote négatif

E

Everlast03

XLDnaute Occasionnel

• 20 Octobre 2010

• #7

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Octobre 2010

• #8

Re : Liste déroulante (ComboBox) contenant date

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

 

Vote positif 0 Vote négatif

E

Everlast03

XLDnaute Occasionnel

• 20 Octobre 2010

• #9

Re : Liste déroulante (ComboBox) contenant date

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 20 Octobre 2010

• #10

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

 

Vote positif 0 Vote négatif

E

Everlast03

XLDnaute Occasionnel

• 25 Octobre 2010

• #11

Re : Liste déroulante (ComboBox) contenant date

Bonjour,

toujours pas de réponse ?

Help please 😱 !

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 25 Octobre 2010

• #12

Re : Liste déroulante (ComboBox) contenant date

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

 

Dernière édition: 25 Octobre 2010

Vote positif 0 Vote négatif

E

Everlast03

XLDnaute Occasionnel

• 25 Octobre 2010

• #13

Re : Liste déroulante (ComboBox) contenant date

Oui tiens : Pièce Jointe

Merci d'avance.

 

Vote positif 0 Vote négatif

E

Everlast03

XLDnaute Occasionnel

• 25 Octobre 2010

• #14

Re : Liste déroulante (ComboBox) contenant date

Toujours personne 🙁 ?

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 25 Octobre 2010

• #15

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

 

Pièces jointes

• Tiens.zip

  18.2 KB · Affichages: 66

Vote positif 0 Vote négatif