XL pour MAC Extraire les données d'un tableau en fonction du choix de l'année

Phil69970

XLDnaute Barbatruc

• 27 Novembre 2023

• #16

re

Remplace la ligne en jaune par :

VB:

If Worksheets("fildonnees").ListObjects("tbl_fildonnees").AutoFilter.FilterMode Then
    Worksheets("fildonnees").ListObjects("tbl_fildonnees").AutoFilter.ShowAllData
End If

Petite précision :
Tu fais bien tes essais avec MON fichier du post #7 et pas avec TON fichier

 

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 27 Novembre 2023

• #17

Phil69970 à dit:

re

Remplace la ligne en jaune par :

VB:

If Worksheets("fildonnees").ListObjects("tbl_fildonnees").AutoFilter.FilterMode Then
    Worksheets("fildonnees").ListObjects("tbl_fildonnees").AutoFilter.ShowAllData
End If

Petite précision :
Tu fais bien tes essais avec MON fichier du post #7 et pas avec TON fichier

Cliquez pour agrandir...

Voilà c'est fait et cela fonctionne bien. Il n'y a plus l'erreur et c'était bien sur le fichier du post #7
Je vais maintenant copier/coller le code dans mon fichier 🤞

 

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 27 Novembre 2023

• #18

Voilà le fichier exemple modifié si cela peut servir à d'autres personnes.
J'ai copier/coller les codes vba dans le module 1 et dans la Feuil1 de mon fichier et cela fonctionne très bien.
MERCI @Phil69970 pour ton aide, ta patience et ta réactivité.
Cdt
Pilou

 

Pièces jointes

• Copie Filtre par date V2.xlsm

  36.9 KB · Affichages: 6

Dernière édition: 27 Novembre 2023

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 2 Décembre 2023

• #19

Re bonjour à tous, @Phil69970
Je reviens chercher de l'aide... En effet lors de l'élaboration du fichier celui-ci évolue quelque peu !
Dans le fichier joint, j'ai noté ce que je souhaite (avec votre aide indispensable) obtenir.
C'est presque la même demande qu'au départ sauf que maintenant je souhaites afficher les valeurs que d'une colonne. Les essais de manipulations du code que je fais fonctionnent bien mais lors de la copie, impossible de coller que la colonne que je souhaites et de plus la mise en forme 'couleur des cellules et format du texte "sautent" chaque fois.
Désolé de vous importuner encore mais sans votre aide, je suis bloqué.
Cdt
Pilou

 

Pièces jointes

• repilou.xlsm

  88.1 KB · Affichages: 2

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 2 Décembre 2023

• #20

Bonjour @pilou010

Remarque voir la charte



Je te propose ce fichier

 

Pièces jointes

• Copie Filtre par date V4.xlsm

  92.5 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 2 Décembre 2023

• #21

Bonjour pilou010, Phil69970,

Voyez le fichier joint et le code de la feuille "Accueil" :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
[A2].Name = "An"
Application.EnableEvents = False 'désactive les évènements
[L1].Copy [L8:L27] 'RAZ
With [tbl_fildonnees].ListObject.Range
    .Cells(2, .Columns.Count + 2).FormulaR1C1 = "=(YEAR(RC1)=An)*(RC2=""Divers/entretien/dépannage"")"
    .AdvancedFilter xlFilterInPlace, .Cells(1, .Columns.Count + 2).Resize(2) 'filtre avancé
    .Columns(3).Copy [L8]
    .Cells(2, .Columns.Count + 2) = ""
    If .Parent.FilterMode Then .Parent.ShowAllData
End With
Application.EnableEvents = True 'réactive les évènements
End Sub

Il s'exécute automatiquement quand on modifie ou valide une cellule ou qu'on active la feuille.

A+

 

Pièces jointes

• repilou.xlsm

  49.3 KB · Affichages: 5

Vote positif 0 Vote négatif

pilou010

XLDnaute Occasionnel

• 11 Décembre 2023

• #22

Bonjour à tous,
Absent qq jours pour le job, je viens ici pour vous remercier de votre aide.
Avant mon départ j'avais mis en place la dernière proposition de @Phil69970...
Merci à @job75 pour sa proposition que je sauvegarde, on ne sait jamais...
Bonne semaine à tous ! ! !
Pilou

 

Vote positif 0 Vote négatif