XL 2019 (VBA) condition affichage temporaire

  • Initiateur de la discussion Initiateur de la discussion Zort.x
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
2 K
Retour