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