Discussion :

[Lison Lisette]

Bonjour,

Je cherche à :

1/ masquer une zone de liste déroulante (contrôle de formulaire) lorsque je clique sur un bouton. Et l'afficher quand je clique sur un autre bouton

2/ protéger une feuille tout en gardant les fonctionnalités des listes déroulantes (contrôle de formulaire) CAD changer des tableaux et des graphiques en fonction de la donnée d'entrée --> moi ça m'affiche toujours "protégé ou en lecture seule"....

Je peux vous envoyer un fichier excel avec le détail de ces pb par e-mail...

ça fait des heures et des heures que j'essaye de faire ça, j'ai testé tout ce que j'étais capable de faire !!!!

[JPierreM]

Bonjour,

Pour masquer la combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.Visible = False

Pour afficher la combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.Visible = True

[Lison Lisette]

Merci !

...Mais j'avais essayé les ".Visible = False" et dans mon cas ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Zonecombinée173.Visible = False

Erreur d'exécution '424' Objet requis

En fait j'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
'ActiveSheet.Shapes("Zonecombinée32_QuandChangement").Visible = False
    'Workbooks("Zonecombinée32_QuandChangement").Visible = False
    'Workbooks("Zonecombinée32").Visible = False
    'Forms("Zonecombinée32_QuandChangement").Visible = False
    'Sheets("Zonecombinée32_QuandChangement").Visible = False
    '[Zonecombinée32_QuandChangement].Visible = False
    'UserForm("Zonecombinée32_QuandChangement").Visible = False
    'Me.Zonecombinée32_QuandChangement.Visible = False
    'Zonecombinée32_QuandChangement.Visible = False
    'Comp_Projets.Shapes("Zonecombinée32_QuandChangement").Visible = msoFalse
    'Comp_Projets.Shapes("Zonecombinée32").Visible = msoFalse
    'Comp_Projets.Shapes("Zonecombinée32_QuandChangement").Visible = False

...et aussi des détours comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
'If Disparaitre_bas = true
    'Then Zonecombinée2.Visible = False
 
    'If Disparaitre_bas.Value = 1 Then
    'Feuil1.Shapes("Zonecombinée2").Visible = msoFalse
    'ElseIf Target.Value = 2 Then Feuil1.Shapes("Zonecombinée2").Visible = msoCTrue
    'End If

...

[JPierreM]

Bonsoir,

Pour masquer une zone combinée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Contrôles").Shapes("Zone combinée 17").Visible = false

Pour l'afficher

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Contrôles").Shapes("Zone combinée 17").Visible = True

[Lison Lisette]

Merci pour ces nouveaux éléments....

Mais même si avec ça, je sent que je frôle la solution, je n'y suis malheureusement pas encore...

En effet :

1/ Si j'entre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Listes").Shapes("Zonecombinée2").Visible = false

ERREUR : L'élément portant ce nom est introuvable

Et si :
2/

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Listes").Shapes(Zonecombinée2).Visible = false

Là il me met : l'index de cette collection est en dehors des limites

Le nom de ma feuille (Listes) j'en suis sûr... Zonecombinée2 aussi vu que c'est ce qu'il (VBA) m'affiche quand j'essaye d'attribuer une macro à ma zonecombinée (Il écrit : Sub Zonecombinée2_QuandChangement() )

Qu'est ce que je fais de mal encore !!!!

(Dsl je débute je suis pas très douée !!)

Merci d'avance de votre aide

[JPierreM]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("Contrôles").Shapes("Zone combinée 17").Visible = false

Ca fonctionne très bien chez moi. Pouvez-vous envoyer le fichier si ce n'est pas une usine à gaz

[Lison Lisette]

Merciiiii !

En insistant un peu, effectivement ça marche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Worksheets("Listes").Shapes("Zone combinée 2").Visible = False

J'écrivais zonecombinée2 au lieu de zone combinée 2, tout simplement !

Merci (bcp) de ta patience JPierreM !

Concernant le 2ème point je met une PJ, il faut aller voir sur l'onglet n°2..

[JPierreM]

Bonsoir,

La cellule liée des listes est la cellule A1.
Pour permettre la mise à jour de cette cellule lors des sélections dans les listes, il suffit de déverrouiller cette cellule avant de protéger la feuille. Les listes et le graphique continueront à fonctionner.
J'ai fait l'essai sur votre fichier ça fonctionne.

[Lison Lisette]

Oui !!

Effectivement !

Moi pour déverrouiller la cellule j'utilisais la fonction "permettre la modification des plages" au lieu du menu Police --> Protection --> Verrouiller

Après ça marche mieux

J'avais un autre problème, mais c'était dû à des barre du vrai graphique qui apparaissaient ou disparaissaient (et ça, la protection de la feuille ça le bloque...)

Du coup j'ai contourné le pb en ajoutant un petit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Unprotect "mdp"
ActiveSheet.Protect "mdp"

Merci bcp à toi JMP