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

Discussions similaires

  • Question
Microsoft 365 resultat
Réponses
6
Affichages
503

Statistiques des forums

Discussions
311 720
Messages
2 081 913
Membres
101 837
dernier inscrit
Ugo