cs_Douns
Messages postés100Date d'inscriptionlundi 16 septembre 2002StatutMembreDernière intervention19 septembre 20051 18 janv. 2005 à 09:54
Tient voila le code, je pense qu'il y assez de commentaires mais si tu ne comprends pas quelque chose, demande moi!
Dim longeur_chaine As Long
Dim chaine As String
Dim textbox_temp As String
Dim nb_tour As Long
Dim nb_caractere As Long
Dim i As Long
'on place une chaine dans chaine
chaine = "voici une chaine de caractere en exemple!!!"
'on compte la longueur de la chaine
longeur_chaine = Len(chaine)
'on place le nombre qui servira à déterminer tous les combien d ecaracteres on saute à la ligne
nb_caractere = 4
'on calcule le nb de tour
nb_tour = longeur_chaine / 4
'on boucle pour couper la chaine et la mettre dans la textbox
For i = 0 To nb_tour - 1
'on vérifie que c'ets le premier tour
If i = 0 Then
textbox_temp = Mid(chaine, 1, nb_caractere)
Else
'vbcrlf est le caractère de retour chariot
textbox_temp = textbox_temp & vbCrLf & Mid(chaine, i * nb_caractere + 1, nb_caractere)
End If
Next
'on place le résultat dans la textbox
Text1.Text = textbox_temp