Discussion :

[thirdeye]

Bonjour,

Je souhaiterai redimensionné mes boutons de macro pour que celle-ci s'incruste parfaitement dans une cellule.

Pour l'instant je tente ca manuellement mais ayant un nombre important de macros, j'aimerais savoir s'il existe un moyen pour faire cela plus rapidement

Merci

[JeanSairien]

Bonjour,

Voici le code pour récupérer la taille d'une cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Toto1 = ActiveCell.Height '(hauteur)
Toto2 = ActiveCell.Width '(largeur)

Ensuite dans les paramètres de création du bouton Toto1 et Toto2 en paramètres de dimensionnement de ton bouton.

Ensuite tu fait un petit calcul afin de le positionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Toto3 = activecell.row
Toto4 = activecell.column
 
...Top = Toto3 * Toto1
...Left = Toto4 * Toto2

Ou tu créé une variable pour la multiplication entre les variables TotoX.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With ActiveSheet.CommandButton1
    .Top = Range("C10").Top
    .Left = Range("C10").Left
    .Width = Range("C10").Width
    .Height = Range("C10").Height
End With

[JeanSairien]

Effectivement c'est plus simple.

[thirdeye]

merci messieurs de vos réponses, je vais tenter la chose

[thirdeye]

Par contre, j'ai bien dimensionné mes boutons à la taille de mes cellules mais je rencontre tout de même un problème.

J'ai créé des menus déroulant du coup lorsque je réduit mes cellules, mes boutons se réduisent également.

Il n'y aurait pas de problème si lorsque je rouvre mes menus déroulant, mes boutons ne reprennent pas la taille de la cellule mais la taille d'une simple ligne et sont les uns sur les autres.

Y a til quelque chose pour résoudre ce problème?

ne puis je pas définir que le bouton untel correspond à la cellule untel?