Affichage du mois en cours

Bonjour,

J'ai des données sur une feuille Excel avec des dates et des noms de personnes. Ces données sont alimentées au fil de l'année. Je souhaite pouvoir extraire sur une autre feuille de calcul uniquement les données relatives au mois en cours. Quelqu'un a-t-il une idée de la manière de procéder (parce que je sèche un peu là ).

Merci de m'accorder un peu de votre précieux temps.

Cordialement

Adikt

Hello Adikt,

J'ai un bout de macro dans ce genre, mais ça serait plus pratique si tu nous envoyais un exemple de ton fichier, pour qu'on puisse voir la tête des données et leur place.

Tu peux utiliser cjoint.com ou si c'est pas très lourd directement un post, il y a un onglet en dessous de la boite d'édition de message, "ajouter des fichiers joints".

Bonsoir à tous,

Un filtre élaboré fera très bien l'affaire,

mais comme dit ReuK, il nous faut le fichier avec sa structure réelle,

pas besoin de toutes les lignes, anonymise les données si besoin.

Amicalement

Claude

Bonjour,

Merci pour vos réponses. J'annexe à ce message un fichier qui devrait mieux illustrer ma demande.

Encore merci pour votre disponibilité

Bonne journée

Adikt

Bonjour à tous,

Sub FiltreMois() 'mois en cours
    Application.ScreenUpdating = False
            Range("k2") = "=MONTH(a2)=MONTH(TODAY())" 'critère
    With Sheets("Mois en cours")
            Range("a1:g" & [a65000].End(xlUp).Row).AdvancedFilter _
            Action:=xlFilterCopy, CriteriaRange:=Range("k1:k2"), CopyToRange:= _
        .Range("a1:g1"), Unique:=False
            Range("k2").ClearContents
        .Activate
    End With
End Sub

Amicalement

Claude

Salut,

Parfait, merci. Peux-tu juste m'expliquer comment tu as procédé? J'ai vu qu'il y avait un code pour l'onglet mais comment as-tu fais pour le bouton "mois en cours"? Encore merci

Bonne journée

Adikt

re,

Pour le bouton,

tu dessine un rectangle et tu lui affecte la macro,

tu écris dans ce rectangle ce que tu veux et le colore à ton gout, c'est tout

Claude

Ok, merci pour toutes ces infos et pour ta disponibilité.

Cordialement

Adikt

-- 07 Juil 2011, 13:41 --

... et j'abuse un peu, mais si je veux que l'affichage se fasse directement de manière chronologique sur la feuille "mois en cours", que dois-je rajouter dans ton code?

Cordialement

Adikt

Bonjour,

Si tu veux partir de la feuille "Mois en cours"

Sub FiltreMois() 'mois en cours
    Application.ScreenUpdating = False
    With Sheets("Saisie")
        .Range("k2") = "=MONTH(a2)=MONTH(TODAY())" 'critère
        .Range("a1:g" & .[a65000].End(xlUp).Row).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=.Range("k1:k2"), CopyToRange:= _
        Sheets("Mois en cours").Range("a1:g1"), Unique:=False
        .Range("k2").ClearContents
    End With
End Sub

L'ordre chronologique est celui de la base, maintenant on peut rajouter un tri, si tu veux ?

Amicalement

Claude