XL 2019 Extraire les chiffres de gauche avec une VBA

aziz · 4 Juin 2024

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 · 4 Juin 2024

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 · 4 Juin 2024

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 · 4 Juin 2024

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 !

voir pj

A bientôt

XL 2019 Extraire les chiffres de gauche avec une VBA

aziz

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

aziz

XLDnaute Occasionnel

Bonsoir Cousinhub,

AtTheOne

XLDnaute Accro

Pièces jointes

Discussions similaires

XL 2019 Extraire les chiffres de gauche avec une VBA

aziz

XLDnaute Occasionnel

Pièces jointes

Cousinhub

XLDnaute Barbatruc

aziz

XLDnaute Occasionnel

Bonsoir Cousinhub,​

AtTheOne

XLDnaute Accro

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency

Bonsoir Cousinhub,