Macro pour modifier le texte d'une forme

Bonjour,

J'aimerai modifier le texte d'une forme suivant un tableau de référence (P1.1).

Actuellement j'avais cette macro qui me permettait d'aller chercher un plage de cellule (B17:F21)

Maintenant, je souhaite faire pareil mais pour aller chercher une cellule et copier l’intérieur de ma cellule dans une forme nommé

ActiveSheet.Shapes.Range(Array("Rectangle : coins arrondis 26"))

Pouvez vous m'aider ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Valeur As String, Plage As Range

    If Not Intersect(Target, Me.Range("$BY$4:$CB$4")) Is Nothing And Target.Count = 1 Then
        Valeur = Me.Range("CC4")
        With [P1.1].ListObject.DataBodyRange
            Set Plage = .Find(Valeur)
            If Not Plage Is Nothing Then Me.Range("B17:F21").Value = Worksheets("DATA").Range(.Cells(Plage.Row - .Row + 1, 5)).Value
        End With
    End If

End Sub

merci

Bonjour bramavalos,

une piste à tester,

Sub test()
For i = 1 To ActiveSheet.Shapes.Count
 If ActiveSheet.Shapes(i).Name Like "*Rounded Rectangle*" Then
   Debug.Print ActiveSheet.Shapes(i).Name
   Debug.Print ActiveSheet.Shapes(i).TopLeftCell.Row
   ActiveSheet.Shapes(i).TextFrame2.TextRange.Characters.Text = i
 End If
Next
End Sub

Hello

merci pour ta réponse mai je souhaite garder mon système de reference dynamique.

CAD que je souhaite toujours que ma macro prendre ma reference CC4, et aille chercher la cellule à afficher dans ma feuille P1.1 et enfin affiche la cellule trouvé dans ma feuille P1.1 dans la forme Array("Rectangle : coins arrondis 26")

Pourrais tu adapter ma macro avec le systeme de ta macro?

Je te remercie