XL 2019 recopier une partie d'une autre cellule en vba

[pascal21]

bonjour à tous
je cherche par vba comment recopier en colonne A les données de la colonne C
zone de a5 à a350
la colonne C contient un numéro d'immatriculation genre aa 123 bb
je voudrais extraire que les 3 nombres
il se peut que les chiffres soient 051 par exemple il faut que ce chiffre conserve les 0
merci de votre aide

 

[sylvanu]

Bonjour Pascal,
Un essai en PJ avec :

Sub Extraire()
Dim L%: Application.ScreenUpdating = False
[B5:B350].NumberFormat = "@"
For L = 5 To 350
    Cells(L, "B") = Split(Cells(L, "A"), "-")(1)
Next L
End Sub

 

[pascal21]

bonjour merci pour la reponse mais j'ai une erreur
l'indice n'appartient pas à la sélection sur cette ligne
Cells(L, "b") = Split(Cells(L, "A"), " -")(1)

 

[sylvanu]

Re,
Dans ma PJ ?
Sinon fournissez un fichier .

 

[sylvanu]

Re,
Essayez cette PJ.
Le bouton de droite passe les immat où se trouve une erreur.
Le bouton de gauche s'arrête sur une erreur et donne l'immat erronée.
( La macro ne marche que pour une syntaxe : AA-123-BB )

 

[pascal21]

je ne souhaitais pas une syntaxe aa-123-bb mais aa 123 bb
et il s'agissait de copier de la colonne B vers la colonne A et non l'inverse

 

[sylvanu]

Oups, sorry.
En PJ un essai avec :

Sub Extraire2()
Dim L%: Application.ScreenUpdating = False
[A5:A350].NumberFormat = "@"
For L = 5 To 350
    On Error Resume Next
    Cells(L, "A") = Split(Cells(L, "C"), " ")(1)
Next L
End Sub

 

[pascal21]

ca fonctionne parfaitement maintenant merci bonne soirée