Ctrl-Alt-Suppr
XLDnaute Junior
Bonjour à tous.
Cf. autre sujet récent ... grâce à XL-DL j'ai pu faire ce que je voulais :
5 boutons de commande liés à 5 affichages personnalisés
Mais mon fichier final bug, exactement comme ceci :
https://www.excel-downloads.com/threads/bouton-qui-retrecissent.153683/
J'ai essayé le code de Softmama
Private SUb Workbook_Open()
With Shapes("CommandButton1") 'Adapter
.Height = 40 'adapter
.Width = 128 'adapter
end With
End Sub
... que j'ai adapté (par exemple à mon BOUTON1 de 30 x 90)
Mais cela me donne un "nom ambigu détecté".
D'où mes 2 questions :
- peut-on résoudre ce bug des boutons qui partent complètement en live
- comment fusionner les codes :
Par avance ; merci.
Cf. autre sujet récent ... grâce à XL-DL j'ai pu faire ce que je voulais :
5 boutons de commande liés à 5 affichages personnalisés
Mais mon fichier final bug, exactement comme ceci :
https://www.excel-downloads.com/threads/bouton-qui-retrecissent.153683/
J'ai essayé le code de Softmama
Private SUb Workbook_Open()
With Shapes("CommandButton1") 'Adapter
.Height = 40 'adapter
.Width = 128 'adapter
end With
End Sub
... que j'ai adapté (par exemple à mon BOUTON1 de 30 x 90)
Mais cela me donne un "nom ambigu détecté".
D'où mes 2 questions :
- peut-on résoudre ce bug des boutons qui partent complètement en live
- comment fusionner les codes :
Code:
Private Sub BOUTON1_Click()
ActiveWorkbook.CustomViews("V1_TOUT").Show
End Sub
Private Sub Workbook_Open()
With Shapes("BOUTON1")
.Height = 30
.Width = 90
End With
End Sub
Par avance ; merci.
Dernière édition: