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

Bonjour surplus,

A priori les chiffres et les lettres peuvent être quelconques non ??

Le résultat étant forcément un texte, je ne vois pas l'intérêt d'un formatage !!!

A+

 

[job75]

Re : Cellule 2 formats

Re,

Bien sûr si les lettres sont figées on peut utiliser ce format (nombre) personnalisé :

[>999]0" PLA "00;"CV-"000"-LV"

Fichier joint.

A+

 

[Modeste geedee]

Re : Cellule 2 formats

Bonsour®
les formats personnalisés s'appliquent à des valeurs numériques ...
dans le cas saisies alphanumériques ont parle alors de masque ou encore de "pattern" , il faut envisager une procédure macro (déclenchée ou événementielle), l'utilisation conjointe d'expressions régulières est aussi possible.

 

[job75]

Re : Cellule 2 formats

Re, salut Modeste geedee,

Le masque de saisie dont parle Modeste ne peut pas fonctionner quand le curseur est dans la cellule.

Voyez le fichier (2) avec une TextBox (contrôle ActiveX) pour la saisie.

Clic droit sur l'onglet de la feuille et Visualiser le code.

C'est un peu compliqué 😎 il y a peut-être plus simple.

A+

 

[surplus]

Re : Cellule 2 formats

bonjour
job75 ta solution me plait mais est ce que on peut se contenter que du textbox sans la cellule intermédiaire?

 

[job75]

Re : Cellule 2 formats

Re,

est ce que on peut se contenter que du textbox sans la cellule intermédiaire?
ta solution est adaptable a un userform ?

Réponse : OUI aux 2 questions.

A+

 

[job75]

Re : Cellule 2 formats

Re,

Dans ce fichier (3) on ne s'occupe pas des cellules.

A+

 

[surplus]

Re : Cellule 2 formats

Re,
c'est exactement ça cela fonctionne parfaitement
pour info pourquoi ne pas l'adapter a la cellule elle même?
il y a moins de possibilités?dans le même fichier je voudrais que quand le textbox1 "immatriculation" est rempli
la cellules D13=date du jour ;la cellule E13= heure du moment et F13= "R134 a"
mais en macro car sur la feuille les collègues effacent
merci

 

[job75]

Re : Cellule 2 formats

Re,

J'ai bien dit :

Le masque de saisie dont parle Modeste ne peut pas fonctionner quand le curseur est dans la cellule.

Maintenant on peut renseigner toutes les cellules que vous voulez, fichier (4).

A+

 

[surplus]

Re : Cellule 2 formats

Re,
c'est exactement ce qu'il me fallait je vais mettre ça sur mon fichier
dernier service j'essai de saisir dans un textbox un format auto date
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy" ) mais ça fonctionne pas je voudrais saisir 22061967 et que ça donne 22/06/1967
quelle est mon erreur?
merci

 

[job75]

Re : Cellule 2 formats

Re,

C'est hors sujet, et ce type de masque a déjà été traité sur le forum (entre autre par moi je pense).

Cherchez donc un peu.

A+

 

[surplus]

Re : Cellule 2 formats

Re,
je continue a chercher merci pour tout
bonne soirée
A+++

 

[job75]

Re : Cellule 2 formats [resolu]

Bonjour surplus,

Je crains que vous ayez du mal à trouver et comme j'ai un peu de temps voyez ce code :

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): i = i - 1
  If i = 3 Or i = 6 Then t = Application.Replace(t, i, 0, "/"): i = i + 1
  flag = True: TextBox1 = t: flag = False
  If i = 10 And Not IsDate(t) Then
    MsgBox "Ce n'est pas une date valide !"
    TextBox1.SelStart = 0: TextBox1.SelLength = 10
  End If
  i = i + 1
Wend
End Sub

Private Sub TextBox1_LostFocus()
'dans une feuille de calcul
If t <> "" And (Len(t) < 10 Or Not IsDate(t)) Then TextBox1.Activate
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'dans un Userform
If t <> "" And (Len(t) < 10 Or Not IsDate(t)) Then Cancel = True
End Sub

La TextBox peut être dans une feuille de calcul ou dans un UserForm.

On ne peut pas en sortir tant qu'elle ne contient pas une date valide au format "jj/mm/aaaa".

A+

 

[surplus]

Re : Cellule 2 formats [resolu]

bonjour
merci j’essaie cela ce soir
merci
A++