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

Modeste

XLDnaute Barbatruc

• 13 Avril 2011

• #2

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

Cliquez pour agrandir...

... 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')

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 14 Avril 2011

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2011

• #4

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.

Cliquez pour agrandir...

pour effacaer tous les TCD de la feuille active :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 14 Avril 2011

• #5

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:

Code:

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

 

Dernière édition: 14 Avril 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2011

• #6

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

Re,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2011

• #7

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

Re,

pour toutes les feuilles de calcul du classeur actif :

Code:

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

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 14 Avril 2011

• #8

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,

 

Pièces jointes

• test.xls_du_20110413_au_20110413_genere_20110414_085647.xlsx

  74.7 KB · Affichages: 242

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2011

• #9

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

Re,

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

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 14 Avril 2011

• #10

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

Bonjour,

Voici la version xls (2003).

Merci,

 

Pièces jointes

• test.xls_du_20110413_au_20110413_genere_20110414_085647.xls

  288 KB · Affichages: 189

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2011

• #11

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...

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 14 Avril 2011

• #12

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

Bonjour,

OK, donc je devrais faire quoi?

Merci,

François

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2011

• #13

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

Re,

si tu veux spprimer les feuilles en question :

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 14 Avril 2011

• #14

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

Re,

on peut également procéder ainsi :

Code:

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

 

Vote positif 0 Vote négatif

S

siocnarf

XLDnaute Occasionnel

• 14 Avril 2011

• #15

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

Bonjour,

Ça marche!

Merci,

 

Vote positif 0 Vote négatif