propriété des bouton

[desmamaout]

bonjour à tous
voilà ma question : j'ai une feuille nommée planning avec quelques boutons.
je voudrais à partir d'une autre feuille dont je suis le seul à avoir l'accès, pouvoir mettre ces boutons à la propriété true ou false de manière à ce que les personnes qui auront accès à la feuille planning ne puissent pas se servir de ces boutons.
Merci d'avance et encore "chapeau" pour votre site qui m'est bien utile.🙂

 

[ROGER2327]

Re : propriété des bouton

Bonsoir à tous

En l'absence de support, un petit essai qui vous donnera peut-être une idée.​

ROGER2327
#4256

Vendredi 27 Absolu 138 (Saintes Gigolette et Gaufrette, dogaresses, SQ)
13 Vendémiaire An CCXIX
2010-W40-1T20:34:42Z

 

[desmamaout]

Re : propriété des bouton

Bonsoir et bienvenue
Sans fichier de demande concret
ci joint un exemple de masquage de bouton
A toi de l'associer en fonction du nom de l'utilisateur ( Toto= environ(username) par exemple)

ActiveSheet.Shapes("Button 1").Visible = True

merci Jean Marcel mais ça ne marche pas. Je crois que c'est du au fait que les feuilles sont masquées et comme je veux que cette commande soit exécutée à partir d'une feuille protégée par mot de passe, c'est pas simple. J'ai essayé d'envoyé un fichier compressé mais ça n'a pas fonctionné, je ne sais pas pourquoi. Merci quand même et bonne journée
bernard.
Peut-être puis-je te faire parvenir le fichier si tu veux ?

 

[desmamaout]

Re : propriété des bouton

Bonsoir à tous

En l'absence de support, un petit essai qui vous donnera peut-être une idée.​

ROGER2327
#4256

Vendredi 27 Absolu 138 (Saintes Gigolette et Gaufrette, dogaresses, SQ)
13 Vendémiaire An CCXIX
2010-W40-1T20:34:42Z

Merci Roger2327
Ton fichier m'a l'air très interressant, je vais voir si je peux faire fonctionner ça car la commande doit être sur une feuille et les boutons ciblés sur une autre
bonne journée à toi
Bernard

 

[ChTi160]

Re : propriété des bouton

Salut desmamaout
Bonjour le Fil
Bonjour le Forum

tu peux aussi utiliser la propriété Visible
Soit :

ActiveSheet.OLEObjects(Target.Value).Visible = _ Not(ActiveSheet.OLEObjects(Target.Value).Visible)

Bonne fin de journée

 

[ROGER2327]

Re : propriété des bouton

Re...

Merci Roger2327
Ton fichier m'a l'air très interressant, je vais voir si je peux faire fonctionner ça car la commande doit être sur une feuille et les boutons ciblés sur une autre
bonne journée à toi
Bernard

Si la feuille portant le bouton est la feuille "Feuil2", ce code devrait fonctionner :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Column = 1 And Target.Row < 4 Then
    With Sheets("Feuil2").OLEObjects(Target.Value): .Enabled = Not .Enabled: End With
    Target.Font.ColorIndex = -4102 - Target.Font.ColorIndex
    Cancel = True
  End If
End Sub[/B][/COLOR]

Mais, s'il y a un problème particulier, il est toujours difficile de le résoudre sans voir à quoi s'applique le code...​

ROGER2327
#4264

Samedi 28 Absolu 138 (Xylostomie, V)
14 Vendémiaire An CCXIX
2010-W40-2T13:05:43Z

 

[desmamaout]

Re : propriété des bouton

merci Roger, je m'y colle dès cet après-midi
bonne journée à toi, à tous les internauteset à l'équipe du site
bernard