XL 2016 création format personnaliser

elbiarois

XLDnaute Nouveau
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

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

Bonne journée !
 

Modeste geedee

XLDnaute Barbatruc
Bonsour®
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

XLDnaute Nouveau
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))
1035695

voila ce que j'ai obtenu
 

patricktoulon

XLDnaute Accro
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

XLDnaute Barbatruc
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...
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas