Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Message si les colonnes sont affichées.

chaelie2015

XLDnaute Accro
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.
VB:
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

XLDnaute Accro
Bonjour Forum
il suffit de changer l'ordre .
VB:
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
 

Discussions similaires

Réponses
4
Affichages
365
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…