Choix position aléatoire d'un bouton
Résolu
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"
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"
1 réponse
-
ContributeurBonjour,
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"
