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
A priori, il y a eu des hotfix privés puis un truc public en 2011
(pourtant sur mon poste de travail, les derniers sont de fin août ...2014)
Toujours est-il que de toutes les suggestions proposées, j'ai choisi comme solution la plus simple :
>Développeur >Mode Création >sélection avec Ctrl de tous les boutons > GROUPER
Se répondre à soi-même ; drôle de curiosité .......
mais si ça peut servir à un autre internaute ... ^^