ComboBox années

Bonjour à tous,

Je coince sur un ComboBox (liste années)

Je n'arrive pas à écrire le bon code !

https://www.excel-pratique.com/~files/doc/combobox_annee.xls

Pouvez-vous m'aider.

amicalement

Claude.

Salut Claude

Peut être

ComboBox1.Value = Format(ComboBox1.Value, "dd/mm/yyyy")

A+

Amadéus

Bonjour, Claude

& Amadéus

essaie avec ce code :

Dim Deja_Fait As Boolean
Private Sub ComboBox1_Change()
If Deja_Fait Then Deja_Fait = False: Exit Sub
Deja_Fait = True
ComboBox1.Value = Year(Me.ComboBox1)
End Sub

re,

Merci à vous deux,

https://www.excel-pratique.com/~files/doc/combobox_annee2.xls

Je ne n'en sort pas, çà me prend la tête, je sors faire un tour !

pourriez-vous me retourner un fichier qui marche ?

à tout à l'heure

Claude.

Re-,

dans ton fichier, dans l'évènement de la feuille 1

Dim Deja_Fait As Boolean
Private Sub ComboBox1_Change()
If Deja_Fait Then Deja_Fait = False: Exit Sub
Deja_Fait = True
ComboBox1.Value = Year(Me.ComboBox1)
[B1] = CDate("01/01/" & Me.ComboBox1)
If [F1] >= [B1] Then
    [G1] = [datedif(B1,F1,"y")]
Else
    [G1] = -[datedif(F1,B1,"y")]
End If
End Sub

re,

Merci felix,

Là, c'est bon, mais je me demande si c'est la démarche normale, ou si j'ai demandé

quelque chose d'extraordinaire !

Avec ton code, il n'y a plus besoin de cellule liée dans "propriété combo" , normal ?

En tout cas, çà fonctionne, sauf que je n'ai pas trouvé pour mettre le fond en couleur.

à+......Claude.

édit : mon fichier fait 580Ko, une fois zipé il fera + de 100K , comment l'envoyer ?

sauf que je n'ai pas trouvé pour mettre le fond en couleur.

Re-,

je ne vois pas.....

ceci ne faisait pas partie de ta question initiale.....

Si positif, ou négatif?

regarde au niveau des MEFC, donc sans macro, peut-être?

Avec ton code, il n'y a plus besoin de cellule liée dans "propriété combo" , normal ?

Normal, je ne sais pas, mais sûrement un choix, de ma part, qu'il est sans doute possible d'améliorer

Bonsoir Claude, Félix

mon fichier fait 580Ko, une fois zipé il fera + de 100K , comment l'envoyer ?

http://cjoint.com/

Jusqu'à 500 Ko et généreusement offert. Validité du joint créè 3 semaines.

Cordialement

re,

felix,

je parlais de la couleur du combobox.

Amadéus,

C'est un fichier que je comptais mettre à dispo sur le forum dans "Applications Excel"

donc le coup des 3 semaines, çà va pas !

N'y-a t-il pas un autre moyen ?

merci à vous deux

Claude.

Bonsoir Claude

Je vais poser la question à Sébastien.

Cordialement

EDit: C'est fait. Il te répondra probablement directement.

Re-,

t'es bien vu, Claude

j'ai mis un fichier "Jeu" sur un fil, deviner les capitales, ou les pays, suite à une question...

Et demandé l'aide d'un modérateur pour faire partager ce fichier, mais bon.....

Bonsoir,

Tu peux m'envoyer le fichier par email.

Je l'y ajouterai manuellement.

Cordialement,

re,

le fichier est parti.

merci à tous,

amicalement

Claude.