Raz des menus déroulants dans un TD

Utilisateur anonyme -  
 Utilisateur anonyme -
Bonjour,
Suivant le choix dans chaque menu deroulant d'entités à l'aide de coches et decoches, differentes infos en resultent
sous forme de TD.
Jaimerai creer un bouton asservi à une macro qui me decocherait toutes les cases pour fairz un RAZ du tableau.
Pour que la personne suivante puisse s'en servir sans se gratter la tête lol...
Merci de votre aide...
NB: j'ai bien entendu essayer mais elle ne décroche qu'une partie de tout mes menus déroulants.
Surtout que je travaille sur 2 onglets différent c'est-à-dire 2 tableaux.

Configuration: Android / Chrome 71.0.3578.99


--
MG

3 réponses

  1. rEVOLV3r Messages postés 223 Date d'inscription   Statut Membre Dernière intervention   28
     
    Bonjour,

    Cadeau de Noel juste pour vous ;-)
    Si j'ai bien compris votre demande, cette macro reset chaque filtre de chaque TCD de chaque page du classeur.

    Public Sub Reset_PivotTables()
    Dim ws As Worksheet
    Dim pivT As PivotTable
    Dim pivF As PivotField
    On Error Resume Next

    For Each ws In ThisWorkbook.Worksheets
    For Each pivT In ws.PivotTables
    ws.Activate
    For Each pivF In pivT.PivotFields
    ActiveSheet.PivotTables(pivT.Name).PivotFields(pivF.Name).ClearAllFilters
    ActiveSheet.PivotTables(pivT.Name).PivotFields(pivF.Name).CurrentPage = "(All)"
    Next pivF
    Next pivT
    Next ws
    End Sub

    Bonnes fêtes de fin d'année
    0
  2. Utilisateur anonyme
     
    Euh...
    Mettez vous à ma place je suis de nuit je viens de me réveiller et je vois des lignes de programmation .
    Je me rendors de suite lol.
    En faite je ne pisse pas des lignes.Ce n'est pas mon langage de prédilection .mdr.
    La macro me permet de faire en auto la serie d'actions manuelle que j'enregistre sous le terme RAZ....
    Donc je presume sue je ne peux pas faire un copier coller...lol..
    Il ya des variables a claquer de part et d'autres.
    Je vais essayer de vous envoyer un imprim écran.
    Merci de votre aide
    0
  3. Utilisateur anonyme
     
    Cela ne fonctionne pas du tout.
    0