Masquer des colonnes en macro si vide

[ceceici]

Bonjour à tous,

J'ai une macro dans laquelle j'aimerais masquer certaines colonnes
ma macro créée des onglets avec un nb différent de colonne par onglet
et en colonne BR, j'ai le total
je voudrais masquer les colonnes entre la dernière colonne et la colonne BR où il y a total
comment dois-je faire ?

merci d'avanc epour vos réponses

 

[jeanpierre]

Re : Masquer des colonnes en macro si vide

Bonsoir ceceici,

"J'ai une macro dans laquelle j'aimerais masquer certaines colonnes", OK

"ma macro créée des onglets avec un nb différent de colonne par onglet
et en colonne BR, j'ai le total", oui Ok aussi... enfin presque...

"je voudrais masquer les colonnes entre la dernière colonne et la colonne BR où il y a total comment dois-je faire ?", alors là, sans plus, comprends pas ???

Bonne fin d'après-midi.

Jean-Pierre

 

[JJ1]

Re : Masquer des colonnes en macro si vide

Bonjour ceceici, Jeanpierre,
Peut-être mettre les colonnes intermédiaires en largeur 0 ?
Bonne soirée

 

[job75]

Re : Masquer des colonnes en macro si vide

Bonjour ceceici, salut jeanpierre et JJ1

Cette macro à adapter :

Sub MasqueColonnes()
Dim w As Worksheet, i As Integer
Set w = Sheets("Feuil1") 'pour tester
Application.ScreenUpdating = False
w.Columns("A:BR").Hidden = False
For i = 69 To 1 Step -1
  If Application.CountA(w.Columns(i)) Then Exit For Else w.Columns(i).Hidden = True
Next
End Sub

A+