emplacement d'un bouton

[Hugues]

Bonjour Le Forum,

Je souhaiterais connaître le code afin de positionner précisement un bouton.
Dans une feuille de calcul j'ai un bouton qui sert à lancer une macro commande ; je désire le positionner à un endroit précis, au fur et à mesure de l'évolution de la feuille et evntuellement le redimensionner.
Exemple : positionner le bouton à 5 du haut, 420 de la droite, sa largeur doit être = à 80 et sa hauteur de 80

Merci par avance pour votre aide.

Hugues

 

[Jiheme]

Re : emplacement d'un bouton

Bonjour Hugues, Le forum

Tu crées ton bouton, clic droit dessus=> propriétés et la tu as "hauteur largeur top etc" (en anglais bien sur)

A+

 

[Hugues]

Re : emplacement d'un bouton

Bonjour Jihemme,

Ok pour la création mais j'aurais souhaité modifier la disposition du bouton lors d'une action d'une macro commande.
Le bouton au départ se situe en haut à droite de la feuille. J'ai concu une macro pour mettre en page et j'aurais voulu au sein de cette macro, positionner le bouton à un endroit précis, par exemple en haut à gauche.
Merci pour ton aide,
Hugues

 

[Hugues]

Re : emplacement d'un bouton

Bonjour,
Pour compléter ma précédente réponse, j'ai rédigé la macro suivante :

Private Sub sommaire_Click()



ActiveSheet.Shapes("sommaire").Select
Selection.ShapeRange.Left 50
Selection.ShapeRange.Top 10

End Sub

Mais cela ne fonctionne pas.

Merci encore,
Hugues

 

[Jiheme]

Re : emplacement d'un bouton

Re à tous

Essaies sous cette forme

Selection.ShapeRange.IncrementLeft 50

A+

 

[Hugues]

Re : emplacement d'un bouton

Re bonjour Jihemme,
Ok ça fonctionne mais le problème c'est que le bouton se déplace au fur et à msesure vers la droite .
Je souhaiterais qu'il soit à une place précise.
Merci encore,
Hugues

 

[Pierrot93]

Re : emplacement d'un bouton

Bonjour Hugues, Jiheme

une autre solution, peut être :

Sub test()
With Sheets(1).Shapes(1)
    .Top = 5
    .Left = 420
End With
End Sub

bonne journée
@+

 

[Hugues]

Re : emplacement d'un bouton

Merci à vous pour cette aide précieuse.

Bonne journée