ecrire nom d'une forme dans une cellule [Résolu]

[redstoff]

Bonjour,

je suis entrain de tester un truc qui ne marche pas ^^

je vous dis mon probleme

- j'ai une forme avec de l'écriture dedans : exemple : "Four"
- A coté, j'ai une cellule vide : "R2"

ce que je souhaite faire c'est quand je clique sur la forme "Four", le nom de la forme s'inscrit dans la cellule "R2".

j'ai fait une macro que j'ai affecté à la forme où l'on retrouve comme commande:

Code :

1
2
3
Sub test()
    Range("r2") = Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text
End Sub

le soucis vient du fait qu'il y a une erreur car la macro se lance sans selectionner la forme.

Ma question est donc: Commet puis parer ca?

merci

[DeTraX]

Dans le code de ta form "Four"

Code :

1
2
3
4
 
Private Sub UserForm_Click()
    Range("R2") = Me.Name
End Sub

Peut-être préfères-tu le comportement en appelant la procédure UserForm_Activate ?

J'ai répondu un peu vite... Ca devrait être plus pertinent avec ce code

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub test()
    Dim myShape As Shape
    For Each myShape In Worksheets("Feuil1").Shapes
        If myShape.Name = Application.Caller Then
            Range("R2") = myShape.TextEffect.Text
            Exit For
        End If
    Next
End Sub

[redstoff]

bonjour,

ca marche parfaitement

je t'en remercie grandement ^^