hide toutes les colonnes ("T:T") jusq'à la dernière colonne

[news]

Bonjour à tous du forum,

Comment on peut cacher toutes les colonnes de la colonne ("T:T") jusqu'à la dernirèe colonne de droite?

J'utilise les codes suivants :

Sub column()
Columns("T:IV").Select
Selection.EntireColumn.Hidden = True
End sub

ou la version suivante :

Sub column02()

NumColDebut = "T"
NumColFin = "IV"
Columns(NumColDebut & ":" & NumColFin).EntireColumn.Hidden = True

End Sub

Mais je ne voudrais pas indiquer column ("IV"), mais la dernière colonne.

Le code suivant que j'utilise ne fonctionne pas :
Columns("T:T").End(xlToRight).Selection.EntireColumn.Hidden = True

Comment résoudre ?

merci d'avance de vos astuces,

news

 

[JHA]

Re : hide toutes les colonnes ("T:T") jusq'à la dernière colonne

Bonjour news, le forum,

Tu sélectionnes toutes les colonnes que tu ne veux plus voir, clic droit et masquer les colonnes.

JHA

 

[Dull]

Re : hide toutes les colonnes ("T:T") jusq'à la dernière colonne

Salut news, JHA, le Forum

Fait avec l'enregistreur de Macro 🙂

Sub column()
Range(Columns("T:T"), Columns("T:T").End(xlToRight)).EntireColumn.Hidden = True
End Sub

Bonne Journée

 

[news]

Re : hide toutes les colonnes ("T:T") jusq'à la dernière colonne

Bonjour à tous du forum,

Re: d'accord,

mais j'ai besoin d'une macro d'un code vba, comme les colonnes sont cachées dès ouverture du fichier

news

 

[news]

Re : hide toutes les colonnes ("T:T") jusq'à la dernière colonne

Re:

J'ai essayé avec l'enregistreur automatique de macro,
mais j'ai reçu le code suivant :

Columns("T:IV").Select
Selection.EntireColumn.Hidden = True

et voilà ce code fonctionne très bien :
Range(Columns("T:T"), Columns("T:T").End(xlToRight)).EntireColumn.Hidden = True

merci Dull pour réponse,

news