Bouton visible sous conditions

Bonjour,
Dans le Workbook_Open j'aimerais :

- Dire, si bouton 7 n'est pas visible alors :
- Bouton 1, 2, 3 sont visible.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Workbook_Open() ActiveSheet.Shapes("Bouton 2").Visible = False ActiveSheet.Shapes("Bouton 5").Visible = False ActiveSheet.Shapes("Bouton 3").Visible = False ActiveSheet.Shapes("Bouton 6").Visible = False   'If Bouton 7 n'est pas visble   Else ' alors rendre visible le bouton 2, 3, 5, 6 visible ActiveSheet.Shapes("Bouton 2").Visible = True ActiveSheet.Shapes("Bouton 5").Visible = True ActiveSheet.Shapes("Bouton 3").Visible = True ActiveSheet.Shapes("Bouton 6").Visible = True   End If   End Sub

---

Auriez vous une idée à mettre pour le "if" ?

Bonjour,

Essaye

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

if ActiveSheet.Shapes("Bouton 7").Visible = False then   ActiveSheet.Shapes("Bouton 1").Visible = True ActiveSheet.Shapes("Bouton 2").Visible = True ActiveSheet.Shapes("Bouton 3").Visible = True   Else ' alors rendre visible le bouton 2, 3, 5, 6 visible   ActiveSheet.Shapes("Bouton 2").Visible = True ActiveSheet.Shapes("Bouton 5").Visible = True ActiveSheet.Shapes("Bouton 3").Visible = True ActiveSheet.Shapes("Bouton 6").Visible = True   end if   end sub

---

Ça marche ! Grand merci à toi

Tester si une variable Booléen est vrai ou fausse me parait toujours étrange.

Ecrire Si VRAI = VRAI Alors revient a demander si VRAI = VRAI pour ensuite remplacer le test par ça valeur booléenne.
Donc Si VRAI Alors

De plus, si le bouton 7 est visible les autres ne le sont pas donc leurs propriétés .Visible respectives doivent être la négation de celle du bouton 7.

Tu peux donc tout simplement écrire :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Workbook_Open() Dim b As Boolean With ActiveSheet b = Not .Shapes("Bouton 7").Visible .Shapes("Bouton 2").Visible = b .Shapes("Bouton 5").Visible = b .Shapes("Bouton 3").Visible = b .Shapes("Bouton 6").Visible = b End With End Sub

---