Autres Message si les colonnes sont affichées.

[chaelie2015]

Bonjour Forum
je souhaite modifier ce code comme suit : lors de l’exécution du bouton affecté a ce code si le tableau ( colonnes) est affiché alors afficher le message "le tableau est déjà affiché". et si n'est pas affiché donc afficher ces colonnes sans message.

Sub Afficher_Tab_T1() 'Bouton afficher tableau
    Range("AD1:AZ1").EntireColumn.Hidden = False
    If Range("AD1:AZ1").EntireColumn.Hidden = False Then
    MsgBox ("il est déjà affiché")
    End If


End Sub

Salutations

 

[chaelie2015]

Bonjour Forum
il suffit de changer l'ordre .

Sub Afficher_Tab_T1() 'Bouton afficher tableau
    
    If Range("AD1:AZ1").EntireColumn.Hidden = False Then
    MsgBox ("il est déjà affiché")
    End If

    Range("AD1:AZ1").EntireColumn.Hidden = False
End Sub

s'il y a mieux?
Merci FORUM