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]

Re,

00

Re
Donc si tu l'agrandis manuellement, la solution sans macro
(détaillée dans les messages#2 et#4) est plus rapide 😉

On est bien d'accord, mais le camarade veut du VBA alors je vébéate 😉
00: Tu as une erreur 😉
C'est Salut mais amis qu'il faut avoir comme résultat
Or sur ta photo, on peut lire : Salut mes amis

 

[lyahyaii]

Ce lien n'existe plus Ce lien n'existe plus
salut DoubleZero


oui je voudrais en vba

 

[Staple1600]

Re

Donc du VBA, en veux-tu en voila 😉

Sub testDessin_III()
ActiveSheet.DrawingObjects.Delete
Cells.Clear
[C3] = "Salut"
[C4] = "mes amis"
Formez_Les_Rangs Range("C3"), msoShapeSun, 350, 350
End Sub
Private Sub Formez_Les_Rangs(Cellule As Range, TypeF As MsoAutoShapeType, vW As Long, vH As Long)
Dim sh As Shape, Texte$
With Cellule
Texte = .Value & Chr(10) & .Offset(1).Value
    Set sh = ActiveSheet.Shapes.AddShape(TypeF, .Left, .Top, vW, vH)
        With sh.TextFrame2
            .TextRange = Texte: .VerticalAnchor = 3: .HorizontalAnchor = 2
            .WordArtformat = 30: .TextRange.Font.Size = 20
        End With
    sh.ShapeStyle = 10013
    sh.LockAspectRatio = msoTrue
    sh.ScaleHeight 1, msoFalse, msoScaleFromTopLeft
    sh.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
    .Clear
    .Offset(1).Clear
End With
End Sub

 

[DoubleZero]

Re-bonjour,

...00: Tu as une erreur 😉
C'est Salut mais amis qu'il faut avoir comme résultat
Or sur ta photo, on peut lire : Salut mes amis

Tu as fait la même erreur :

A bientôt 😛😀​

 

[Staple1600]

Re

@DoubleZero
Exact.
Tu crois que mon VBA a un virus ?
Je vais mettre Option Explicit, ça va peut-être mieux marcher 😉

PS: Ta photo montre que tu as testé ma macro en l'état 😉 Merci
Tu n'as pas essayé en changeant la forme (voir ma copie d'écran du message#23) ?

 

[lyahyaii]

bien fait mais pour napourt quelle cellules active

 

[lyahyaii]

 

[lyahyaii]

 

[Staple1600]

Re

Tu as tous les éléments pour faire ce que tu souhaites.
Il te suffit de relire mes codes et de voir comment j'utilise ActiveCell.
Je te laisse tester et adapter le code VBA de mon dernier message (qui en contient) 😉
(Histoire que tu bosses un peu, camarade 😉 )

PS: Tu peux arrêter de poster des copies d'écran sans aucun message ou commentaire, stp ?
Car c'est légèrement agaçant à force...