Coordonnée dynamique

[siocnarf]

Je souhaite dynamiquement positionner un bouton. Pour cela j'essaie d'imaginer comment calculer la sommes des largeurs de colonnes et la somme des hauteurs de ligne afin de bien positionner mon bouton peut-importe l'ajustement sur la hauter des lignes ou sur la largeur des colonnes.

Quelqu'un aurait-il une idée??

 

[Papou-net]

Re : Coordonnée dynamique

Bonsoir siocnarf,

Voici un exemple de code qui positionne un controle sur le haut-gauche de la cellule active.

Me.CommandButton1.Left = ActiveCell.Left
Me.CommandButton1.Top = ActiveCell.Top

Libre à toi de l'attacher à un événement ou à une macro de ton choix, et d'affiner la position du contrôle par rapport à la cellule.

Espérant t'avoir aidé.

Cordialement.

 

[siocnarf]

Re : Coordonnée dynamique

Bonsoir siocnarf,

Voici un exemple de code qui positionne un controle sur le haut-gauche de la cellule active.

Me.CommandButton1.Left = ActiveCell.Left
Me.CommandButton1.Top = ActiveCell.Top

Libre à toi de l'attacher à un événement ou à une macro de ton choix, et d'affiner la position du contrôle par rapport à la cellule.

Espérant t'avoir aidé.

Cordialement.

CaseBouton = Cells(1, 4).Select

'crée le bouton
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)
Obj.Name = "qpw502.prodna.mrqech"


Me.CommandButton1.Left = ActiveCell.Left
Me.CommandButton1.Top = ActiveCell.Top

J'arrive à une erreur. Que signifie Me et comment cela devrait-il être utilisé?

 

[Lii]

Re : Coordonnée dynamique

Bonsoir,

à tester :

L = ActiveCell.Left
T = ActiveCell.Top
'crée le bouton
Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=L, Top:=T, Width:=100, Height:=35)
Obj.Name = "qpw502.prodna.mrqech"

 

[siocnarf]

Re : Coordonnée dynamique

Excellent!
Maintenant comment pourrais-je faire pour:
1. Être certain que le bouton est assez large pour que le texte soit apparent au complet
2. Que la colonne soit assez large et assez large et haute pour que le bouton soit au complet.