Soucis avec longueur du texte dans un bloc texte

[Michel_ja]

Bonjour,
j'ai une macro qui envoie le contenu d'une cellule active de la colonne A dans un bloc text que j'appelle ici "Bloc". Je l'enclenche en appuyant sur le petit triangle en haut de la feuille.
Problème, la macro fonctionne lorsque le texte est court comme pour les cellules A9 ou A15 mais ne fonctionne pas pour la cellule A21.
Je suppose que cela est lié à la longueur du texte.
Merci pour votre aide.

 

[Michel_ja]

Re : Soucis avec longueur du texte dans un bloc texte

Vlà un cas concret. Par exemple si on passe de la cellule A32 à A26. Il reste un bout de texte dan le bloc !

 

[Guest]

Re : Soucis avec longueur du texte dans un bloc texte

Bonjour,

.Characters.Text ne concerne que les 255 premiers caractères. Donc:

Sub Macro3()
    Dim Bloc As Shape
    Dim i As Integer
    Dim NouveauTexte As String
    
    NouveauTexte = ActiveCell.Text
   
    With ActiveSheet.Shapes("Bloc").TextFrame
        Do While Len(.Characters.Text) > 0
            .Characters.Text = ""
        Loop
        If Len(ActiveCell.Text) <= 255 Then
            .Characters.Text = NouveauTexte
        Else
            For i = 0 To Int(Len(NouveauTexte) / 255)
                .Characters(.Characters.Count + 1).Insert Mid(NouveauTexte, (i * 255) + 1, 255)
            Next
        End If
    End With
End Sub

A+

 

[Michel_ja]

Re : Soucis avec longueur du texte dans un bloc texte

ça marche !!!! "C'est ça ksé bonnnnn".
Merci Hasco, merci à vous tous.

 

[tototiti2008]

Re : Soucis avec longueur du texte dans un bloc texte

Bonjour à tous,

Bien vu Hasco, assez bizarre leur gestion des textes de plus de 255 caractères... à retenir