XL 2016 création format personnaliser

[elbiarois]

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]

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

Bonne journée !

 

[elbiarois]

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]

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]

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]

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

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]

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