Salut Toto, le Forum
Je n'ai pas le droit de télécharger des fichiers depuis le bureau, donc je vais "imaginer" tes données :
Possibilité 1
123456 ReferenceZozo
12154 ReferenceZaratoustra
5487878787878 ReferenceZ
Solution VBA (Excel 2000 ou +)
Sub Toto()
Dim Cell As Range
Dim Contenu As Variant
For Each Cell In Range("A1:A100")
Contenu = Split(Cell, Chr(32))
On Error Resume Next
Cell.Offset(0, 1) = Contenu(0)
Cell.Offset(0, 2) = Contenu(1)
Next
End Sub
Solution Excel
Sélectionner la colonne des données
Menu Donnée => Text en Colonnes
Choisir Délimiteur " " (espace)
Possibilité 1
123456 ReferenceZozo
789101 ReferenceZaratoustra
789456 ReferenceZ
123458ReferenceZozo
789144ReferenceZaratoustra
789445ReferenceZ
Solution VBA (la précédente solution VBA marcherait ici aussi)
Sub Toto2()
Dim Cell As Range
Dim Contenu As Variant
For Each Cell In Range("A1:A100")
If Cell <> "" Then
Cell.Offset(0, 1) = Left(Cell, 6)
Cell.Offset(0, 2) = LTrim(Right(Cell, (Len(Cell) - 6)))
End If
Next
End Sub
Solution Excel
Sélectionner la colonne des données
Menu Donnée => Text en Colonnes
Choisir largeur définie
Là où ce serait bien plus comliqué ce serait si tu as des trucs du style :
121212121REF2121
1212REF121212121
Là il faut rédiger un code plus délicat...Mais je dois finir un truc d'abord...
Bon Courage et bon wouik hand !!!
@+Thierry