Masquer des colonnes

[Jiheme]

Bonjour

Voici un code destiné à masquer des colonnes à partir de la colonne AB (en revenant vers A) de manière à ce qu'il en reste le nombre d, cétant le nombre de colonnes maxi qui peuvent être utilisées.

ET BIEN ENTENDU CA BLOQUE !!!

Sub masq_col()

c = Range("f1:ab1").Columns.Count [COLOR=lime]'nombre de colonnes de la zone[/COLOR]

d = Sheets("data").Range("b8") [COLOR=lime]'nombre de colonnes à conserver[/COLOR]

Worksheets.Columns("28:28-(c-d)").Hidden = True

End Sub

Merci
A+

 

[Papou-net]

Re : Masquer des colonnes

Bonjour Jiheme,

Peut-être qu'en modifiant ta ligne comme ça :

Worksheets.Columns(28-(c-d) & ":28").Hidden = True

Espérant t'avoir aidé.

Cordialement.

 

[JCGL]

Re : Masquer des colonnes

Bonjour à tous,

Peut-être avec :

Option Explicit

Sub masq_col()
Dim c, d, x As Byte
c = Range("F1:AB1").Columns.Count 'nombre de colonnes de la zone
d = Sheets("Data").Range("C8") 'nombre de colonnes à conserver
x = c - d
Columns(28 - x).EntireColumn.Hidden = True
End Sub

A+

 

[Jiheme]

Re : Masquer des colonnes

Bonjour Papou, JCGL, re à tous

Papou ton code plante exactement comme le mien ?

JCGL le tien masque la colonne E qui n'est pas dans la plage concernée ???

Je fais une petite pause et je continuerais à bidouiller tout à l'heure, si vous avez des idées elles sont les bienvenues.

Merci
A+

 

[Lii]

Re : Masquer des colonnes

Bonjour Tous,

à tester (si j'ai compris) le

Sub masq_col()
  Dim c As Byte, d As Byte
  Range("F1:AB1").EntireColumn.Hidden = True
  c = Range("F1:AB1").Columns.Count 'nombre de colonnes de la zone
  d = Sheets("Data").Range("B8") 'nombre de colonnes à conserver
  Range(Cells(1, 6), Cells(1, 28 - c + d)).EntireColumn.Hidden = False
End Sub

 

[Jiheme]

Re : Masquer des colonnes

Bonjour Lii, re à tous

Parfait cela marche, je n'avais pas eu l'idée de tout masquer et de réafficher ensuite ce dont on a besoin

Merci

A+

 

[Michel_ja]

Re : Masquer des colonnes

Lorsqu'on masque des colonnes les photos qui figurent dans les cellules ne sont pas masquées 🙂 Y'a t'il une solution ? Je masque les cellules tout simplement avec la fonction Grouper d'Excel. Merci d'avance.

 

[jeanpierre]

Re : Masquer des colonnes

Bonjour,

Clic droit sur l'image et Format de l'image/Propriétés et tu coches Déplacer et dimensionner avec les cellules.

Ne fonctionne bien que si l'image est contenue intégralement dans les colonnes à masquer.

Bonne journée.

Jean-Pierre