XL 2019 Code VBA

chris

XLDnaute Barbatruc

• 16 Août 2022

• #2

Bonjour

Dans la mesure où Worksheet_Change correspond à la saisie d'une valeur dans une ou n cellules, un TCD ne permettant pas de saisie en dehors éventuellement des étiquettes, je comprends mal ta demande...

Merci de joindre un fichier exemple...

 

Vote positif 0 Vote négatif

M

MarieLN

XLDnaute Nouveau

• 18 Août 2022

• #3

Merci pour votre message. Je vous joins un fichier.

 

Pièces jointes

• Modèle suivi activité.xlsm

  96.1 KB · Affichages: 2

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Août 2022

• #4

Bonjour

Vraiment pas clair

Ce code n'a pas grand sens. Il ne peut y avoir intersection entre 2 feuilles.
Et a quoi sert de tout masquer ?

Peux-tu expliquer très concrètement ce que tu cherches à faire ?

 

Vote positif 0 Vote négatif

M

MarieLN

XLDnaute Nouveau

• 18 Août 2022

• #5

Je souhaite par la suite insérer un second tableau (bd) sous le graphique de la "fiche". Je n'arrive pas à connecter avec un seul segment avec les différents tableaux d'où mon idée de passer par les formules pour masquer les lignes. Je joins un modèle plus avancé.... Il existe sans doute une autre solution, j'ai abandonné celle de power car le fichier rame trop à l'ouverture.
Merci

 

Pièces jointes

• Modèle suivi activité2.xlsm

  102.1 KB · Affichages: 2

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 18 Août 2022

• #6

RE

Tu n'expliques pas concrètement.

J'ai telle situation de départ
je fait telle manip et j'attends tel résultat...

 

Vote positif 0 Vote négatif

M

MarieLN

XLDnaute Nouveau

• 18 Août 2022

• #7

J'ai réalisé un modèle de fiche dans lequel figure les données d'un tableau de données sélectionnées à l'aide d'un segment. Ce segment est également connecté à un graphique. J'utilise les formules index, agregat... dans ma fiche car le TCD ne donne pas autant de souplesse dans la présentation. Avec l'ajout de données dans un 2eme tableau issues d'une autre base de données, je souhaiterais que les lignes = 0 soient masquées par un code VBA lorsque je clique sur un nom du segment, comme le fonctionnement d'un TCD avec un segment. Ce code fonctionnait bien lorsque j'utilisais une listebox mais je n'arrive pas à l'adapter au segment. Si je n'utilise pas plusieurs TCD plutôt que les formules, c'est que je ne sais pas connectés plusieurs TCD de bases de données différentes et la présentation est plus limitée (nombre et largeur de colonne différents entre les deux tableaux).
Est-ce que je suis un peu plus claire dans mes détails ?

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 19 Août 2022

• #8

RE

A noter que tu peux faire un ou n TCD et le ou les exploiter dans un autre tableau de forme libre avec avec LIREDONNEESTABCROISDYNAMIQUE

Supprimer le code dans le module de la feuille Fiche

Dans le module du classeur (j'ai renommé le TCD comme la feuille qui le porte)

VB:

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
    If Sh.Name <> "TCD_Profession" And Target.Name <> "TCD_Profession" Then Exit Sub
    With Worksheets("Fiche")
   
        .Range("A8:A110").EntireRow.Hidden = False
        .Range("B8:B110") = "x"
        For Each Cel In .Range("A8:A110")
            If Cel.Value <> "" And Cel.Value = 0 Then
                Cel.Offset(0, 1) = ""
            End If
        Next
       .Range("b8:b110").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
       .Range("B8:B110") = ""

    End With
End Sub

 

Vote positif 0 Vote négatif

M

MarieLN

XLDnaute Nouveau

• 19 Août 2022

• #9

Merci beaucoup pour le temps passé sur ma demande. J'ai testé le code mais les lignes à 0 ne se filtrent pas. J'avais pensé à reporter les données du TCD sur un tableau libre mais je ne souhaite pas que les lignes vides ou à 0 apparaissent à chaque changement de nom.... quelle galère !!!!!

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 19 Août 2022

• #10

RE

J'ai repris ton code en l'état : xlCellTypeBlanks ce sont les cellules vides pas les cellules à 0

Pourquoi ne pas prévoir un filtre auto sur la colonne A ou B et filtrer une valeur ?

 

Vote positif 0 Vote négatif

M

MarieLN

XLDnaute Nouveau

• 19 Août 2022

• #11

L'ancien code faisait référence à une cellule qui changeait grâce à une liste déroulante, mais cette même cellule fait référence à une formule et c'est pour cette raison que le filtre ne fonctionne plus.
Très bonne idée pour le filtre auto sur la colonne A mais est-ce qu'il peut être utilisé automatiquement avec le segment ? Merci pour tout

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 19 Août 2022

• #12

RE

Non, il faut le coder : ta colonne A est remplie par formule je crois ou constante pour les lignes à toujours afficher et tu remplaces tout ce qui est inutile dans le code après

VB:

With Worksheets("Fiche")

par une réactualisation du filtre qui doit donc toujours être actif

Là il y a plein de formules en erreur donc difficile de voir...

A minima

Code:

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)
    If Sh.Name <> "TCD_Profession" And Target.Name <> "TCD_Profession" Then Exit Sub
    With Worksheets("Fiche")
        .AutoFilter.ApplyFilter
    End With
End Sub

 

Dernière édition: 19 Août 2022

Vote positif 0 Vote négatif

M

MarieLN

XLDnaute Nouveau

• 19 Août 2022

• #13

Merci pour ce retour mais je suis encore novice dans les filtres. J'essaie de me perfectionner avec les forums... je vais tenter de comprendre ce que tu me conseilles....

 

Vote positif 0 Vote négatif