récupérer les mois dans une feuille excel

Re : récupérer les mois dans une feuille excel

Bonsoir cocotte38, bienvenue sur le forum,

Voici une méthode sans macro :

1) Définir le nom "mois" (menu Insertion-Nom) par la formule :

=DATE(2008;LIGNE();1)

2) Si votre tableau est la plage A1: D100, entrer en F1 la formule :

=TEXTE(mois;"mmm.aa ")&SOMMEPROD(1*(TEXTE(mois;"m/aaaa")=TEXTE($B$1:$D$100;"m/aaaa")))

ou encore celle-ci :

=TEXTE(mois;"mmm.aa ")&SOMMEPROD(1*(mois=$B$1:$D$100-JOUR($B$1:$D$100)+1))

puis tirer vers le bas.

Le nom "mois" permet d'alléger la formule (où l'on pourrait le remplacer), mais il présente un autre intérêt : il suffit de le modifier pour changer le mois de départ ou la ligne de la 1ère cellule.

Bonne nuit et A+

EDITION : dans une macro, il suffit d'introduire l'une ou l'autre des formules, correctement traduites. Par exemple pour entrer la valeur calculée dans la cellule active :
ActiveCell = Format([mois], "mmm.yy ") & Evaluate("SUMPRODUCT(1*(mois=B1:$D100-DAY(B1:$D100)+1))")
(le $ n'est pas nécessaire, c'est pour éviter le smiley)

Re : récupérer les mois dans une feuille excel

Bonjour,

Saisir par exemple à partir A5 les valeurs dans la première colonne du tableau récapitulatif sous forme de dates du type 01/01/2008 au format "mmm aa" pour obtenir janv 08

Dans la cellule voisine B5 la formule :
=SOMMEPROD((ANNEE($B$1:$D$3)=ANNEE(A5))*(MOIS($B$1:$D$3)=MOIS(A5)))
à copier vers le bas.

abcd

Re : récupérer les mois dans une feuille excel

Bonjour à tous,

@abcd : sans doute as-tu raison, j'ai mis le résultat dans une seule et même colonne, mais il est en effet plus probable que cocotte veuille 2 colonnes !

Dans ce cas, écrire en F1 simplement :

=DATE(2008;LIGNE();1)

et en G1 (pour ma 2ème formule) :

=SOMMEPROD(1*(F1=$B$1:$D$100-JOUR($B$1:$D$100)+1))

Tirer les 2 cellules vers le bas, puis mettre la colonne F au format personnalisé "mmm.aa"

A+

Re : récupérer les mois dans une feuille excel

Merci à tous, grâce à vous, j'ai pu atteindre mes objectifs !!!!!

Peut-être à bientôt pour de nouvelles aventures excelliennes !