[ VBA ] >> Comment supprimer les colonnes d'index 15 jusqu'à la fin ?

[Tchupacabra]

[ VBA ] >> Comment supprimer les colonnes d'index 15 jusqu'à la fin ?

Bonjour à tous,


j'aimerais supprimer toutes les colonnes de droite à partir d'une variable colonne (integer) en VBA.

car je sais faire :

Columns("O:Y").Delete

mais pas avec des nombres comme paramêtre.

merci

@+

 

[Pascal76]

Re: [ VBA ] >> Comment supprimer les colonnes d'index 15 jusqu'à la fin ?

Bonjour

Tu peux faire peut-être (avec mavar1 ta dernière colonne à enlever et mavar2 la première; dans ton exemple mavar1=25 pour le Y et mavar2 15 pour le O)

for x = mavar1 to mavar2 step-1
  columns(x).delete
next

Bon courage

Pascal

 

[Tchupacabra]

Re: [ VBA ] >> Comment supprimer les colonnes d'index 15 jusqu'à la fin ?

on est donc obligé de passer par une boucle ..... tant pis !

merci Pascal

@+

 

[jmps]

Re: [ VBA ] >> Comment supprimer les colonnes d'index 15 jusqu'à la fin ?

Bonjour Tchupacabra, Pascal,

Sans boucle :

Columns(Chr(79) & ":" & Chr(89)).Delete

chr(79) correspond à O et chr(89) à Y. A adapter selon le cas.
Pour les colonnes supérieures à Z : chr(65) & chr(65) donne AA par exemple.

Bonne après-midi.

José

 

[jmps]

Re: [ VBA ] >> Comment supprimer les colonnes d'index 15 jusqu'à la fin ?

Re,

Tu peux rendre le code plus lisible en te référant systématiquement à la colonne par son numéro et en rajoutant 64 au Chr().
Par exemple : Chr(1 + 64) = A (1ère colonne). Chr(12 + 64) = L (12ème colonne). Etc...
Comme ça ça tévite de calculer à chaque fois pour savoir de quelle colonne tu parles.

A+

José