Discussion :

[DarkGriffin]

Bonjour,

J'ai un bouton qui, à l'ouverture, ne veut absolument pas prendre la taille que je désire qu'il ait...

Mon code est pourtant simple (dans l'événement Workbook_Open() ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Worksheets(SHEET_HOME).btnDemarrer.Width = 431
Worksheets(SHEET_HOME).btnDemarrer.Left = 224
Worksheets(SHEET_HOME).btnDemarrer.Top = 85.5
Worksheets(SHEET_HOME).btnDemarrer.Height = 34
Worksheets(SHEET_HOME).btnDemarrer.Font.Size = 24

Sauf que le bouton ne prend pas cette taille. Et pire : selon les versions d'excel avec lequel j'ouvre le fichier, il n'a pas la même taille. Si je ne mets pas ces instructions de taille, c'est la taille de la police qui change et devient tellement petite qu'elle est illisible. Est-ce qu'il existe un moyen de forcer le rafraîchissement de l'affichage ou de s'assurer que ce bouton soit exactement comme je le veux ?

Merci

[SureKey]

Bonjour,

Enregistrer une capture du bouton voulu et utiliser Picture serait faisable ?

[patricktoulon]

je suis curieux
SWEET_HOME c'est une variable ou le vrai nom du sheets ??
si c'est le vrai nom normalement tu devrait avoir une erreur sauf si avant ce code il y a une gestion d'erreur au quel cas tu tu ne t'en serais jamais rendu compte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Sheets("SHEET_HOME").btndemarrer
.Width = 431: .Left = 224: .Top = 85.5: .Height = 34: .Font.Size = 24
End With

cela dit je crois comprendre que tu veux centrer ton bouton c'est bien ca ?
dans n'importe quel cas il serait preferable de prendre des position de cellules ou range ou visible range pour calculer les dimentions et positions pour reference

exemple 1
bouton centrer horizontalement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub TEST()
With Sheets("SHEET_HOME").BTNDEMARRER
l& = (ActiveWindow.VisibleRange.Width / 2) - (431 / 2)
.Width = 431: .Left = l: .Top = 85.5: .Height = 34: .Font.Size = 24
End With
End Sub

exemple 2
le bouton occupera a coup sur la plage("f3:k5")
avec cette version le bouton occupera toujours la meme place quelque resolution que ce soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub TEST2()
With Sheets("SHEET_HOME").BTNDEMARRER
Set p = Range("f3:k5")
.Width = p.Width: .Left = p.Left: .Top = p.Top: .Height = p.Height: .Font.Size = 24
End With
End Sub