convertir le contenu de cellule a zone de texte

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #2

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

 

Vote positif 0 Vote négatif

L

lyahyaii

Guest

• 21 Janvier 2018

• #3

voila ce que je veux vous dire

 

Pièces jointes

• Créer exsompel 1.xlsm

  13 KB · Affichages: 40

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Janvier 2018

• #4

Bonjour, lyahyaii, Staple1600 🙂, le Forum,

Comme ceci, sans macro :

​

A bientôt 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #5

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?)

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Janvier 2018

• #6

Re-bonjour,

Staple1600 à dit:

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

Cliquez pour agrandir...

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

A bientôt 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #7

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à

VB:

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 😉)

 

Vote positif 0 Vote négatif

L

lyahyaii

Guest

• 21 Janvier 2018

• #8

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

 

Vote positif 0 Vote négatif

L

lyahyaii

Guest

• 21 Janvier 2018

• #9

🙂 merci beaucoup
Ce lien n'existe plus

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #10

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)

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Janvier 2018

• #11

Re-bonjour,

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

lyahyaii, pour une action immédiate :

VB:

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 🙂

 

Vote positif 0 Vote négatif

L

lyahyaii

Guest

• 21 Janvier 2018

• #12

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

 

Vote positif 0 Vote négatif

L

lyahyaii

Guest

• 21 Janvier 2018

• #13

 

Vote positif 0 Vote négatif

L

lyahyaii

Guest

• 21 Janvier 2018

• #14

 

Vote positif 0 Vote négatif

L

lyahyaii

Guest

• 21 Janvier 2018

• #15

comment changer la forme de c'est zone de texte

 

Vote positif 0 Vote négatif