P’têt ben : je n'ai pas ouvert le lien.... C'est exactement ce qu'explique le lien de mon précédent message, non?...
Sub Cellule2Shape()
Dim sh As Shape
With ActiveCell
Set sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height)
sh.TextFrame2.TextRange = .Value
sh.TextFrame2.VerticalAnchor = msoAnchorMiddle
sh.TextFrame2.HorizontalAnchor = msoAnchorCenter
End With
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Address <> "$C$6" Then Exit Sub
ActiveSheet.Shapes("TextBox 1").Select
With Selection
.Characters.Text = Range("c6").Value
End With
Range("c6").Select
End Sub