convertir le contenu de cellule a zone de texte

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #31

Re,

00

Staple1600 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

lyahyaii

XLDnaute Nouveau

• 21 Janvier 2018

• #32

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


oui je voudrais en vba

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #33

Re

Donc du VBA, en veux-tu en voila

VB:

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

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 21 Janvier 2018

• #34

Re-bonjour,

Staple1600 à dit:

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

Cliquez pour agrandir...

Tu as fait la même erreur :

​

A bientôt ​

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #35

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

 

Vote positif 0 Vote négatif

lyahyaii

XLDnaute Nouveau

• 21 Janvier 2018

• #36

bien fait mais pour napourt quelle cellules active

 

Vote positif 0 Vote négatif

lyahyaii

XLDnaute Nouveau

• 21 Janvier 2018

• #37

 

Vote positif 0 Vote négatif

lyahyaii

XLDnaute Nouveau

• 21 Janvier 2018

• #38

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #39

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

 

Vote positif 0 Vote négatif