VBA Tableau cacher des colonnes

[vivi4561]

Bonjour,

J'utilise actuellement un tableau sur excel composé de plusieurs dizaines de colonnes (jusqu'à GK).

J'aimerai en fonction d'une variable cacher une partie du tableau.
Ex : si variable = 6 alors pour la section des colonnes N à AG, je souhaite voire N à S et cacher les colonnes S à AG.

J'ai mis actuellement ce code pour la 1iere section mais cela ne marche pas :

Range(Columns("14:" & 14 + nbbrochure)).EntireColumn.Hidden = True

Merci d'avance pour votre aide,


Vince

 

[JNP]

Re : VBA Tableau cacher des colonnes

Bonjour Vivi4561 🙂,
Teste

Range("N:" & Chr(64 + 14 + nbbrochure)).EntireColumn.Hidden = True

Bon courage 😎

 

[vivi4561]

Re : VBA Tableau cacher des colonnes

Bonjour,

Merci pour ta réponse.

Je me suis mal exprimé sur un point. Quand variable vaut 6, je veux voir la colonne N à S mais ne pas voir de T à AG. (chaque section est composée de 20 colonnes). Je souhaite donc voir le nombre de colonne équivalent à la variable et cacher le reste.

 

[vivi4561]

Re : VBA Tableau cacher des colonnes

J'ai écrit ça mais ça ne marche pas :S

Range(Chr(64 + 14 + nbbrochure) & ":AG")).EntireColumn.Hidden = True

 

[vivi4561]

Re : VBA Tableau cacher des colonnes

Re,

C'est bon, j'avais une parenthèse en trop à la fin 😉.^^

 

[vivi4561]

Re : VBA Tableau cacher des colonnes

Merci pour ton aide sur le code ASCII

 

[vivi4561]

Re : VBA Tableau cacher des colonnes

Petite question : Sais tu comment faire pour gérer les colonnes après la colonne Z ?

Exemple si je met Chr (90 + 1) alors je n'ai pas la colonne AA. :S

 

[JNP]

Re : VBA Tableau cacher des colonnes

Re 🙂,
Il y a des fonctions VBA conversions chiffres -> colonnes sur le forum, tu trouveras certainement en cherchant un peu 😛...
Sinon, en étant un peu tordu, teste ça 🙄...

MsgBox Replace(Split(Columns(256).Address, "$")(1), ":", "")

Bonne journée 😎

 

[Fo_rum]

Re : VBA Tableau cacher des colonnes

Bonjour,

et avec une boucle ?

For n = 14 To 14 +  nbbrochure
   Columns(n).Hidden = True
Next

 

[vivi4561]

Re : VBA Tableau cacher des colonnes

Re
Merci pour vos réponses. J'ai trouvé mon bonheur :

    col = 14 + nbbrochure
    Numcol = IIf(col > 26, Chr(Int((col - 1) / 26) + 64), "") & Chr((col - 1) Mod 26 + 65) & ":AG"
    Range(Numcol).EntireColumn.Hidden = True