Discussion :

[johannj]

Bonjour le forum,

Une petite question, assez bête je pense.

Je souhaite supprimer plusieurs colonnes de mon classeur et aimerais faire qu'une seule ligne de commande
J'ai donc penseé à la commande delete, que j'aimerai appliquer sur plusieurs colonnes, genre:

Code :

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

Columns(1,2,3).Delete

Mais ce code ne fonctionne pas et je ne sais pas si cela peut fonctionner ainsi.

Après avoir enregistré une macro, je m'apercois que le code sorti est du style:

Code :

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

Range("C:C,D:D,E:E,I:I,J:J").delete

Ma question est donc de savoir si je suis obligé de passer le second code ou pas?

[Didier Gonard]

Bonjour,

Code :

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

Columns("C:G").delete

Propriété Columns telle qu'elle s'applique à l'objet Range :

Cette propriété renvoie un objet Range qui représente les colonnes figurant dans la plage spécifiée. En lecture seule.

cordialement,

Didier

[Domimart]

Bonjour,

Si vos colonnes à supprimer sont toujours les mêmes alors en effet
vous devez passer par le deuxième code :

Code :

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

1
2
 
Range("K:M,O:O,Q:Q").Delete

Cdlt

[johannj]

Merci de vos réponses.

Ormonth, juste pour info: dans le cas ou les colonnes ne se suivent pas, le code suivant est-il bon?

Code :

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

Columns("A:A, C:F, P:Q").Delete

Johann

[Didier Gonard]

Ormonth, juste pour info: dans le cas ou les colonnes ne se suivent pas, le code suivant est-il bon?

Code :

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

Columns("A:A, C:F, P:Q").Delete

Non ! car plage discontinue :

.Lorsqu'elle est appliquée à un objet Range constituant une sélection à zones multiples, cette propriété renvoie des colonnes uniquement à partir de la première zone de la plage. Par exemple, si l'objet Range possède deux zones — A1:B2 et C34 — Selection.Columns.Count renvoie la valeur 2, pas 4. .../...

cf aide vba


ps : si tu veux utiliser cette syntaxe (qui est fausse) :

Code :

Columns(1,2,3).Delete

Tu passes par les numéros d'index de la collection de colonnes, tu ne peut donc en citer qu'un seul. Pour des colonnes jointes, une boucle for i = x to Y columns(i) fait l'affaire. Après ça devient plus lourd.
Fonction de contexte, s'i y a beaucoup de colonnes et 3 ou 4 à éviter, ce peut être intéressant d'utiliser la boucle et d'exclure les non voulues avec un filtre ( If Then).
cordialement,

Didier

[johannj]

Merci de ta réponse,

Johann