XL 2019 Extraire les chiffres de gauche avec une VBA

[aziz]

Bonsoir à tous,
Je sollicite votre aide pour lorsque j'écris en colonne C le n° de serie
je souhaiterai faire une VBA qui la colonne D affiche les 5 chiffres de la gauche.

Merci pour l'aide

 

[Cousinhub]

Bonsoir,
Vraiment pas sympa, ton comportement...
Tu demandes ici, il n'y a même pas une heure
Une solution t'est proposée, qui ne te convient pas, soit...
Mais pourquoi la joindre à ton fichier?
Bref, bon courage

 

[aziz]

Bonsoir Cousinhub,​

Merci à tous pour l'aide voici la réponse de Sequoyah :
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C:C")) Is Nothing Then
With Target.Offset(0, 1)
.Value = Right(Target.Value, 5)
.NumberFormat = "00000"
End With
End If

End Sub

Bonne soirée à tous

 

[AtTheOne]

Bonsoir à toutes & à tous, @Cousinhub , @aziz,
Je ne regarde pas les questions sur les autres sites (un peu trop lent pour ça 🐌).
Allez une solution sans formatage ni apostrophe en tête (avec la fonction Excel DROITE, les chaînes ne sont pas convertie en texte. :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.CountLarge = 1 And Target.Column = 3 Then
          Target.Offset(0, 1).Formula = "=Right(""" & Target & """,5)"
          Target.Offset(0, 1) = Target.Offset(0, 1)
     End If
End Sub

Mais si on revalide la saisie, on convertit en nombre !

voir pj

A bientôt