Discussion :

[canary]

Bonjour à tous,

J'ai mis en PJ un fichier de test qui bug
Ce que j'ai codé : mettre le texte d'une case dans un Split et ne recopier que les 2 premières lignes de la case. Tout fonctionne bien si en effet j'ai au moins 2 lignes dans une case.
Par contre, quand je n'ai qu'une ligne, j'aimerai qu'il ne recopie que cette ligne, mais je n'arrive pas à coder cela.

Pourriez-vous m'aider svp ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Titre()
Dim MyRange2 As Range
Dim U
Dim M As Long
 
Set MyRange2 = Worksheets("Feuil1").UsedRange
For M = 1 To MyRange2.Rows.Count
    If Trim("" & MyRange2(M, 1)) <> "" Then
        U = Split(MyRange2(M, 1), Chr(10))
        MyRange2(M, 1) = ""
        MyRange2(M, 1) = MyRange2(M, 1) & U(0) & Chr(10) 'Reecrire la premiere ligne
        MyRange2(M, 1) = MyRange2(M, 1) & U(1) 'Reecrire la deuxieme ligne => PB si pas de 2em ligne!
    End If
Next
End Sub

Merci !!

[Invité]

Bonjour,
si tu concataine ta cell avec 2 chr(10) tu arras toujour 2 lignes

[canary]

Bonjour,

J'ai donc rajouté un "Chr(10)" dans la ligne du Split, mais j'ai une erreur "13, incompatibilité de type".
Ai-je bien compris ce que vous me proposiez ?
Merci par avance,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Titre()
Dim MyRange2 As Range
Dim U
Dim M As Long
 Set MyRange2 = Worksheets("Feuil1").UsedRange
For M = 1 To MyRange2.Rows.Count
    If Trim("" & MyRange2(M, 1)) <> "" Then
        U = Split(MyRange2(M, 1), Chr(10), Chr(10))
        MyRange2(M, 1) = ""
        MyRange2(M, 1) = MyRange2(M, 1) & U(0) & Chr(10) 'Reecrire la premiere ligne
        MyRange2(M, 1) = MyRange2(M, 1) & U(1) 'Reecrire la deuxieme ligne => PB si pas de 2em ligne!
    End If
Next
End Sub

[Invité]

Code :

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

U = Split(MyRange2(M, 1) &  Chr(10) & chr(10), Chr(10))

[canary]

C'est parfait, plus de bug!
Merci beaucoup