Autres Masque de saisie universel pour formats spéciaux saisis dynamiquement dans un TextBox

[Eric C]

Bonsoir le forum

De très nombreux sujets ont trait aux formats spéciaux saisis à l'aide d'une TextBox (N° d'immatriculation de véhicules – N° SIRET de société – N° de sécurité sociale – N° spéciaux de téléphone étrangers…….).

Une demande, faite en 2018, par notre ami Cathodique 😉 concernait la saisie dynamique d'un N° SIRET Entreprise (Le lien ). Des réponses fournies, j'ai remarqué que celle de notre ami job75 😉, pouvait être aisément reprise et aménagée pour d'autre types de formats.

A cet effet, j'ai "déterré" ledit post qui avait été vu par quelques 650 internautes, à l'époque, en demandant si la saisie jusqu'alors uniquement numérique pouvait être modifiée afin de devenir saisie alphanumérique et ce afin d'élargir la saisie à d'autres formats spéciaux .

Est arrivé notre ami patricktoulon 😉, qui nous a sorti de sa besace le fichier par EXCELlence : Un masque de saisie universel pour une grande partie des formats spéciaux (Post vu ~ 250 fois).

Ma question : peut-on améliorer le fichier afin de saisir des caractères alphanumériques incluant des ponctuations, des chiffres ainsi que des lettres Majuscules & Minuscules. Un grand Merki par anticipation.

Bonne soirée & bon ouikand à toutes & à tous
@+ Eric c

 

[patricktoulon]

re
demo avec masque plusieurs séparateurs différents et des partie fixes

 

[patricktoulon]

re
par contre j'ai une idée en tete
je cherche une formule qui me dirait quelle est le caractères le plus répété dans un masque sans boucle
si vous avez cela dans votre chapeau je prends volontiers

 

[job75]

je cherche une formule qui me dirait quelle est le caractères le plus répété dans un masque sans boucle

Voyez le fichier joint et cette formule matricielle imposante :

=STXT(B2;MODE(SIERREUR(EQUIV(SI(STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1)<>STXT(B2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1);STXT(B2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1));STXT(B2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1);0);FAUX));1)

C'est la fonction MODE qui repère la fréquence max.

 

[patricktoulon]

re
oufff ca va être coton a convertir vba ça avec une donnée string
merci job75
edit:
bon au final c'est pas tout a fait ça que je souhaite trouver
c'est celui du mask vierge en occurrence dans ton exemple le"-"

 

[job75]

La formule que j'ai donnée peut être adaptée comme on veut.

Par exemple pour rechercher tous les caractères en B2 sauf les espaces :

=STXT(B2;MODE(SIERREUR(EQUIV(SI(STXT(B2;LIGNE(INDIRECT("1:"&NBCAR(B2)));1)<>" ";STXT(B2;LIGNE(INDIRECT("1:"&NBCAR(B2)));1));STXT(B2;LIGNE(INDIRECT("1:"&NBCAR(B2)));1);0);FAUX));1)