XL 2016 création format personnaliser

elbiarois · 11 Juillet 2019

bonsoir,
je voudrais crée le format de saisie suivant dans toute la colonne Excel exemple: 123D454589 (3 chiffres(de 000 à 999); une lettre (de A à Z) et six chiffres (de 000000 à 999999)).

Merci.

JBARBE · 11 Juillet 2019

Bonjour à tous et à toutes,
Mais le format est standard !
Qu'est-ce que tu veux de plus !!!!

Bonne journée !

elbiarois · 12 Juillet 2019

JBARBE à dit:
Bonjour à tous et à toutes,
Mais le format est standard !
Qu'est-ce que tu veux de plus !!!!Regarde la pièce jointe 1035540

Bonne journée !

Merci,
mais moi je veut que les cellules de la colonne n'acceptent aucune donnée différente de ce format.
Merci.

Modeste geedee · 13 Juillet 2019

Bonsour®

elbiarois à dit:
Merci,
mais moi je veut que les cellules de la colonne n'acceptent aucune donnée différente de ce format.
Merci.

123A456789 n' est pas un nombre !!!
les formats personnalisés ne s'applique qu'a des nombres !!!
alternatives :
passer par une proc événementielle utilisant une reconnaissance de contenu
telle que :
Saisie Like "###[A-Z]######"

ou bien
validation de données
formule ;
=ET(EstNum( Gauche(saisie;3)); ET(Stxt(Saisie;4;1)>=CAR(65);Stxt(Saisie;4;1)<=CAR(91));EstNum(Droite(Saisie;6))

elbiarois · 13 Juillet 2019

Modeste geedee à dit:
Bonsour®
123A456789 n' est pas un nombre !!!
les formats personnalisés ne s'applique qu'a des nombres !!!
alternatives :
passer par une proc événementielle utilisant une reconnaissance de contenu
telle que :
Saisie Like "###[A-Z]######"

ou bien
validation de données
formule ;
=ET(EstNum( Gauche(saisie;3)); ET(Stxt(Saisie;4;1)>=CAR(65);Stxt(Saisie;4;1)<=CAR(91));EstNum(Droite(Saisie;6))

voila ce que j'ai obtenu

patricktoulon · 20 Août 2019

bonjour
avec l’événement change et like
+une petite fonction pour créer le pattern a fin de simplifier le codage de l’événement

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
forme = create_pattern("###@@@###")
'MsgBox Target.Value Like forme
If not Target.Value Like forme then
'...
' ton code en fonction de false ici
'...
end if 
End Sub

Private Function create_pattern(chaine)
create_pattern = Replace(Replace(chaine, "#", "[0-9]"), "@", "[A-Z|a-z]")
End Function

Staple1600 · 20 Août 2019

Bonjour le fil

Pour info
elbiarois
Je suppute que Saisie s'assimile ici à la référence de des cellules
donc la formule sera du genre =ET(ESTNUM(GAUCHE($A1;3)); etc...

XL 2016 création format personnaliser

elbiarois

XLDnaute Nouveau

JBARBE

XLDnaute Barbatruc

elbiarois

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

elbiarois

XLDnaute Nouveau

patricktoulon

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires