convertir le contenu de cellule a zone de texte

[lyahyaii]

bonjour mes amis
et ce que vous m'aider pour convertir le contenu de cellule a zone de texte
en vba

 

[Staple1600]

Bonjour le fil, le forum

@lyahyaii
Si j'ai bien compris, ce que tu veux faire, pas besoin de VBA.
Suis ce pas à pas, et tu auras le contenu d'une cellule dans une zone de texte.
https://support.office.com/fr-fr/ar...raphique-e2e7a629-5662-42d6-9295-06d112c2099f

 

[lyahyaii]

voila ce que je veux vous dire

 

[DoubleZero]

Bonjour, lyahyaii, Staple1600 🙂, le Forum,

Comme ceci, sans macro :

A bientôt 🙂

 

[Staple1600]

Re,

C'est exactement ce qu'explique le lien de mon précédent message, non?
(le VBA en moins, mais est-ce utile ici le VBA?)

 

[DoubleZero]

Re-bonjour,

... C'est exactement ce qu'explique le lien de mon précédent message, non?...

P’têt ben : je n'ai pas ouvert le lien.

A bientôt 🙂

 

[Staple1600]

Bonjour 00 (voir le PS en bas de message)

@00
C'est exactement ce qu'explique le lien du message#2 😉
Mais même à deux sans macros, le demandeur semblant vouloir du VBA
En voici, en voilà

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

PS: Le message précédent s'adressait au demandeur 😉
(mais comme on a posté dans la même minute ou presque 😉)

 

[lyahyaii]

Sub zone_texte()
h = Selection.Height
l = Selection.Width
gauche = Selection.Left
haut = Selection.Top
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, gauche, haut, l, h).Select
End Sub

 

[lyahyaii]

🙂 merci beaucoup
Ce lien n'existe plus

 

[Staple1600]

Re

@lyahyaii
J'en déduis que tu as vu la macro du message#7
Mais j'ai du mal à comprendre le pourquoi de la chose?

Car cela va aussi vite de le faire à la main comme expliqué par 00 et/ou par le lien de mon 1er message.

PS: Ta macro Sub zone_texte() ne reprend pas le contenu de la cellule dans le shape
C'est voulu?
Car dans ce cas, tu ne convertis pas le contenu d'une cellule dans une zone de texte mais tu superposes simplement une zone de texte sur ta sélection.
(ce qui n'est pas ce qu'indique le titre de ta discussion)

 

[DoubleZero]

Re-bonjour,

Staple16🙂🙂, tu n'es pas le seul membre transparent...

lyahyaii, pour une action immédiate :

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

A bientôt 🙂

 

[lyahyaii]

Sub Cellule2Shape()
Dim sh As Shape
With ActiveCell
h = Selection.Height
l = Selection.Width
gauche = Selection.Left
haut = Selection.Top
Set sh = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, gauche, haut, l, h)
sh.TextFrame2.TextRange = .Value
sh.TextFrame2.VerticalAnchor = msoAnchorMiddle
sh.TextFrame2.HorizontalAnchor = msoAnchorCenter
End With
End Sub

 

[lyahyaii]

 

[lyahyaii]

 

[lyahyaii]

comment changer la forme de c'est zone de texte