Choix position aléatoire d'un bouton

Résolu

volfoss Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
volfoss Messages postés 37 Date d'inscription Statut Membre Dernière intervention - 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"

Afficher la suite

A voir également:

Choix position aléatoire d'un bouton
Liste déroulante de choix excel - Guide
Ma position - Guide
Suivi position google - Guide
Bouton reinitialisation pc - Guide
Diagnostic bouton photo - Accueil - Outils

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

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 37 Date d'inscription Statut Membre Dernière intervention 3

Merci beaucoup

Discussions similaires

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

Quel est la touche shift sur le clavier

Bouton ON OFF, O ou I ?

Bouton enfoncé

Votre réponse

Discussions similaires