Je cherche comment faire:
1- depuis l'interface utilisateur
2- Mais aussi par code vba. Je ne voit pas de méthode du genre
ActiveSheet.PivotTables.Remove(index)
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
CAP2
Salut,
en interface Excel, tusélectionnes les lignes sur lesquelles ton tableau est palcé, puis Edition/Supprimer.
Sur VBA, ça revient au même, tu fais :
Sub Efface() ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", _ xlDataAndLabel, True Selection.Delete Shift:=xlUp Range("A1").Select End Sub
Ca marche ?
CAP2
Salut,
en interface Excel, tusélectionnes les lignes sur lesquelles ton tableau est
palcé, puis Edition/Supprimer.
Sur VBA, ça revient au même, tu fais :
Sub Efface()
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", _
xlDataAndLabel, True
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
en interface Excel, tusélectionnes les lignes sur lesquelles ton tableau est palcé, puis Edition/Supprimer.
Sur VBA, ça revient au même, tu fais :
Sub Efface() ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", _ xlDataAndLabel, True Selection.Delete Shift:=xlUp Range("A1").Select End Sub
Ca marche ?
CAP2
Philippe Pons
Oui, ça marche. Merci. Philippe
"CAP2" a écrit dans le message de news:
Salut,
en interface Excel, tusélectionnes les lignes sur lesquelles ton tableau est
palcé, puis Edition/Supprimer.
Sur VBA, ça revient au même, tu fais :
Sub Efface() ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", _ xlDataAndLabel, True Selection.Delete Shift:=xlUp Range("A1").Select End Sub
Ca marche ?
CAP2
Oui, ça marche. Merci. Philippe
"CAP2" <No_SpamCAP2@jzerhethth.fr> a écrit dans le message de
news:evxDNtdjFHA.2472@TK2MSFTNGP10.phx.gbl...
Salut,
en interface Excel, tusélectionnes les lignes sur lesquelles ton tableau
est
palcé, puis Edition/Supprimer.
Sur VBA, ça revient au même, tu fais :
Sub Efface()
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", _
xlDataAndLabel, True
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub
en interface Excel, tusélectionnes les lignes sur lesquelles ton tableau est
palcé, puis Edition/Supprimer.
Sur VBA, ça revient au même, tu fais :
Sub Efface() ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotSelect "", _ xlDataAndLabel, True Selection.Delete Shift:=xlUp Range("A1").Select End Sub
