Discussion :

[gigalia]

Bonjour,

J'aimerais créé une macro qui me permette de copie le contenu d'une zone de texte dans une cellule. La macro sera affecté à la zone de texte et le faite de clicquer sur la zone de texte copierais le contenu dans une cellule (ex:"A1").

Attention : j'ai plusieurs zone de texte et je veux que la macro copie le contenu de la zone de texte sur laquel je clicque.

Merci pour vos réponses.

[mromain]

Bonjour gigalia,


Voici un essai avec cette macro à affecter aux zones de texte concernées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub RecupTexteShape()
Dim laShapeActive As Shape
    On Error Resume Next
     Set laShapeActive = ActiveSheet.Shapes(Application.Caller)
    On Error GoTo 0
    If Not laShapeActive Is Nothing Then ActiveSheet.Range("A1").Value = laShapeActive.TextFrame2.TextRange.Text
End Sub

Bonne journée

[gigalia]

Merci beaucoup de cette réponse elle est parfaite. Vous êtes des pros....

Bonjour,

La solution marche très bien en Excel 2010. Mais lorsque je passe sur la version 2003, la solution proposé ne marche plus.

Aurais-tu un code adapté à la version 2003 de excel????

Merci.

[pijaku]

Bonjour,
Ce n'est certainement pas la meilleure solution, ni la plus "esthétique", mais elle fonctionne avec Excel 2003. Adaptation du code de mromain :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub RecupTexteShape()
Dim laShapeActive As Shape
    On Error Resume Next
     Set laShapeActive = ActiveSheet.Shapes(Application.Caller)
    On Error GoTo 0
    If Not laShapeActive Is Nothing Then ActiveSheet.Range("A1").Value = Right(laShapeActive.AlternativeText, Len(laShapeActive.AlternativeText) - 15)
End Sub

En fait, AlternativeText seul nous done : "Zone de Texte : contenu de la Shape", il nous faut donc extraire la chaine qui nous convient. D'où le Right(laShapeActive.AlternativeText, Len(laShapeActive.AlternativeText) - 15)
15 étant le nombre de caractères de "Zone de Texte : "

[gigalia]

Bonjour,

Merci la réponse marche en version 2003.

[pijaku]

Bonjour à tous,
Je reviens sur ce sujet "résolu" pour apporter une modification aux divers codes de cette discussion. La bonne syntaxe pour récupérer le contenu d'une Shape, ici la "zone de texte" est (en gras dans le code) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RecupTexteShape()
Dim laShapeActive As Shape
    On Error Resume Next
    Set laShapeActive = ActiveSheet.Shapes(Application.Caller)
    On Error GoTo 0
    laShapeActive.Select
    
    If Not laShapeActive Is Nothing Then
        With Selection
            ActiveSheet.Range("A1").Value = .Characters.Text        
        End With
    End If
End Sub

Cela pourra toujours être utile à un prochain visiteur. Tout comme ce lien de Fring...