Discussion :

[MobyKDIK]

Bonjour tout le monde,

Après avoir bien cherché sur le web, je ne trouve pas chaussure à mon problème
J'ai un tableau plein de données, qui, du fait d'un traitement ultérieur, contient des cellules de texte avec plusieurs sauts de lignes entre du texte, et d'autres contenant une 1ère ligne puis que des sauts de lignes.
Cela me gène pour l'application de filtres, du fait qu'un même mot pourra, selon la ligne de mon tableau, être succédé de 2 ou 4 sauts de ligne !
Une image parlant mieux que les mots :


Et le code que j'ai voulu mettre en place :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
wsextract.Cells(i, j) = Replace(wsextract.Cells(i, j), Chr(10) & "", "")

Ce code me met tout sur une ligne, même des lignes de texte qui se succèdent

Je remercie toute aide

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
wsextract.Cells(I, j) = SuppCrlf(wsextract.Cells(I, j))
End Sub
Function SuppCrlf(Txt) As String
Dim T, I As Integer
T = Split(Replace(Txt, Chr(13), "") & Chr(10), Chr(10))
 
For I = 0 To UBound(T) - 1
    If Trim("" & T(I)) <> "" Then If SuppCrlf = "" Then SuppCrlf = T(I) Else SuppCrlf = SuppCrlf & Chr(10) & T(I)
Next
 
 
End Function

[MobyKDIK]

Whaou !
J'avoue que j'ai le cerveau qui chauffe, j'essaie de comprendre ton code mais je galère !

déjà rien que pour ta variable T : quelle différence fais-tu entre Chr(13) et Chr(10) ? Je n'arrive pas à comprendre le "Replace" dans le "Split".
Je pense que toute mon incompréhension est à ce niveau là ^^

En tout cas merci de me proposer une solution

[Invité]

Une ligne te texte ce termine par vbcrlf chr(10) & chr(13) 'chr(13)=fin de lingeJe retire les fin de lignes Replace(Txt, Chr(13), "")! Je convertis en tableau en utilisant le chr(10) comme séparateur T = Split(Replace(Txt, Chr(13), "") & Chr(10), Chr(10)) t étant le tableau qui reçoit les valeurs et split la fonction qui découpe le texte en tableau!

Je balaye le tableau et si je trouve une valeur je la retourne! Ainsi je supprime les lignes vides

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For I = 0 To UBound(T) - 1
    If Trim("" & T(I)) <> "" Then If SuppCrlf = "" Then SuppCrlf = T(I) Else SuppCrlf = SuppCrlf & Chr(10) & T(I)
Next

[Docmarti]

Bonjour.

Voici une autre variation sur le meme theme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function gb(txt)
'Remplacer Chr(13) par Chr(10)
xx = Replace(txt, Chr(13), Chr(10))
 
'remplacer doubleInterligne par simple
doubleInterligne = Chr(10) & Chr(10)
 
While InStr(xx, doubleInterligne)
 xx = Replace(xx, doubleInterligne, Chr(10))
Wend
 
gb = xx
End Function

[MobyKDIK]

Merci beaucoup de vos réponses !
Problème résolu !