Scinder en plusieurs colonne

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

Bonjour,

Merci de joindre le fichier avec lequel tu as testé ce code.

Merci d'avoir répondu, voici mon fichier de test

Rechercher des sujets similaires à "scinder colonne"