bonsoir,
Je cherche à faire une macro en visual basic qui permette de décocher ou de
cocher la totalité des enregistrements dans les listes déroulantes des
tableaux croisés dynamiques.
Quelqu'un peut il m'aider.
D'avance merci
Au revoir.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
Salut
il doit y avoir au moins un élément visible cache tout sauf le 1er (que je pense être en ligne 5 - à adapter éventuellement-) With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(1) For i = [A65536].End(xlUp).Row - 1 To 6 Step -1 .PivotItems(Cells(i, 1).Text).Visible = False Next End With
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Paul S" a écrit dans le message de news:404637d5$0$5909$
bonsoir, Je cherche à faire une macro en visual basic qui permette de décocher ou de
cocher la totalité des enregistrements dans les listes déroulantes des tableaux croisés dynamiques. Quelqu'un peut il m'aider. D'avance merci Au revoir.
Salut
il doit y avoir au moins un élément visible
cache tout sauf le 1er (que je pense être en ligne 5 - à adapter
éventuellement-)
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(1)
For i = [A65536].End(xlUp).Row - 1 To 6 Step -1
.PivotItems(Cells(i, 1).Text).Visible = False
Next
End With
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)
"Paul S" <paul.sanchez@club-internet.fr> a écrit dans le message de
news:404637d5$0$5909$7a628cd7@news.club-internet.fr...
bonsoir,
Je cherche à faire une macro en visual basic qui permette de décocher ou
de
cocher la totalité des enregistrements dans les listes déroulantes des
tableaux croisés dynamiques.
Quelqu'un peut il m'aider.
D'avance merci
Au revoir.
il doit y avoir au moins un élément visible cache tout sauf le 1er (que je pense être en ligne 5 - à adapter éventuellement-) With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields(1) For i = [A65536].End(xlUp).Row - 1 To 6 Step -1 .PivotItems(Cells(i, 1).Text).Visible = False Next End With
a+ rural thierry Veaux et Broutards d'Anjou Wicasa on kin nape yapi inahni yo (à l'essai)
"Paul S" a écrit dans le message de news:404637d5$0$5909$
bonsoir, Je cherche à faire une macro en visual basic qui permette de décocher ou de
cocher la totalité des enregistrements dans les listes déroulantes des tableaux croisés dynamiques. Quelqu'un peut il m'aider. D'avance merci Au revoir.
gee-dee-
re-Bonsoir, soit un peu plus précis dans tes demandes..... cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") '------------il est nécessaire qu'au moins un pivotitem soit visible For x = .PivotItems.Count To 2 Step -1 .PivotItems(x).Visible = False Next End With End Sub
Sub Tous() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") For x = 1 To .PivotItems.Count .PivotItems(x).Visible = True Next End With End Sub
@+
"Paul S" a écrit dans le message de news:404637d5$0$5909$
bonsoir, Je cherche à faire une macro en visual basic qui permette de décocher ou de
cocher la totalité des enregistrements dans les listes déroulantes des tableaux croisés dynamiques. Quelqu'un peut il m'aider. D'avance merci Au revoir.
re-Bonsoir,
soit un peu plus précis dans tes demandes.....
cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul()
With ActiveSheet.PivotTables("Tableau croisé
dynamique2").PivotFields("ChampB")
'------------il est nécessaire qu'au moins un pivotitem soit visible
For x = .PivotItems.Count To 2 Step -1
.PivotItems(x).Visible = False
Next
End With
End Sub
Sub Tous()
With ActiveSheet.PivotTables("Tableau croisé
dynamique2").PivotFields("ChampB")
For x = 1 To .PivotItems.Count
.PivotItems(x).Visible = True
Next
End With
End Sub
@+
"Paul S" <paul.sanchez@club-internet.fr> a écrit dans le message de
news:404637d5$0$5909$7a628cd7@news.club-internet.fr...
bonsoir,
Je cherche à faire une macro en visual basic qui permette de décocher ou
de
cocher la totalité des enregistrements dans les listes déroulantes des
tableaux croisés dynamiques.
Quelqu'un peut il m'aider.
D'avance merci
Au revoir.
re-Bonsoir, soit un peu plus précis dans tes demandes..... cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") '------------il est nécessaire qu'au moins un pivotitem soit visible For x = .PivotItems.Count To 2 Step -1 .PivotItems(x).Visible = False Next End With End Sub
Sub Tous() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") For x = 1 To .PivotItems.Count .PivotItems(x).Visible = True Next End With End Sub
@+
"Paul S" a écrit dans le message de news:404637d5$0$5909$
bonsoir, Je cherche à faire une macro en visual basic qui permette de décocher ou de
cocher la totalité des enregistrements dans les listes déroulantes des tableaux croisés dynamiques. Quelqu'un peut il m'aider. D'avance merci Au revoir.
Paul.S
Bonjour, merci pour votre aide je vais tenter la procédure dès que possible. A bientôt. Paul "gee-dee-" a écrit dans le message de news:
re-Bonsoir, soit un peu plus précis dans tes demandes..... cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") '------------il est nécessaire qu'au moins un pivotitem soit visible
For x = .PivotItems.Count To 2 Step -1 .PivotItems(x).Visible = False Next End With End Sub
Sub Tous() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") For x = 1 To .PivotItems.Count .PivotItems(x).Visible = True Next End With End Sub
@+
"Paul S" a écrit dans le message de news:404637d5$0$5909$
bonsoir, Je cherche à faire une macro en visual basic qui permette de décocher ou de
cocher la totalité des enregistrements dans les listes déroulantes des tableaux croisés dynamiques. Quelqu'un peut il m'aider. D'avance merci Au revoir.
Bonjour,
merci pour votre aide je vais tenter la procédure dès que possible.
A bientôt.
Paul
"gee-dee-" <nomail@nomail.com> a écrit dans le message de news:
OIrN51WAEHA.3940@TK2MSFTNGP11.phx.gbl...
re-Bonsoir,
soit un peu plus précis dans tes demandes.....
cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul()
With ActiveSheet.PivotTables("Tableau croisé
dynamique2").PivotFields("ChampB")
'------------il est nécessaire qu'au moins un pivotitem soit
visible
For x = .PivotItems.Count To 2 Step -1
.PivotItems(x).Visible = False
Next
End With
End Sub
Sub Tous()
With ActiveSheet.PivotTables("Tableau croisé
dynamique2").PivotFields("ChampB")
For x = 1 To .PivotItems.Count
.PivotItems(x).Visible = True
Next
End With
End Sub
@+
"Paul S" <paul.sanchez@club-internet.fr> a écrit dans le message de
news:404637d5$0$5909$7a628cd7@news.club-internet.fr...
bonsoir,
Je cherche à faire une macro en visual basic qui permette de décocher ou
de
cocher la totalité des enregistrements dans les listes déroulantes des
tableaux croisés dynamiques.
Quelqu'un peut il m'aider.
D'avance merci
Au revoir.
Bonjour, merci pour votre aide je vais tenter la procédure dès que possible. A bientôt. Paul "gee-dee-" a écrit dans le message de news:
re-Bonsoir, soit un peu plus précis dans tes demandes..... cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") '------------il est nécessaire qu'au moins un pivotitem soit visible
For x = .PivotItems.Count To 2 Step -1 .PivotItems(x).Visible = False Next End With End Sub
Sub Tous() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") For x = 1 To .PivotItems.Count .PivotItems(x).Visible = True Next End With End Sub
@+
"Paul S" a écrit dans le message de news:404637d5$0$5909$
bonsoir, Je cherche à faire une macro en visual basic qui permette de décocher ou de
cocher la totalité des enregistrements dans les listes déroulantes des tableaux croisés dynamiques. Quelqu'un peut il m'aider. D'avance merci Au revoir.
Paul.S
Merci encore beaucoup , Terminé les manipulations fastidieuses des cases à cocher "Paul.S" a écrit dans le message de news: c27cr4$9rl$
Bonjour, merci pour votre aide je vais tenter la procédure dès que possible. A bientôt. Paul "gee-dee-" a écrit dans le message de news:
re-Bonsoir, soit un peu plus précis dans tes demandes..... cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") '------------il est nécessaire qu'au moins un pivotitem soit visible
For x = .PivotItems.Count To 2 Step -1 .PivotItems(x).Visible = False Next End With End Sub
Sub Tous() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") For x = 1 To .PivotItems.Count .PivotItems(x).Visible = True Next End With End Sub
@+
"Paul S" a écrit dans le message de news:404637d5$0$5909$
bonsoir, Je cherche à faire une macro en visual basic qui permette de décocher ou
de
cocher la totalité des enregistrements dans les listes déroulantes des tableaux croisés dynamiques. Quelqu'un peut il m'aider. D'avance merci Au revoir.
Merci encore beaucoup ,
Terminé les manipulations fastidieuses des cases à cocher
"Paul.S" <paul.sanchez@club-internet.fr> a écrit dans le message de news:
c27cr4$9rl$1@news-reader4.wanadoo.fr...
Bonjour,
merci pour votre aide je vais tenter la procédure dès que possible.
A bientôt.
Paul
"gee-dee-" <nomail@nomail.com> a écrit dans le message de news:
OIrN51WAEHA.3940@TK2MSFTNGP11.phx.gbl...
re-Bonsoir,
soit un peu plus précis dans tes demandes.....
cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul()
With ActiveSheet.PivotTables("Tableau croisé
dynamique2").PivotFields("ChampB")
'------------il est nécessaire qu'au moins un pivotitem soit
visible
For x = .PivotItems.Count To 2 Step -1
.PivotItems(x).Visible = False
Next
End With
End Sub
Sub Tous()
With ActiveSheet.PivotTables("Tableau croisé
dynamique2").PivotFields("ChampB")
For x = 1 To .PivotItems.Count
.PivotItems(x).Visible = True
Next
End With
End Sub
@+
"Paul S" <paul.sanchez@club-internet.fr> a écrit dans le message de
news:404637d5$0$5909$7a628cd7@news.club-internet.fr...
bonsoir,
Je cherche à faire une macro en visual basic qui permette de décocher
ou
de
cocher la totalité des enregistrements dans les listes déroulantes des
tableaux croisés dynamiques.
Quelqu'un peut il m'aider.
D'avance merci
Au revoir.
Merci encore beaucoup , Terminé les manipulations fastidieuses des cases à cocher "Paul.S" a écrit dans le message de news: c27cr4$9rl$
Bonjour, merci pour votre aide je vais tenter la procédure dès que possible. A bientôt. Paul "gee-dee-" a écrit dans le message de news:
re-Bonsoir, soit un peu plus précis dans tes demandes..... cela fait déja 3 évolutions de spécifications !
les noms entre "quotes" sont à adapter
Sub UnSeul() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") '------------il est nécessaire qu'au moins un pivotitem soit visible
For x = .PivotItems.Count To 2 Step -1 .PivotItems(x).Visible = False Next End With End Sub
Sub Tous() With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ChampB") For x = 1 To .PivotItems.Count .PivotItems(x).Visible = True Next End With End Sub
@+
"Paul S" a écrit dans le message de news:404637d5$0$5909$
bonsoir, Je cherche à faire une macro en visual basic qui permette de décocher ou
de
cocher la totalité des enregistrements dans les listes déroulantes des tableaux croisés dynamiques. Quelqu'un peut il m'aider. D'avance merci Au revoir.
