Discussion :

[graphikris]

Bonjour,
Je cherche a convertir le mois d'une date en texte afin d'obtenir une liste déroulante (sans doublon) des mois faisant partis de ma base de données ainsi que les années.

Ex : La colonne B contient des dates sous le format jj/mm/aaaa

Je voudrais créer une liste déroulante en C1 par exemple (ou autre part) dans laquelle apparaitrait les mois de la colonne B sans doublon.
et en D1 par exemple les années sans doublon

B2 : 31/12/2013
B3 : 28/05/2014
B4 : 25/12/2014
B5 : 12/12/2013

Ceci afin de me permettre de faire des graphiques dynamiques en sélectionnant d'abord le mois puis l'année.

Cordialement

[clementmarcotte]

Bonjour,

Bonjour,
Je cherche a convertir le mois d'une date en texte afin d'obtenir une liste déroulante (sans doublon) des mois faisant partis de ma base de données ainsi que les années.

Ex : La colonne B contient des dates sous le format jj/mm/aaaa

Je voudrais créer une liste déroulante en C1 par exemple (ou autre part) dans laquelle apparaitrait les mois de la colonne B sans doublon.
et en D1 par exemple les années sans doublon

B2 : 31/12/2013
B3 : 28/05/2014
B4 : 25/12/2014
B5 : 12/12/2013

Ceci afin de me permettre de faire des graphiques dynamiques en sélectionnant d'abord le mois puis l'année.

Cordialement

Vite fait et non testé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function MoisEnTexte( laDate as date)
dim unedate as string
unedate = Cstr(ladate)
dim tableau as string
tableau = Split(unedate, "/")
dim lemois as integer
lemois = cint(tableau(2))
dim lemoisentexte as string
lemoisentexte= choose(lemois, "janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","Décembre")
MoisEnTexte=lemoisentexte
end function

Désolé pour l'indentation, je manque de temps.

[graphikris]

Bonjour et merci

mais je met où dans Vba cette fonction ? Feuil 1 ou ThisWorkbook ?

Ensuite que dois mettre dans ma liste deroulante ?

C'est gentil de votre part mais pour moi c'est trop vague.

Cordialement

[clementmarcotte]

Bonjour et merci

mais je met où dans Vba cette fonction ? Feuil 1 ou ThisWorkbook ?

Ensuite que dois mettre dans ma liste deroulante ?

C'est gentil de votre part mais pour moi c'est trop vague.

Cordialement

Voici, une version testée et corrigée. Là, je l'ai mis comme fonction de feuille de calcul. Avec un peu d'effort d'apprentissage, et l'enregistreur de macros, tu es capable d'avoir une macro qui va balayer un plage de cellules et envoyer la contenu de la cellule à la fonction.

Le but de ce forum n'est pas de fournir gratuitement un code complet clef-en-main, mais d'aider le demandeur à le produire.