Bouton

J

JMG

Guest

• 15 Avril 2002

• #2

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

 

Vote positif 0 Vote négatif

G

gus

Guest

• 15 Avril 2002

• #3

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

 

Vote positif 0 Vote négatif

G

gus

Guest

• 15 Avril 2002

• #4

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

 

Vote positif 0 Vote négatif

S

Stéphane

Guest

• 16 Avril 2002

• #5

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

 

Vote positif 0 Vote négatif

G

gus

Guest

• 16 Avril 2002

• #6

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

 

Vote positif 0 Vote négatif