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...