Retour chariot Excel
Résolu
Prototype51
Messages postés
26
Date d'inscription
lundi 25 avril 2005
Statut
Membre
Dernière intervention
5 janvier 2008
-
16 août 2006 à 16:30
KC62 Messages postés 229 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 20 juin 2007 - 17 août 2006 à 20:26
KC62 Messages postés 229 Date d'inscription mardi 3 juin 2003 Statut Membre Dernière intervention 20 juin 2007 - 17 août 2006 à 20:26
A voir également:
- Code ascii retour chariot
- Retour charriot - Meilleures réponses
- Code ascii retour à la ligne - Meilleures réponses
- Retour chariot - Forum PHP
- Comment "écrire" un retour chariot (saut de ligne) ?? - Forum Visual Basic
- Retour chariot ✓ - Forum C# / .NET
- Insérer un retour chariot dans un fichier Txt ??? - Forum Java
- Code ascii du retour à la ligne ds une cellule - Forum Visual Basic
8 réponses
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 août 2018
23
16 août 2006 à 23:56
16 août 2006 à 23:56
KC62, pour ton info VbCrLf
Cr pour Carriage return (retour de chariot)
Lf pour Line Feed (Saut de ligne)
Je n'ai pas la solution, mais j'ai remarqué qu'en Excel si tu mets
Range("A1") = "Je saute" & vbcrlf & "une ligne"
ça met un petit carreau blanc en guise de caractère "illisible" ou "inaffichable"
Avec Range("A1") = "Je saute" & vbcrlf & "une ligne"
ça ne met pas de signe
vbLf est l'équivalent de chr(10)
vbCrl est l'équivalent de chr(13)
Il faudrait probablement que tu t'amuses avec ces deux caractères
Un peu comme dit MichelXLD, tu peux utiliser cette fonction d'Excel ou celle de VB
Entete = Replace(Entete, vbCrLf, vbLf)
ou
Entete Replace(Entete, vbCrLf, chr(32)) ' chr(32) espace
Et comme dit KC62, tu peux vérifier chaque caractère de ton entête en créant une petite fonction du genre
Sub Y()
Dim strTemp As String, I As Integer
For I = 1 To Len(Range("A1")) ' Range("A1") contient l'entête en question
strTemp = strTemp & Asc(Mid(Range("A1"), I, 1)) & vbTab & _
Mid(Range("A1"), I, 1) & vbCrLf
Next
MsgBox strTemp
End Sub
MPi
Cr pour Carriage return (retour de chariot)
Lf pour Line Feed (Saut de ligne)
Je n'ai pas la solution, mais j'ai remarqué qu'en Excel si tu mets
Range("A1") = "Je saute" & vbcrlf & "une ligne"
ça met un petit carreau blanc en guise de caractère "illisible" ou "inaffichable"
Avec Range("A1") = "Je saute" & vbcrlf & "une ligne"
ça ne met pas de signe
vbLf est l'équivalent de chr(10)
vbCrl est l'équivalent de chr(13)
Il faudrait probablement que tu t'amuses avec ces deux caractères
Un peu comme dit MichelXLD, tu peux utiliser cette fonction d'Excel ou celle de VB
Entete = Replace(Entete, vbCrLf, vbLf)
ou
Entete Replace(Entete, vbCrLf, chr(32)) ' chr(32) espace
Et comme dit KC62, tu peux vérifier chaque caractère de ton entête en créant une petite fonction du genre
Sub Y()
Dim strTemp As String, I As Integer
For I = 1 To Len(Range("A1")) ' Range("A1") contient l'entête en question
strTemp = strTemp & Asc(Mid(Range("A1"), I, 1)) & vbTab & _
Mid(Range("A1"), I, 1) & vbCrLf
Next
MsgBox strTemp
End Sub
MPi
