XL 2016 Petit soucis avec un if

[Don pépé]

Bien le bonjour,

J'ai un petit soucis avec la condition if.
Je voudrais savoir comment je peux faire: si la feuille NomFeuille est active, msg ok, si pas active msg pas ok

j'ai pense a sa mais sa ne fonctionne pas

If Sheets("NomFeuille") = activate Then
       msgbox ="ok"
    Else
        MsgBox ="Pas ok"
    End If

Merci pour vôtre aide 😉

 

[pierrejean]

Bonjour Don pépé
If Sheets("NomFeuille") = ActiveSheet Then
msgbox ="ok"
Else
MsgBox ="Pas ok"
End If

 

[cathodique]

Sub Macro1()
    Dim a As String
    a = "Feuil2"
    With ActiveSheet
        If .Name = a Then
            MsgBox ("ok")
        Else
            MsgBox ("non ok")
        End If
    End With

End Sub

 

[Don pépé]

merci mais la premiere sa ne fonctionne pas. sa me marque un message d'erreur 438 propriete ou methode non gérer.

Mais pour la seconde c'est parfait.

Merci beaucoup a vous deux

 

[Lone-wolf]

Bonjour à tous 🙂

@ pépé : Si ta feuille est nommée pépé et que la tu note "NomFeuille", c'est sûr que ça plante. La prochaine fois si ta feuille s'appelle "TOTO", note dans le message son vrai nom et non "Cheet - Zut!!"

 

[eriiic]

Bonjour,

un instant de distraction de pierrejean.
Sheet étant un objet il faut l'écrire ainsi :

    If ActiveSheet Is Sheets("NomFeuille") Then
        MsgBox "ok"
    Else
        MsgBox "nok"
    End If

eric

 

[pierrejean]

Re
Merci eric

 

[Dranreb]

Bonjour

Sheet étant un objet il faut l'écrire ainsi :
If ActiveSheet Is Sheets("NomFeuille") Then

Jamais pu utiliser ça sur les objets Excel jusqu'à présent. C'est dommage. Sur ceux d'UserForm et plein d'autres, pas de problème. L'opérateur Is permet seulement de vérifier si deux expressions objets désignent un même exemplaire, mais pas si deux exemplaires différents représentent la même entité de l'application hôte.

 

[Don pépé]

ok merci bien a tous pour vos explication