Bonsoir,
J'ai un tableau avec un grand nombre de données. Je voudrai séparer le contenu d'une cellule en deux: jusqu'au symbole ":", ça reste dans la cellule d'origine et après le symbole ":" ça se colle dans une colonne que j'insère à droite.
Exemple:
Avant: Colonne D = Tube : 123456
Colonne E = Bonjour
Après: Colonne D = Tube
Colonne E = 123456
Colonne F = Bonjour
Voilà le code que j'essaie d'utiliser, mais en vain jusqu'à maintenant
Dim i As Long, ii As Long, iii As Long, iLR As Long, Arr
iLR = Range("D" & Columns.Count).End(xlUp).Column
For i = iLR To 2 Step -1
Arr = Split(Cells(i, 4), ":")
ii = UBound(Arr)
If ii > 0 Then
For iii = 1 To ii
Columns(i).Insert Shift:=xlLeft
Next
For iii = 0 To ii
Cells(i + iii, 4) = Arr(0 + iii)
Next
End If
Next
J'espère que vous pourrez m'aider.
Yoann