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

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2022

• #2

Bonjour Fenec,
Pourquoi pas simplement un format de cellule personnalisé "mmmm aaaa" comme en G3:K3 ?

 

Vote positif 0 Vote négatif

micheldu52

XLDnaute Occasionnel

• 12 Février 2022

• #3

Bonjour,

En C4 (par exemple) tape
=TEXTE(B4;"MMMM")
et tu auras ce que tu cherches!

Cordialement
Michel

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Février 2022

• #4

Bonjour sylvanu, micheldu52,

En G3:K3 c'est le résultat attendu.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Février 2022

• #5

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

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 12 Février 2022

• #6

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

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Février 2022

• #7

Re,
Ci joint un fichier plus complet pour que m'a demande soit plus compréhensive j'espère.

@JHA
Merci pour votre participation, je regarde votre proposition

 

Pièces jointes

• EXEMPLE FORUM.xlsm

  19.9 KB · Affichages: 2

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Février 2022

• #8

Re,
@JHA
Votre solution fonctionne mais je ne comprends pas pourquoi mes calculs sont décalés de trois mois!!!

 

Pièces jointes

• EXEMPLE FORUM SOLUTION JHA.xlsm

  20.3 KB · Affichages: 5

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 13 Février 2022

• #9

Bonjour à tous,

modification des formules

JHA

 

Pièces jointes

• EXEMPLE FORUM SOLUTION JHA.xlsm

  19.6 KB · Affichages: 6

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 13 Février 2022

• #10

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.

 

Vote positif 0 Vote négatif

Solution

chris

XLDnaute Barbatruc

• 13 Février 2022

• #11

Bonjour à tous

En ajoutant une colonne à la source, faisable par un simple TCD

Une solution PowerQuery ci joint

 

Pièces jointes

• solde_dépense.xlsm

  31.6 KB · Affichages: 3

Vote positif 0 Vote négatif