Cellule 2 formats [resolu]

job75

XLDnaute Barbatruc

• 25 Mars 2014

• #2

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+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mars 2014

• #3

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+

 

Pièces jointes

• Immatriculations(1).xls

  23.5 KB · Affichages: 36

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 25 Mars 2014

• #4

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mars 2014

• #5

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+

 

Pièces jointes

• Immatriculations(2).xls

  54 KB · Affichages: 40

Dernière édition: 25 Mars 2014

Vote positif 0 Vote négatif

surplus

XLDnaute Occasionnel

• 25 Mars 2014

• #6

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?

 

Dernière édition: 25 Mars 2014

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mars 2014

• #7

Re : Cellule 2 formats

Re,

surplus à dit:

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

Cliquez pour agrandir...

Réponse : OUI aux 2 questions.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mars 2014

• #8

Re : Cellule 2 formats

Re,

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

A+

 

Pièces jointes

• Immatriculations(3).xls

  43.5 KB · Affichages: 34

Vote positif 0 Vote négatif

surplus

XLDnaute Occasionnel

• 25 Mars 2014

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mars 2014

• #10

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.

Cliquez pour agrandir...

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

A+

 

Pièces jointes

• Immatriculations(4).xls

  44.5 KB · Affichages: 36

Vote positif 0 Vote négatif

surplus

XLDnaute Occasionnel

• 25 Mars 2014

• #11

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2014

• #12

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+

 

Vote positif 0 Vote négatif

surplus

XLDnaute Occasionnel

• 26 Mars 2014

• #13

Re : Cellule 2 formats

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mars 2014

• #14

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 :

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+

 

Vote positif 0 Vote négatif

surplus

XLDnaute Occasionnel

• 26 Mars 2014

• #15

Re : Cellule 2 formats [resolu]

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

 

Vote positif 0 Vote négatif