copier ce qui est ecrit dans un bouton!

Dranreb

XLDnaute Barbatruc

• 4 Juin 2015

• #2

Re : copier ce qui est ecrit dans un bouton!

Bonjour.

Dans votre macro affectée au bouton de formulaire vous pouvez récupérer son nom, c'est Application.Caller.

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 4 Juin 2015

• #3

Re : copier ce qui est ecrit dans un bouton!

ok merci beaucoup!
etant debutant pourriez vous me faire un petit exemple tres rapide?
cordialement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Juin 2015

• #4

Re : copier ce qui est ecrit dans un bouton!

Affectez cette macro à plusieurs boutons de formulaire (ne marche pas avec des boutons de commande ActiveX) et cliquez dessus.

VB:

Sub MacroCommune()
Dim Nom As String, Sh As Shape, Texte As String
Nom = Application.Caller
Set Sh = ActiveSheet.Shapes(Nom)
Texte = Sh.TextFrame.Characters.Text
MsgBox Nom & ": """ & Texte & """."
End Sub

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 4 Juin 2015

• #5

Re : copier ce qui est ecrit dans un bouton!

merci beaucoup!!
serait il possible de copier le premier mot du bouton dans un cellule et le deuxième mot dans une autre?

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 4 Juin 2015

• #6

Re : copier ce qui est ecrit dans un bouton!

mes deux mots sont séparés par entrée peut etre que cela pourrait vous aider?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Juin 2015

• #7

Re : copier ce qui est ecrit dans un bouton!

Probablement séparés par un passage à ligne suivante plutôt.
Dim TSpl() As String: TSpl = Split(Texte, vbLf) vous en renverrait un tableau à deux éléments, TSpl(0) et TSpl(1)

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 4 Juin 2015

• #8

Re : copier ce qui est ecrit dans un bouton!

ok merci barbatruc!
j'aurais une derniere question : serait il possible de copier ces deux mots dans une zone de liste deroulante?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 4 Juin 2015

• #9

Re : copier ce qui est ecrit dans un bouton!

De formulaire ? Je ne sais pas trop, jamais fait.
À la propriété List d'un ComboBox d'Userform, oui, je pense.

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 4 Juin 2015

• #10

Re : copier ce qui est ecrit dans un bouton!

oui de formulaire!!

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 4 Juin 2015

• #11

Re : copier ce qui est ecrit dans un bouton!

ou peut etre que tout cela serait plus facile avec des boutons de controles... etant novice je ne connais pas la meilleure solution...

 

Vote positif 0 Vote négatif