Afficher le zéro devant les chiffres

Bonjour a tous et toutes, bonjour forum,

Je dois entrer dans ma compta des numéros de chèques qui comportent 7 chiffres.

le premier chiffre est un zéro et celui ci disparait quand je valide l'entrée de mes chiffres

Ex: j'entre 0303889 et après validation s'affiche 303889 le zéro disparait.

J'utilise dans mon code du programme ClearFormats et NumberFormat et essayer format perso, format texte etc ca ne marche pas.

Après recherche la solution est VBA je pense OUI voila mais comment faire pour garder mon zéro devant les chiffres

Je controle par ce code l'entrée de 7 chiffres

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte: Dim z As String
With Target
If Not Intersect(Target, [A1:A10]) Is Nothing And Not (IsEmpty(Target)) Then
       For i = 1 To Len(Target)
       z = Mid(.Value, i, 1)
If InStr("0123456789", z) = 0 Then Err = 1: Exit For
       Next i
If Err = 1 Or Len(Target) > 7 Then .ClearContents: .Select
End If
End With
End Sub

Merci si vous savez comment faire SVP alors je suis preneur.

Merci d'avance et bonne après midi a vous

Raymond

Bonjour

Passe tes cellules A1:A10 en format personnalisé - Type 0000000

Amicalement

Nad

Bonjour,

Voici également la solution en VBA :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Byte: Dim z As String

    With Target
        If Not Intersect(Target, [A1:A10]) Is Nothing And Not (IsEmpty(Target)) Then
            .NumberFormat = "0000000"
            For i = 1 To Len(Target)
                z = Mid(.Value, i, 1)
                If InStr("0123456789", z) = 0 Then Err = 1: Exit For
            Next i
            If Err = 1 Or Len(Target) > 7 Then .ClearContents: .Select
        End If
    End With
End Sub

Salut Nad-Dan, Readi, forum

J'ai essayer votre code a tous les deux, que dire c'est super sympa et ca marche, je vais adopter le plus approprier a mon code.

Je vous remercie sincèrement tous les deux et je vous souhaitent une bonne fin d'après midi

Au plaisir, Raymond