Ajouter ou enlever un objet en fonction d'une feuille - VBA

Bonjour à tous,

J'ai besoins de votre aide pour réussir à faire fonctionner le code VBA que je viens d'installer sur un fichier. Toute ma première partie fonctionne bien. Il s'agit de l’installation d'un identifiant et MDP pour accéder au fichier en fonction des droits que j'aurai mis au préalable en place.

Tous cela fonctionne bien.

Cependant, je voudrai arriver à faire "apparaître" ou faire "disparaître" un objet d'une feuille en fonction d'une autre feuille qui est présente ou non par rapport aux droits que les personnes ont.

]Merci d'avance de votre aide

A bientôt

Bonjour. Bienvenue sur le Forum

Pour joindre un fichier.

Cordialement

Voici le fichier excel que je voudrais améliorer.

Identifiant: ADMIN

MDP: ADMIN

Bonjour

Cependant, je voudrai arriver à faire "apparaître" ou faire "disparaître" un objet d'une feuille en fonction d'une autre feuille qui est présente ou non par rapport aux droits que les personnes ont.

Sauf erreur, je ne vois nulle part l'explication de ta demande dans le fichier?

Cordialement

Je suis désolé...

cela ce passe sur la page "MATRICE". Il y a deux onglets "FRAIS" et "SURGELER".

Je voudrais que l'un des deux disparaisses quand la page du même noms et masqué. Et quand les deux feuilles sont visibles les deux onglets soit présent.

Désolé pour cette mésentente

Bonjour

Code de Feuille MATRICE

Private Sub Worksheet_Activate()
On Error GoTo fin
With ActiveSheet.Shapes
If Sheets("FRAIS").Visible = False Then
Shapes("Rectangle à coins arrondis 3").Visible = False
ElseIf Sheets("FRAIS").Visible = True Then
Shapes("Rectangle à coins arrondis 3").Visible = True
If Sheets("SURGELES").Visible = False Then
Shapes("Rectangle à coins arrondis 5").Visible = False
ElseIf Sheets("SURGELES").Visible = True Then Shapes("Rectangle à coins arrondis 5").Visible = True
End If
End If
End With

fin:
End Sub

Cordialement

Ouah quel rapidité !

Je test tout cela et je valide demain

Merci beaucoup pour le travail fourni!

Ce forum est vraiment EXCEPTIONNEL !!

Quand je mes le code dans la feuille "MATRICE" ça ne change rien....

Ou je dois le mettre?

Merci d'avance pour le gros boulot déjà fournis

Bonjour

Quand je mets le code dans la feuille "MATRICE" ça ne change rien....

Le code démarre avec

Private Sub Worksheet_Activate()

Ce qui signifie que le Code est activé par l'activation de la feuille, ou, en plus clair, il faut venir d'une autre feuille pour qu'il fonctionne la première fois.

Cordialement

Bonjour

Pour simplifier, un objet ayant pour valeur un booléan, il est mieux de lui passer directement la condition

Shapes("Rectangle à coins arrondis 3").Visible = Sheets("FRAIS").Visible = xlSheetVisible
Shapes("Rectangle à coins arrondis 5").Visible= Sheets("SURGELES").Visible = xlSheetVisible

Merci à tous ! Ce forum est vraiment d'une qualité irréprochable