Sélectionner toutes les colonnes à droite à partir d'un certain point

[siocnarf]

Bonjour,

J'ai une feuille de calcul avec plusieurs tableaux espacé d'une colonne entre chaque. Je souhaiterais supprimer toutes les colonnes à droite de la colonne 13 ou toutes les colonnes à droite de la colonne 13 qui contiennent des données.

Les autres tableaux sont en fait des TCD et je souhaite effacer tous les TCD.

Comment je fais cette passe-passe?

Merci,

 

[Modeste]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Bonsoir siocnarf,

toutes les colonnes à droite de la colonne 13 ou toutes les colonnes à droite de la colonne 13 qui contiennent des données

... Ben, faudrait savoir 🙄
Je ne sais si c'est ce que tu cherches, mais j'essaierais: sélectionner l'en-tête de la colonne 14, Ctrl+Shift+flèche à droite (ce qui devrait sélectionner toutes les colonnes de 14 à 256), puis Ctrl+- (Ctrl+tiret ou Ctrl+'moins')

 

[siocnarf]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Bonsoir,

Je veux réinitiliser ma feuille à partir de la colonne X. Il y a sur la feuille plusieurs tableaux tous espacés d'au moins une colonne. Je souhaite donc, en VBA, tout sélectionner et tout supprimer sauf ce qui se trouve dans les colonnes précédentes de mon point x.

Merci,

François

 

[Pierrot93]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Bonjour siocnarf, Modeste

Les autres tableaux sont en fait des TCD et je souhaite effacer tous les TCD.

pour effacaer tous les TCD de la feuille active :

Option Explicit
Sub test()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
    pt.TableRange2.Clear
Next pt
End Sub

bonne journée
@+

 

[siocnarf]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Bonjour,

Super!
J'ai également beaucoup de graphiques. Y-a-t-il une manière similaire de procéder pour les supprimer?

J'ai essayer ceci:

For Each Legraph In ThisWorkbook.Charts

Legraph.Delete
Next

Mais lors de l'exécution, il n'entre pas dans la boucle. J'imagine que c'est parce que les graphiques sont sur plusieurs pages du classeurs?! Bon je fais quoi?

Merci,

François

 

[Pierrot93]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Re,

essaye ceci pour les graph incorporés de la feuille active :

Dim c As ChartObject
For Each c In ActiveSheet.ChartObjects
    c.Delete
Next c

bon après midi
@+

 

[Pierrot93]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Re,

pour toutes les feuilles de calcul du classeur actif :

Dim ws As Worksheet, c As ChartObject
For Each ws In Worksheets
    For Each c In ws.ChartObjects
        c.Delete
    Next c
Next ws

 

[siocnarf]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Bonjour,

Non, cela ne fonctionne pas. Je mets mon chiffrier en pièce jointe.

Merci,

 

[Pierrot93]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Re,

pas 2007 sous le coude, je ne peux tester....

 

[siocnarf]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Bonjour,

Voici la version xls (2003).

Merci,

 

[Pierrot93]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Re,

A priori, ce ne sont pas des graphiques incorporés sur une feuille de calcul, mais des graphiques sur des feuilles graphiques.... donc si tu supprimes le graph, tu supprimes la feuille graphique...

 

[siocnarf]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Bonjour,

OK, donc je devrais faire quoi?

Merci,

François

 

[Pierrot93]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Re,

si tu veux spprimer les feuilles en question :

Dim ws As Object
Application.DisplayAlerts = False
For Each ws In Sheets
    If ws.Type = 3 Then ws.Delete
Next ws
Application.DisplayAlerts = True

 

[Pierrot93]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Re,

on peut également procéder ainsi :

Sub test2()
Dim ws As Chart
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Charts
    ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

 

[siocnarf]

Re : Sélectionner toutes les colonnes à droite à partir d'un certain point

Bonjour,

Ça marche!

Merci,