Modifier Nom et Texte FORME

Bonjour,

Sub CopiePanneau()

Dim NumeroPanneau$

NumeroPanneau = "Panneau " & Sheets("QUANTITATIF").Range("O4").Value

    ActiveSheet.Shapes(NumeroPanneau).Copy
    Sheets("CREATION PANNEAU").Range("B4").Select
    ActiveSheet.Paste

'ICI (modifier le nom de la forme copiée)

End Sub

Je cherche à modifier le nom et le texte de la forme que je viens de copier?

Est ce possible?

Merci

Bonjour,

ci-dessous code :

Sub CopiePanneau()

    Dim NumeroPanneau$

    NumeroPanneau = "Panneau " & Sheets("QUANTITATIF").Range("O4").Value

    ActiveSheet.Shapes(NumeroPanneau).Copy
    Sheets("CREATION PANNEAU").Activate: Range("B4").Select: ActiveSheet.Paste
    Selection.Name = "nouveau nom"
    ActiveSheet.Shapes("nouveau nom").TextFrame.Characters.Text = "tttttttttttttttt"

End Sub

Merci ))