Bonjour,
Dans le Workbook_Open j'aimerais :

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



Code : Sélectionner tout - Visualiser dans une fenêtre à part
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" ?