Si la feuille n’est pas masquer aller vers cette dernière

[Ilino]

Bonjour FORUM
je vous solicit a ce souci
Si la feuille n’est pas masquer aller vers cette dernière

Private Sub CommandButton1_Click()

If Sheets("LDF-Préstations (Avec PJ)").Visible = True Then
Sheets("LDF-Préstations (Sans PJ)").Select ???? 
End If
End Sub

quelle est le code a ajouter pour aller vers cette derniere ???
A+

 

[Pierrot93]

Re : Si la feuille n’est pas masquer aller vers cette dernière

Bonjour,

essaye peut être ceci :

Private Sub CommandButton1_Click()
With Sheets("LDF-Préstations (Avec PJ)")
    If .Visible = xlSheetVisible Then .Activate
End With
End Sub

bonne journée
@+

 

[Ilino]

Re : Si la feuille n’est pas masquer aller vers cette dernière

Bonjour PIERROT
merci pour la réponse , (le mien n'est pas fonctionnel WHY??)
et si la feuille est masquée comment ajouter un Msgbox a ton code pour informer l'utilisateur que la feuille n'est pas dispo??
grazie
edit : j'utilise le Else: MsgBox "bla bla "???

 

[Ilino]

Re : Si la feuille n’est pas masquer aller vers cette dernière

Bonjour Forum
mon souci est résolut

Private Sub CommandButton1_Click()
With Sheets("LDF-Préstations (Avec PJ)")
    If .Visible = xlSheetVisible Then .Activate
    If .Visible = xlSheetVeryHidden Then MsgBox "Feuille de ......n'est pas disponible"
    
End With
End Sub

MERCI FORUM, Pierrot

 

[Pierrot93]

Re : Si la feuille n’est pas masquer aller vers cette dernière

Re,

tu peux aussi utiliser un "else"

Private Sub CommandButton1_Click()
With Sheets("LDF-Préstations (Avec PJ)")
    If .Visible = xlSheetVisible Then .Activate Else MsgBox "Feuille de ......n'est pas disponible"
End With
End Sub

instruction sur une seule ligne...