Retour à la ligne forcé dans MsgBox

[lynyrd]

Bonsoir le forum
Dans un nombre important de MsgBox,je dois faire des copier-coller de texte.
existe t'il un moyen de forcer le retour à la ligne (par exemple à 50 caractères par ligne),ou suis je obligé de faire pour chaque retour "chr(10).
Merci.

 

[MichelXld]

Re : Retour à la ligne forcé dans MsgBox

bonjour


tu pourras par exemple adapter cette procédure:

Découper une longue chaine de caractères sans couper les mots

'------- procedure pour scinder la requete -------------
'La chaine sera scindée si sa longueur est supérieure à 50 caractères
Requete = "Bonsoir le forum, Dans un nombre important de MsgBox, je dois faire des copier-coller de texte. existe t'il un moyen de forcer le retour à la ligne (par exemple à 50 caractères par ligne),ou suis je obligé de faire pour chaque retour chr(10). Merci."
    
    Cible = Requete
    Requete = ""
 
    For i = 1 To Len(Cible)
        'Recherche le premier espace après le 50ème caractère
        X = InStr(50, Cible, " ")
 
        If X = 0 Then
            Chaine = Cible
            Requete = Requete & Chaine
            Exit For
        End If
 
        Chaine = Mid(Cible, 1, X)
        Requete = Requete & Chaine & vbCrLf
        Cible = Mid(Cible, Len(Chaine) + 1)
    Next
MsgBox Requete

Bonne journée
MichelXld

 

[lynyrd]

Re : Retour à la ligne forcé dans MsgBox

Bonjour le forum
Merci Michel XLD c'est parfait.