tester si les colonnes sont masquées

[chelsea]

bonjour à tous,

j'essaye de faire en vb un test pour savoir si les colonnes de M à Q sont masquées pour les démasquer

je sait que c'est un dérivé de ceci :

ActiveSheet.Columns("L:R").Select
    
    If Columns("M:Q").EntireColumn.Hidden = True Then

        'démasquage des colonnes
            ActiveSheet.Columns("L:R").Select
            Selection.EntireColumn.Hidden = False
        '
    End If

qu'est-ce qui ne va pas dans mon programme

merci

 

[Pierrot93]

Re : tester si les colonnes sont masquées

Bonjour Chelsea

peut être comme ceci, affiche toutes les colonnes de L à R

Range("L:R").EntireColumn.Hidden = False

bonne journée
@+

 

[papapaul]

Re : tester si les colonnes sont masquées

Bonjour Forum,

Je penserais peut-être comme ca :

Sub Macro1()
' Macro enregistrée le 31/07/2007 par papapaul
If Range("L1:R1").EntireColumn.Hidden = True Then ' Les colonnes sont masquées
Range("L1:R1").EntireColumn.Hidden = False ' pour les voir
End If
End sub

A tester
@+

 

[chelsea]

Re : tester si les colonnes sont masquées

merci a tous

papapaul ton programme fonctionne

 

[Pierrot93]

Re : tester si les colonnes sont masquées

Re Chelsea, bonjour Papapaul

Papapaul, sauf erreur, ton code controle que TOUTES les colonnes soient masquées, si ce n'est pas le cas, la condition n'est pas remplie, donc pas d'affichage des colonnes masquées.

bon après midi
@+

Aarf, nous nous sommes croisé Chelsea, tu as testé avec une seule colonne de masquée...

 

[papapaul]

Re : tester si les colonnes sont masquées

Re Chelsea, Pierrot
Je pensais que Chelsea voulait seulement si
toutes les colonnes L à R sont masquées en même temps.
Sinon, si elles le sont toutes ou que quelques unes
ton code fonctionne évidement aussi trés bien.
@+