Extrait une partie de texte dans une cellule

Salut,

Si chaque mot est séparé par un espace, tu peux également faire directement avec la fonction Convertir

sélectionne la liste de tes données/Données/Convertir/coche Délimité/Suivant/coche Espace/Suivant et Terminer

tes données se placeront automatiquement dans chaque colonne.
Par contre si tu souhaites garder les données initiales en colonne A, tu commences par les copier en B et tu appliques la procédure sur la colonne B

Bonjour
Une solution mais en VBA ?

Private Sub Separer()
Dim TB, i As Integer
    TB = Split([A1], " ")
    For i = 0 To UBound(TB)
        [B1].Offset(0, i) = TB(i)
    Next i
End Sub

A+

Boujour
Ca me mais en erreu ?
Je n'arrive pas a vous inserré mon dossier

A+

Private Sub Separer() 
Dim TB, i As Integer 
Dim Plage As Range, Cel As Range 
    Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row) 
    For Each Cel In Plage 
    TB = Split(Cel, " ") 
        For i = 0 To UBound(TB) 
            Cel.Offset(0, i + 1) = TB(i) 
        Next i 
    Next Cel 
End Sub

Commence à la ligne 1 jusque la dernière ligne renseignée.
Éventuellement changer la plage si ce n'est pas les bonnes adresses.
A+
Si tu </code>te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.