XL 2016 Demasquer colonnes Masquées

[KTM]

Bonjour Cher FORUM
J'ai une plage de données qui va de la colonne A à F
je voudrais faire une macro qui va vérifier s'il ya des colonnes masquées dans cette plage et les démasquer.
Merci

 

[Jacky67]

Bonjour,
Essaye simplement

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

 

[Ikito]

Ou,

Columns("A:F").Visible = True

 

[Hasco]

Bonjour,

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

a+

 

[KTM]

Bonjour,
Essaye simplement

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

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.

 

[Jacky67]

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.

Re..

Est-ce que ma proposition a été tester ????
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

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

 

[KTM]

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

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 Merci

 

[job75]

Bonsoir,

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

Roblochon plaisante car il sait très bien que la propriété .Visible des colonnes n'existe pas, sur aucune version.

A+