XL 2019 (VBA) condition affichage temporaire

Zort.x

XLDnaute Nouveau
Bonjour,

Je bute sur un problème :
Nous travaillons en coactivité sur un fichier, et j'ai mis en place un système permettant de faciliter la navigation dans notre fichier assez riche en informations.

Lorsqu'on appuie sur un bouton permettant d'afficher les éléments sélectionnés de façon personnalisée, la feuille en question bascule en "Affichage temporaire" par le biais de ce code la :
VB:
Sheets("2021 Suivi des actions").NamedSheetViews.EnterTemporary
Sheets("2021 Suivi des actions").Select
Tout fonctionne très bien, mais le soucis c'est que si on refait l'opération sans sortir de l'affichage temporaire, un message d'erreur s'affiche (ce qui est normal).

Je cherche donc à contourner ce problème en disant : "Si l'affichage temporaire est déjà actif sur la feuille, on ne fait que l'afficher, sinon, on passe d'abord en affichage temporaire".
Ce qui m'a mené à utiliser les conditions, et à mettre en place le code suivant :
VB:
Sub Voir_Actions()
    If Sheets("2021 Suivi des actions").NamedSheetViews.EnterTemporary Then
        Sheets("2021 Suivi des actions").Select
    
    Else
        Sheets("2021 Suivi des actions").NamedSheetViews.EnterTemporary
        Sheets("2021 Suivi des actions").Select
    End If
End Sub

Mais ce n'est pas si simple visiblement, car Excel me renvoie cette erreur, que je ne comprends pas...

1635156391851.png


Ne m'y connaissant pas spécialement en VBA, je ne sais pas si ma façon d'utiliser les conditions est bonne...

Pouvez-vous m'aider à résoudre ce problème SVP ?

Merci d'avance !
 

Statistiques des forums

Discussions
294 232
Messages
1 937 081
Membres
188 145
dernier inscrit
Peres2