Cellule 2 formats [resolu]

[surplus]

Bonjour,
j'aurais besoin de savoir si on peut formater la valeur d'une cellule sous 2 formats différents
je m'explique c'est pour une cellule "C13" ou sera rentrée une immatriculation

1) les anciennes immatriculations commencent par des chiffres ex: 0000 PLA 00 les lettres sont 2 ou 3

2)les nouvelles commencent par des lettres ex: "CV-875-LV" 2 lettres 3 chiffres 2 lettres

donc si je rentre des chiffres en premier formater en ex 1 si je rentre des lettres en 1er formater en ex 2
merci de votre aide
a bientôt

 

[job75]

Re : Cellule 2 formats [resolu]

Bonjour surplus, le forum,

Avec un contrôle plus poussé de la frappe :

Dim flag As Boolean, t$ 'mémorise les variables

Private Sub TextBox1_Change()
If flag Then Exit Sub
Dim i As Byte
t = Left(Replace(TextBox1, "/", ""), 8)
i = 1
While Mid(t, i, 1) <> ""
  If Not IsNumeric(Mid(t, i, 1)) Then t = Left(t, i - 1)
  If i = 3 Or i = 6 Then t = Application.Replace(t, i, 0, "/"): i = i + 1
  If i = 2 And Mid(t, 1, 2) > 31 Then t = ""
  If i = 5 And Mid(t, 4, 2) > 12 Then t = Left(t, 3)
  If i = 5 And Mid(t, 4, 2) = "02" And Mid(t, 1, 2) > 29 Then t = ""
  If i = 8 And Mid(t, 7, 2) < 19 Then t = Left(t, 6)
  flag = True: TextBox1 = t: flag = False
  If i = 10 And Not IsDate(t) Then _
    TextBox1.SelStart = 1: TextBox1.SelLength = 1
  i = i + 1
Wend
End Sub

A+

 

[surplus]

Re : Cellule 2 formats [resolu]

bonjour job75
merci de ton aide ca me fait bien avancer sur mon projet j'en suis pas encore au bout lol
a bientot