Sub affiche()
Columns("a:f").Hidden = False
End Sub
je me suis pas bien fais comprendre.Bonjour,
Essaye simplement
VB:Sub affiche() Columns("a:f").Hidden = False End Sub
Re..je me suis pas bien fais comprendre.
Je voudrais vérifier s'il ya des colonnes entre la colonne A et F qui sont masquées alors je les démasque
j'ai fais comme si :
If .Columns("A:F").Hidden = True Then .Columns("A:F").Hidden = False
Mais ça ne marche que si toutes les colonnes de A à F sont Masquées.
Sub affiche()
Dim c As Range
For Each c In [a:f].Columns
If c.Hidden Then
MsgBox "Colonne; " & c.Address & " ==> masquée" ' facultatif, cette ligne peut être supprimée
c.Hidden = False
End If
Next
End Sub
super MerciRe..
Est-ce que ma proposition a été testée ????
Elle ne démasque pas ???
Si l'on tient absolument a tester toutes les colonnes
Ceci retourne un message (facutatif) si une colonne est masquée et la démasque
VB:Sub affiche() Dim c As Range For Each c In [a:f].Columns If c.Hidden Then MsgBox "Colonne; " & c.Address & " ==> masquée" ' facultatif, cette ligne peut être supprimée c.Hidden = False End If Next End Sub