XL 2016 Demasquer colonnes Masquées

Jacky67 à dit:

Bonjour,
Essaye simplement

VB:

Sub affiche()
    Columns("a:f").Hidden = False
End Sub

Cliquez pour agrandir...

KTM à dit:

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.

Cliquez pour agrandir...

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

Jacky67 à dit:

Re..

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

Cliquez pour agrandir...

Roblochon à dit:

@Ikito depuis quelle version d'excel la collection columns a-t-elle une propriété Visible ? Que j'enrichisse mes connaissances.

Cliquez pour agrandir...