Discussion :

[quentin.vba]

Bonjour à tous ,

Je sais que ce sujet a déjà été abordé de nombreuses fois sur ce forum mais ne trouve malheureusement pas de solution à mon problème en parcourant les posts existants et bloque stupidement.

J'ai un fichier avec de trop nombreuses données alors que quelques colonnes me suffiraient. Je souhaite donc supprimer systématiquement les colonnes inutiles.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public Sub Suppr_Colonnes()
 
   ActiveWorkbook.ActiveSheet.Range("A:A,C:K,P:Z,AA:AC,AF:AM,AO:AS,AV:AY,BC:BR,BU:BX,CB:DT,DW:EE,EG:EP,ER:GZ").Delete
 
End Sub

Quelqu'un sait-il d'où vient le problème ? (peut être de l'appelation des colonnes en "double lettre" ???)

Merci par avance,

Quentin

[unparia]

Bonjour
Et quel problème rencontres-tu avec ce code ?J Une erreur ? autre (et quoi ?) ?

[eric4459]

Bonjour Quentin,
Même question que celle de Unparia, qu'est-ce qui ne fonctionne pas ? car code testé chez moi sans soucis, le colonnes voulues sont supprimées.
Eric

[quentin.vba]

Pardon, j'avais oublié de mettre le message d'erreur !

"Erreur d'exécution 1004 : la méthode Delete de la classe Range a échoué"

Ca ira probablement mieux avec cette indication

[eric4459]

Bonsoir,
Sur Excel 2010 ce code fonctionne et voici ce que me donne l'enregistreur de macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("PA:PM,PU:PY,EF:EJ,DS:DV").Select
    Range("DS1").Activate
    Selection.Delete Shift:=xlToLeft

en épurant on obtient quelque chose de similaire à ce que tu as dans ton code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("PA:PM,PU:PY,EF:EJ,DS:DV").Delete

Eric

[joe.levrai]

Bonjour,

mis à part le fait que tes deux zones P:Z,AA:AC sont contigües et que du coup P:AC ça marche aussi bien ... Est-ce que manuellement tu arrives à faire cette opération ? Sélectionner tes groupes de colonnes et les supprimer toutes d'un coup ?

aucune protection sur la feuille ?

la feuille active du classeur actif est bien une feuille de calcul ? Pas une feuille de graphique ? Car ton code travaille (chose déconseillée) sur des objets actifs