OVH Cloud OVH Cloud

Masquer plusieurs colonnes d'un coup

2 réponses
Avatar
dvincent
Appli : VBA sous Excel97

Bonjour,

Je me pose la question suivante :

N'existerai t-il pas une méthode plus rapide pour masquer des colonnes
entières, car actuellement, je selectionne la colonne et je la masque, en
Vba

en fait j'ai délimité les colonnes à masquer par 2 "zone de nom" : Debut et
fin
et j'ai une boucle for :

For i = Range("debut").Column To Range("fin").Column
Columns(i).Select
'Visible est un boolean passé dans le paramètre de la fonction
Selection.EntireColumn.Hidden = Visible
Next i

Est-ce la seule solution ?

Merci.

2 réponses

Avatar
patrick
Bonjour,
et pourquoi ne pas essayer

Dim plage As Range
Set plage = Range("debut:fin")
plage.EntireColumn.Hidden = True

@+
patrick

"dvincent" a écrit dans le message news:

Appli : VBA sous Excel97

Bonjour,

Je me pose la question suivante :

N'existerai t-il pas une méthode plus rapide pour masquer des colonnes
entières, car actuellement, je selectionne la colonne et je la masque, en
Vba

en fait j'ai délimité les colonnes à masquer par 2 "zone de nom" : Debut
et

fin
et j'ai une boucle for :

For i = Range("debut").Column To Range("fin").Column
Columns(i).Select
'Visible est un boolean passé dans le paramètre de la fonction
Selection.EntireColumn.Hidden = Visible
Next i

Est-ce la seule solution ?

Merci.




Avatar
dvincent
Merci ca marche nickel et c'est beaucoup plus rapide !

J'avais tester différents moyens mais sans avoir la même syntaxe.

"patrick" a écrit dans le message de
news: 41d28383$
Bonjour,
et pourquoi ne pas essayer

Dim plage As Range
Set plage = Range("debut:fin")
plage.EntireColumn.Hidden = True

@+
patrick

"dvincent" a écrit dans le message news:

Appli : VBA sous Excel97

Bonjour,

Je me pose la question suivante :

N'existerai t-il pas une méthode plus rapide pour masquer des colonnes
entières, car actuellement, je selectionne la colonne et je la masque,
en


Vba

en fait j'ai délimité les colonnes à masquer par 2 "zone de nom" : Debut
et

fin
et j'ai une boucle for :

For i = Range("debut").Column To Range("fin").Column
Columns(i).Select
'Visible est un boolean passé dans le paramètre de la fonction
Selection.EntireColumn.Hidden = Visible
Next i

Est-ce la seule solution ?

Merci.