Format Personnalisé - Une Lettre, puis 7chiffres

Bonjour,

Je cherche à créer un format personnalisé comportant une lette puis 7 chiffres composés de 0 et de mon nombre.

J'ai cherché à plusieurs endroits, j arrive a faire certaines choses indépendamment mais pas à combiner les 2.

Je m'explique ...

Je cherche à ce que quand je saisis "c18" dans un cellule, à la validation, il s'affiche "C-0000018".

Merci d'avance, ca ne doit pas être bien compliqué mais je bloque dessus depuis hier.

Bonjour,

Une première réponse !?

Cdlt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x, y
    If Not Intersect(Target, Me.Columns(1)) Is Nothing And Target.CountLarge = 1 Then
        On Error GoTo errHandler
        Application.EnableEvents = False
        x = Left(Target.Value, 1)
        y = VBA.Mid(Target.Value, 2, Len(Target.Value))
        y = Format(y, "0000000")
        Target.Value = x & y
    End If
exitHandler:
    Application.EnableEvents = True
    Exit Sub
errHandler:
    MsgBox "Erreur : " & Err.Number & Chr(10) & Err.Description
    Resume exitHandler
End Sub

Merci beaucoup pour cet rapidité,

en effet, cela fonctionne mais je t avoue que je ne comprend pas tout et que je pensais qu il etait possible de faire cela avec un simple format personnalisé.

Je regarde comment faire 2, 3 petites modifs de format, et comment appliquer le code à une autre cellule.

Je me permettrai de revenir vers vous si cela pose probleme.

Merci beaucoup en tout cas !