bonjour
je cherche comment masquer des colonnes
voici le code:
Sub MasquerColonnes()
Const li = 10
Dim co As Long, cofin As Long
With ActiveSheet
cofin = .Cells(li, Columns.Count).End(xlToLeft).Column
For co = cofin To 1 Step -1
If .Cells(li, co).Value = "" Then Columns(co).Hidden = True
Next co
End With
End Sub
par contre je souhaiterai masquer ces colonnes de la ligne 10 à la ligne 50 sans toucher aux lignes 1 à 9 et 51 à 70
est-ce possible et comment?
merci d'avance
cordialement
pascal