Choix position aléatoire d'un bouton

Résolu/Fermé

volfoss Messages postés 31 Date d'inscription jeudi 21 juillet 2016 Statut Membre Dernière intervention 15 octobre 2023 - 25 juil. 2016 à 11:46
volfoss Messages postés 31 Date d'inscription jeudi 21 juillet 2016 Statut Membre Dernière intervention 15 octobre 2023 - 27 juil. 2016 à 10:27

Bonjour,
j'ai une macro qui me permet de créer et renommer un bouton mais j'aimerais pouvoir choisir son emplacement car il est variable. Une boite de dialogue s'ouvre pour me demander de choisir l'emplacement du bouton mais je n'arrive pas à le faire se déplacer dans l'emplacement voulu. Merci pour votre aide.
Voici mon code :

Set Emplacement = Application.InputBox("Range:", Type:=8)
ActiveSheet.Buttons.Add(278.25, 322.5, 72, 72).Select
Selection.OnAction = "macro6"
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 28.5
Selection.ShapeRange.Width = 57#
Selection.Characters.Text = "essai"

A voir également:

Choix position aléatoire d'un bouton
Liste déroulante de choix excel - Guide
Ma position - Guide
Position gps - Guide
Partager position whatsapp - Guide
Réinitialiser chromecast sans bouton - Guide

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
26 juil. 2016 à 15:10

Bonjour,

Comme ceci:

Dim Emplacement As Object
Set Emplacement = Application.InputBox(prompt:="Sélectionner les cellules sur la feuille", Type:=8)
ActiveSheet.Buttons.Add(Range(Emplacement.Address).Left, Range(Emplacement.Address).Top, 72, 72).Select
Selection.OnAction = "macro6"
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 28.5
Selection.ShapeRange.Width = 57#
Selection.Characters.Text = "essai"

volfoss Messages postés 31 Date d'inscription jeudi 21 juillet 2016 Statut Membre Dernière intervention 15 octobre 2023
27 juil. 2016 à 10:27

Merci beaucoup

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

Bouton ON OFF, O ou I ?

Quel est la touche shift sur le clavier

tirage aléatoire sans doublon

ou est la touche shift sur un clavier

Discussions similaires

Newsletters