Redimensionner automatiquement bouton de commande

[Etiene]

Bonjour à tous !

Etant débutant je me retrouve devant un véritable problème !
Je souhaite que toute mes bouton de commande de 1 à 7 soit redéfinit en taille et assignée à l'ouverture du classeur.
Actuellement j'utilise le code suivant pour chaque cellule en redéfinissant la case de référence :

With ActiveSheet.CommandButton1
.Top = Range("e7").Top
.Left = Range("e7").Left
.Width = Range("e7").Width
.Height = Range("e7").Height
End With

Cependant il y a deux défaut :

- je possède environ 40 boutons soit autant de ligne à effectuer.
- La taille est définit au limite de la case et je souhaite que celle-ci soit à environ 80 % de sa taille en gardant un espace identique de chaque côté.

Merci

 

[Mytå]

Re : Redimensionner automatiquement bouton de commande

Salut le forum

Fait une recherche sur les Modules de Classe

Mytå

 

[Etiene]

Re : Redimensionner automatiquement bouton de commande

Salut Myta,

Au vue des premières recherches effectuées, cette solution s'adresse à des personnes confirmés.
Aurais-tu une indication de recherche plus précise ou une correspondance quitte à effectuer un code pour chaque bouton.

Merci