Bouton

[gus]

Bonjour,

Voici ma question !
Est-il possible de faire apparaître une donnée issue d'une cellule dans un bouton de formulaire ?

Merci à tous pour votre aide

 

[JMG]

Bonjour gus

place un chiffre dans la cellule
ligne 1
colonne 3
et affecte cette procedure
bien sur ton bouton s'appelle Bouton 1

sub essai()
ActiveSheet.DrawingObjects("Bouton1").Text = Cells(1, 3)
end sub

A+ JMG

 

[gus]

Wouaou !!!!!!
Quelle rapidité !!!
Merci beaucoup pour cette réponse précise !!

 

[gus]

Je viens de faire un test et........ bouh.... ça ne fonctionne pas !
(j'ai Excel 2000)

 

[Stéphane]

bonjour

cela marche si ton bouton est dessiné avec la barre de dessin ou la barre d'outils formulaire

dans l'exemple de JMG il a oublié un espaceentre Bouton & 1, parcequ'excel génère les boutons et leur donne un nom de la forme "Bouton " & i.


Sub Bouton1_QuandClic()

ActiveSheet.DrawingObjects("Bouton 1").Text = Cells(1, 3)

End Sub


bye
stephane
ps : pr des boutons de la barre d'outils commandes/contrôles, voir http://xlbysteph.free.fr/aideinformatique/userform.htm

 

[gus]

Merci !!!!!!
En effet je m'en suis rendu compte après l'envoi du mon dernier post !!!

Merci beaucoup !!!
C'est tellement simple que je cherchais compliqué !! lolllllll