Tester le contenu d'un Split

Bonjour à tous,

J'ai mis en PJ un fichier de test qui bug :calim2:
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:

---

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 !!

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

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:

---

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

---

Code:

---

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

---

C'est parfait, plus de bug!
Merci beaucoup :ccool: