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.

 

[JNP]

Re : Soucis avec longueur du texte dans un bloc texte

Bonjour Michel_ja ,
Je ne sais pas si ça t'aidera mais aucun soucis sous 2007 ...
Bonne soirée

 

[Michel_ja]

Re : Soucis avec longueur du texte dans un bloc texte

Merci JPN. J'avais en effet testé sur 2007 et ça ne posait pas de problèmes. Mais c'est pour une jolie fille que n'a que Excel 2003 !!! Snif Snif !

 

[Guest]

Re : Soucis avec longueur du texte dans un bloc texte

Bonjour,

couper le texte en tronçon de 255 caractères et les insérer l'un après l'autre:

Sub Macro3()
    Dim Bloc As Shape
    Dim i As Integer

    With ActiveSheet.Shapes("Bloc").TextFrame
        If Len(ActiveCell.Text) <= 255 Then
            .Characters.Text = ActiveCell.Text
        Else
            .Characters.Text = ""
            For i = 0 To Int(Len(ActiveCell.Text) / 255)
                .Characters(.Characters.Count + 1).Insert Mid(ActiveCell.Text, (i * 255) + 1, 255)
            Next
        End If
    End With
End Sub

A+

 

[Papou-net]

Re : Soucis avec longueur du texte dans un bloc texte

Bonjour à tous,

RE Michel_ja

Si tu utilises le contrôle Label de la barre d'outils Contrôles, tu n'as plus la limitation à 255 caractères. Dans ce cas, il faut modifier ton code comme suit :

Sub Macro3()
Sheets("Feuil1").Label1.Caption = ActiveCell
End Sub

Personnellement, je n'utilise jamais les contrôles de la barre d'outils Formulaires qui ne sont conservés que pour compatibilité avec les anciennes versions d'Excel. Les contrôles ActiveX sont beaucoup plus souples d'emploi et leur manipulation est conforme à VBA.

Espérant avoir aidé.

Cordialement.

 

[Michel_ja]

Re : Soucis avec longueur du texte dans un bloc texte

La barre de controle dans Excel 2003 ou Excel 2007 ? dans la barre de controle du VBA Editor ??

 

[Guest]

Re : Soucis avec longueur du texte dans un bloc texte

Bonjour,

As-tu essayer la macro que je t'ai donnée?

A+

 

[Papou-net]

Re : Soucis avec longueur du texte dans un bloc texte

La barre de controle dans Excel 2003 ou Excel 2007 ? dans la barre de controle du VBA Editor ??

Excel 2003 :

Menu Affichage...Barres d'outils...Boîte à outils Contrôles

Excel 2007 :

Menu Insertion...Texte...Objet

Cordialement.

 

[Michel_ja]

Re : Soucis avec longueur du texte dans un bloc texte

Merci Hasco, t'as solution fonctionne très bien sur Excel 2003. Elle ne fonctionne pas sur Excel 2007 mais là pas de problème de connais le code. Je vais essayer aussi la solution de Papou. Merci les gars.

 

[JNP]

Re : Soucis avec longueur du texte dans un bloc texte

Re ,

t'as solution fonctionne très bien sur Excel 2003. Elle ne fonctionne pas sur Excel 2007 mais là pas de problème de connais le code.

Si ça peux t'aider

If Split(Application.Version, ".")(0) >= 12 Then
' Code 2007
Else
' Code 2003
End If

Bonne journée

 

[tototiti2008]

Re : Soucis avec longueur du texte dans un bloc texte

Bonjour à tous,

Une remarque, le code d'Hasco fonctionne bien sur 2003, sauf dans un cas spécial :
On a déjà rempli le bloc texte avec plus de 255 caractères avec sa macro, et on sélectionne une cellule de moins de 255 caractères et on la relance.
Dans ce cas, malgré la ligne

.Characters.Text = ""

il n'efface que les 255 premiers caractères pour les remplacer par le contenu de la cellule active, et conserve le reste... assez bizarre, je dois avouer, et je n'ai pas trouvé de parade simple pour l'instant... ça le fait aussi chez vous ?

 

[Guest]

Re : Soucis avec longueur du texte dans un bloc texte

bonjour à tous,

@Tototiti, chez moi sous 2002 le problème dont tu parles ne se produit pas.
Zarbi, zarbi. As-tu essayé en mettant

.Characters.Text = ""

juste sous la ligne With....

A++

 

[tototiti2008]

Re : Soucis avec longueur du texte dans un bloc texte

Re,

Parfait, en mettant la ligne

juste sous la ligne With....

ça fonctionne parfaitement chez moi

 

[Michel_ja]

Re : Soucis avec longueur du texte dans un bloc texte

Bonjour les gars. J'ai bien intégré votre dernier code sous la ligne With mais chez moi lorsqu'on passe d'un texte assez long de +255 caractères voire +600 caractères à un nouveau texte de + de255 caractères, le bloc texte conserve la fin du premier texte et ne supprime que les premiers 255 (sans doute) !


Sub Macro3Sauvegarde()
Dim Bloc As Shape
Dim i As Integer


With ActiveSheet.Shapes("Bloc").TextFrame
.Characters.Text = ""
If Len(ActiveCell.Text) <= 255 Then
.Characters.Text = ActiveCell.Text
Else
.Characters.Text = ""
For i = 0 To Int(Len(ActiveCell.Text) / 255)
.Characters(.Characters.Count + 1).Insert Mid(ActiveCell.Text, (i * 255) + 1, 255)
Next
End If
End With
End Sub

 

[Guest]

Re : Soucis avec longueur du texte dans un bloc texte

Bonsoir,

Ben je sais pas quoi te dire, n'ayant aucun exemple à traiter, si ce n'est que le deuxième .Charaters.Text="" est inutile.

With ActiveSheet.Shapes("Bloc").TextFrame
.Characters.Text = ""
If Len(ActiveCell.Text) <= 255 Then
.Characters.Text = ActiveCell.Text
Else
For i = 0 To Int(Len(ActiveCell.Text) / 255)
.Characters(.Characters.Count + 1).Insert Mid(ActiveCell.Text, (i * 255) + 1, 255)
Next
End If
End With
End Sub

A+