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.
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
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
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. :
VB:
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 !