Format de cellule

Bonsoir,

Je dois saisir dans une colonne une série de données composées de 4 chiffres & une lettre clef. Quel format personnalisé de cellule faut-il appliquer pour que systématiquement EXCEL comble de 0 (zéro) à gauche si la partie numérique est < à 1000

Bien à vous

Bonjour et bienvenue

Place ce code dans la feuille concernée (click droit sur l'onglet ==> Visualiser le code)

Private Sub Worksheet_Change(ByVal Target As Range)

'Colonne à adapter (ici colonne A)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
If Len(Target) = 2 Then Target = "000" & Target
If Len(Target) = 3 Then Target = "00" & Target
If Len(Target) = 4 Then Target = "0" & Target
End If
End Sub

Ce code doit très certainement pouvoir être raccourci - Les pros me corrigeront.

Amicalement

Nad

merci beaucoup, et grand bravo pour votre site

A bientôt

Bonjour,

Ma suggestion, un peu plus courte que celle de Nad :

Private Sub Worksheet_Change(ByVal Target As Range)

'Colonne à adapter (ici colonne A)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target = Right("0000" & Target, 5)
End If
End Sub

Au plaisir.

Merci, je vais tester, mais je sens que j'ai besoin de me former sur les codes ... je pensais qu'a mon niveau d'expérience il suffisait de créer un format de cellule personnalisé.

Encore merci