Le code de masquage fonctionne bien (merci anomymousA), je l'ai mis dans
un togglebutton, mais je n'arrive pas à faire un code de démasquage,
SVP, comment adapter ce code:
Private Sub ToggleButton1_Click()
If **ya une ou des colonnes**.Hidden = True Then 'que mettre ici??
Cells.EntireColumn.Hidden = False
ToggleButton1.Caption = "Masque colonnes vides"
Exit Sub
End If
'masquage de la colonne de l'array dont la cellule de ligne 4 est vide,
'ainsi que des 2 colonnes à sa droite
arrlettres = Array("F", "I", "L", "O", "R", "U", "X")
For I = LBound(arrlettres) To UBound(arrlettres)
Set rng = Columns(arrlettres(I)).Range("A4")
If IsEmpty(rng) Then Range(rng, rng.Offset(0, 2)).EntireColumn.Hidden
= True
Next
ToggleButton1.Caption = "Affiche colonnes"
End Sub
Et merci pour l'aide, bien sûr :-)) le message est parti à l'insu de mon plein gré :-< @+ J@@
J
Re bonjour j'ai trouvé, voici les modifs : '*** ActiveSheet.Range("F4").Select 'pour sortir du bouton If Columns("X:X").EntireColumn.Hidden = True Then ' pour tester sur une colonne très à droite Cells.EntireColumn.Hidden = False '*** merci @+ J@@
Bonjour à tous (XL2000)
Le code de masquage fonctionne bien (merci anomymousA), je l'ai mis dans un togglebutton, mais je n'arrive pas à faire un code de démasquage, SVP, comment adapter ce code:
Private Sub ToggleButton1_Click()
If **ya une ou des colonnes**.Hidden = True Then 'que mettre ici?? Cells.EntireColumn.Hidden = False
ToggleButton1.Caption = "Masque colonnes vides" Exit Sub End If 'masquage de la colonne de l'array dont la cellule de ligne 4 est vide, 'ainsi que des 2 colonnes à sa droite arrlettres = Array("F", "I", "L", "O", "R", "U", "X") For I = LBound(arrlettres) To UBound(arrlettres) Set rng = Columns(arrlettres(I)).Range("A4") If IsEmpty(rng) Then Range(rng, rng.Offset(0, 2)).EntireColumn.Hidden = True Next ToggleButton1.Caption = "Affiche colonnes" End Sub
Re bonjour
j'ai trouvé, voici les modifs :
'***
ActiveSheet.Range("F4").Select 'pour sortir du bouton
If Columns("X:X").EntireColumn.Hidden = True Then ' pour tester sur une
colonne très à droite
Cells.EntireColumn.Hidden = False
'***
merci
@+
J@@
Bonjour à tous (XL2000)
Le code de masquage fonctionne bien (merci anomymousA), je l'ai mis dans
un togglebutton, mais je n'arrive pas à faire un code de démasquage,
SVP, comment adapter ce code:
Private Sub ToggleButton1_Click()
If **ya une ou des colonnes**.Hidden = True Then 'que mettre ici??
Cells.EntireColumn.Hidden = False
ToggleButton1.Caption = "Masque colonnes vides"
Exit Sub
End If
'masquage de la colonne de l'array dont la cellule de ligne 4 est vide,
'ainsi que des 2 colonnes à sa droite
arrlettres = Array("F", "I", "L", "O", "R", "U", "X")
For I = LBound(arrlettres) To UBound(arrlettres)
Set rng = Columns(arrlettres(I)).Range("A4")
If IsEmpty(rng) Then Range(rng, rng.Offset(0, 2)).EntireColumn.Hidden = True
Next
ToggleButton1.Caption = "Affiche colonnes"
End Sub
Re bonjour j'ai trouvé, voici les modifs : '*** ActiveSheet.Range("F4").Select 'pour sortir du bouton If Columns("X:X").EntireColumn.Hidden = True Then ' pour tester sur une colonne très à droite Cells.EntireColumn.Hidden = False '*** merci @+ J@@
Bonjour à tous (XL2000)
Le code de masquage fonctionne bien (merci anomymousA), je l'ai mis dans un togglebutton, mais je n'arrive pas à faire un code de démasquage, SVP, comment adapter ce code:
Private Sub ToggleButton1_Click()
If **ya une ou des colonnes**.Hidden = True Then 'que mettre ici?? Cells.EntireColumn.Hidden = False
ToggleButton1.Caption = "Masque colonnes vides" Exit Sub End If 'masquage de la colonne de l'array dont la cellule de ligne 4 est vide, 'ainsi que des 2 colonnes à sa droite arrlettres = Array("F", "I", "L", "O", "R", "U", "X") For I = LBound(arrlettres) To UBound(arrlettres) Set rng = Columns(arrlettres(I)).Range("A4") If IsEmpty(rng) Then Range(rng, rng.Offset(0, 2)).EntireColumn.Hidden = True Next ToggleButton1.Caption = "Affiche colonnes" End Sub
