separer du texte de nombre dans une cellule

[Nathalie.L]

Bonjour à tous

Nouvelle venue sur ce forum, j'ai besoin de votre aide
J'ai un fichier qui provient d'un PDF exporté en mode texte sur excel
Dans ma cellule A1 apparaîssent un nom suivi de chiffres.Je souhaiterai que le nom aille en B1 et les chiffres en c1,c2, c3 etc

Cooment faire sachant que le nombre de caractères dans la cellule a1 n'est pas toujours le même.
Je joins un fichier d'exemple.
Merci d'avance à tous pour votre aide
Cordialement
Nat

 

[MJ13]

Re : separer du texte de nombre dans une cellule

Re

Une autre version à tester:

Sub Convertir()
Range("A1:A" & Range("A65536").End(xlUp).Row).Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
        Concatene
End Sub
Sub Concatene()
Range("A1").Select
derl = Range("B65536").End(xlUp).Row
For j = 1 To derl
derc = Cells(j, 2).End(xlToRight).Column
n = 1
CumulTexte = Cells(j, 2)
For I = 1 To derc
If IsNumeric(Cells(j, 2).Offset(0, I).Value) = False Then CumulTexte = CumulTexte & " " & Cells(j, 2).Offset(0, I): n = n + 1 Else GoTo suite
Next
suite:
Cells(j, 2).Offset(0, -1) = CumulTexte
Range(Cells(Cells(j, 2).Row, 2), Cells(Cells(j, 2).Row, n + 1)).Delete Shift:=xlToLeft
Next
End Sub