Bonjour,
Je souhaiterais trouver une macro qui puisse scinder les cellules de plus de 10 caractères sur une ligne défini (Feuil2!2:2).
Il faut que les caractères suivant soient copié dans la cellule suivante (à droite) et décale le contenu des suivantes (pour information les cellules qui ne font pas partie de la ligne 2 ne doivent pas être modifié.
Jai bien trouvé ce code mais il met a la ligne et pas dans la colonne suivante et insert des lignes au lieu de décaler simplement la ligne choisie.
J’espère avoir étais claire et merci d’avance pour votre aide.
Sub couperLignes()
Dim lig As Long, i As Long, pos As Long
ActiveSheet.Copy After:=Sheets(Sheets.Count)
Application.ScreenUpdating = False
For lig = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
i = 0
Do While Len(Cells(lig + i, "C")) > 10
Rows(lig + i + 1).Insert Shift:=xlDown
pos = InStrRev(Cells(lig + i, "C"), " ", 11)
Cells(lig + i + 1, "C") = Mid(Cells(lig + i, "C"), pos)
Cells(lig + i, "C") = Left(Cells(lig + i, "C"), pos - 1)
i = i + 1
Loop
Next lig
Application.ScreenUpdating = True
End Sub