XL 2016 Extraire les mois et l'année d'une colonnes dates

fenec

XLDnaute Impliqué
Bonjour le forum,
Je viens vers vous pour une chose qui me paraissait simple au départ mais que je ne parviens pas à faire.
Dans un colonne j'ai des dates, ce que je voudrais obtenir c'est les mois et l'année de ces dates comme dans l'exemple joint.
D'avance merci pour l'aide que vous pourriez m'apporter.
Cordialement,
Philippe.
 

Pièces jointes

  • Extraction mois.xlsx
    10.4 KB · Affichages: 12
Solution
Bonjour le forum, JHA,

J'étais arrivé à modifier les formules en faisant ceci:

VB:
=SIERREUR(SOMMEPROD((MOIS($B6:$B98)=MOIS(AI$3))*($C6:$C98=$AB6)*$J6:$J98);"")

Je vais prendre la votre qui est plus parlantes.

Merci et bon week-end,

Philippe.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
c'était pas très clair.
Donc vous voulez la liste des mois sans doublons ? C'est ça ?
Un essai en VBA avec :
VB:
Sub Tri()
    Dim T, T2(), i%, j%
    Application.ScreenUpdating = False
    T = Range("B4:B" & Range("B65500").End(xlUp).Row)
    ReDim T2(UBound(T))
    For i = 1 To UBound(T)
        T(i, 1) = CDate("01/" & Month(T(i, 1)) & "/" & Year(T(i, 1)))
    Next i
    j = 2: T2(1) = T(1, 1)
    For i = 2 To UBound(T)
        If T(i, 1) <> T(i - 1, 1) Then
            T2(j) = T(i, 1): j = j + 1
        End If
    Next i
    [G3:ZZ3].ClearContents
    j = 1
    While T2(j) <> ""
        Cells(3, j + 6) = T2(j): j = j + 1
    Wend
End Sub
 

Pièces jointes

  • Extraction mois (1).xlsm
    17.8 KB · Affichages: 2

JHA

XLDnaute Barbatruc
Bonjour à tous,

Un essai avec ces formules
En "G3"
VB:
=MOIS.DECALER(FIN.MOIS(MIN(Dates);0);-1)+1
et en "H3"
Code:
=SIERREUR(SI(MAX(Dates)>MOIS.DECALER(G3;1);MOIS.DECALER(G3;1);"");"")
copier vers la droite

JHA
 

Pièces jointes

  • Extraction mois.xlsx
    11 KB · Affichages: 5

fenec

XLDnaute Impliqué
Bonjour le forum, JHA,

J'étais arrivé à modifier les formules en faisant ceci:

VB:
=SIERREUR(SOMMEPROD((MOIS($B6:$B98)=MOIS(AI$3))*($C6:$C98=$AB6)*$J6:$J98);"")

Je vais prendre la votre qui est plus parlantes.

Merci et bon week-end,

Philippe.
 

Discussions similaires

Statistiques des forums

Discussions
312 177
Messages
2 085 972
Membres
103 073
dernier inscrit
MSCHOE16