Bug des Boutons de commande qui rétrécissent

[Ctrl-Alt-Suppr]

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 :

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.

 

[MJ13]

Re : Bug des Boutons de commande qui rétrécissent

Bonjour Ctrl-Alt-Supp

Pour le "nom ambigu détecté", tu dois avoir 2 procédures qui ont le même nom.

 

[Ctrl-Alt-Suppr]

Re : Bug des Boutons de commande qui rétrécissent

Après plusieurs tentatives infructueuses (d'exportation ou autre ...)
J'ai trouvé un fil de discussion en anglais :
Command Buttons resizing themselves without changing size of cells around

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 ... ^^

 

[MJ13]

Re : Bug des Boutons de commande qui rétrécissent

Re

Après, il faut savoir que le zoom peut avoir une influence et le type de contrôle.

Personnellement, je ne mets que des contrôles de type formulaire et je n'ai pas de problèmes.