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 :
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 :
Mais ce n'est pas si simple visiblement, car Excel me renvoie cette erreur, que je ne comprends pas...
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 !
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
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...
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 !