Rajouter une lettre au Milieu de Chiffre

Bonjour!

J'ai des données à saisir, dans deux colonne, l'une comporte les quantités et l'autre des numéros de lot.

La structure des lot est telle: 5R126, j'aurai aimer taper 5126 et après confirmation j'obtiens 5R126.

Merci à vous tous.

Bonjour,

En format de police, si tu mets :

#"R"###

Est ce que cela suffit??

@+

Bonjour Hosni

Bonjour Bernard22

Petit code à tester :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        Application.EnableEvents = False
        Target.Value = Left(Target, 1) & "R" & Right(Target, Len(Target) - 1)
        Application.EnableEvents = True
    End If
End Sub

A la différence d'un format personnalisé, le contenu (et pas seulement l'affichage) sera modifié.

Bonjour!

Merci à vous bernard22 et à vous aussi JFL, vos réponse sont parfaites.

A bientôt.

Rechercher des sujets similaires à "rajouter lettre milieu chiffre"