comment faire référence (en VBA) à un bouton sur une feuille de calcul

[daniel]

Bonsoir à toutes et tous,

J'ai une question d'ordre "général" : comment, dans un module de code, puis je faire référence à un contrôle activeX (bouton, par exemple) situé dans une feuille de calcul ? J'ai essayé : sheets("feuil1").nomdubouton, sans succès...

Un grand merci d'avance...

Daniel

 

[David]

Je ne sais pas si j'ai pigé, mais le plus simple consiste à écrire une macro de ce que tu souhaites(ex : ouvrir la feuille 2 et sélectionner h5), puis, d'affecter au bouton de commande que tu as crée, cette macro.

 

[daniel]

merci mais...

...ce n'est pas ça que je veux faire. Je voudrais, dans un code VBA, "faire référence" à un bouton placé dans une feuille de calcul. Par ex, indiquer dans le code VBA : redimensionner le bouton 1 de la feuille 1, ou changer son intitulé...tout ça accessible par code

J'espère avoir été un peu plus clair...

Merci de m'avoir répondu, en tout cas

Daniel

 

[michel]

bonsoir Daniel , bonsoir David

ci dessous quelques actions possibles sur un CommandButton1 placé dans la feuille1

Sub ActionSurOleObjet()
With Sheets(1).OLEObjects("commandbutton1").Object
.Caption = "Test" 'texte dans bouton
.BackColor = 255 'couleur de fond du bouton
End With
With Sheets(1).OLEObjects("commandbutton1")
.Left = 20 'position par rapprot au bord de la feuille
.Top = 20 'position parrapport au haut de la feuille
.Width = 80 'largeur
.Height = 30 'hauteur
.Visible = True
End With
End Sub


bonne soiree
michel

 

[daniel]

merci beaucoup

merci beaucoup Michel,

je teste ça de suite

bonne soirée

daniel