Bonjour,
Dans le Workbook_Open j'aimerais :
- Dire, si bouton 7 n'est pas visible alors :
- Bouton 1, 2, 3 sont visible.
Auriez vous une idée à mettre pour le "if" ?
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
Partager