Bonjour à tous!
Les deux formules ci-dessous m'ont été communiqué par le forum.
J'aimerai aujourd'hui, en faire des fonctions personnelles...
Comment faire? Sachant que je ni connais trop rien en VBA 🙁
Function SIRET :
=MOD(STXT(F5;1;1)*2-(STXT(F5;1;1)*2>9)*9+STXT(F5;3;1)*2-(STXT(F5;3;1)*2>9)*9+STXT(F5;5;1)*2-(STXT(F5;5;1)*2>9)*9+STXT(F5;7;1)*2-(STXT(F5;7;1)*2>9)*9+STXT(F5;9;1)*2-(STXT(F5;9;1)*2>9)*9+STXT(F5;11;1)*2-(STXT(F5;11;1)*2>9)*9+STXT(F5;13;1)*2-(STXT(F5;13;1)*2>9)*9+STXT(F5;2;1)+STXT(F5;4;1)+STXT(F5;6;1)+STXT(F5;8;1)+STXT(F5;10;1)+STXT(F5;12;1)+STXT(F5;14;1);10)=0
Function SIREN :
=MOD(STXT(F2;2;1)*2-(STXT(F2;2;1)*2>9)*9+STXT(F2;4;1)*2-(STXT(F2;4;1)*2>9)*9+STXT(F2;6;1)*2-(STXT(F2;6;1)*2>9)*9+STXT(F2;8;1)*2-(STXT(F2;8;1)*2>9)*9+STXT(F2;1;1)+STXT(F2;3;1)+STXT(F2;5;1)+STXT(F2;7;1)+STXT(F2;9;1);10)=0
Et une petite supplémentaire pour la route :
Function NBCAR9 :
=NBCAR(A1;9)
Par ailleurs, pensez-vous qu'il soit possible de rendre la manipulation suivante automatique ? :
Clic (A1) sur cellule = Copier (A1) en mémoire.
Clic (B1) sur cellule = copier (B1) en mémoire etc...
Merci à tous et de très joyeuses fêtes!!!
Ps : j'ai trouvé la solution sur un autre site ...
VERIFICATION SIREN ET SIRET V2 ☼ Code source N°3101 ☼ Visual Basic, VB6, VB.NET, VB 2005
Il faut modifier très peu le code pour que cela soit plus "clair".
Pour le second point par contre, pas de réponse 😉
Les deux formules ci-dessous m'ont été communiqué par le forum.
J'aimerai aujourd'hui, en faire des fonctions personnelles...
Comment faire? Sachant que je ni connais trop rien en VBA 🙁
Function SIRET :
=MOD(STXT(F5;1;1)*2-(STXT(F5;1;1)*2>9)*9+STXT(F5;3;1)*2-(STXT(F5;3;1)*2>9)*9+STXT(F5;5;1)*2-(STXT(F5;5;1)*2>9)*9+STXT(F5;7;1)*2-(STXT(F5;7;1)*2>9)*9+STXT(F5;9;1)*2-(STXT(F5;9;1)*2>9)*9+STXT(F5;11;1)*2-(STXT(F5;11;1)*2>9)*9+STXT(F5;13;1)*2-(STXT(F5;13;1)*2>9)*9+STXT(F5;2;1)+STXT(F5;4;1)+STXT(F5;6;1)+STXT(F5;8;1)+STXT(F5;10;1)+STXT(F5;12;1)+STXT(F5;14;1);10)=0
Function SIREN :
=MOD(STXT(F2;2;1)*2-(STXT(F2;2;1)*2>9)*9+STXT(F2;4;1)*2-(STXT(F2;4;1)*2>9)*9+STXT(F2;6;1)*2-(STXT(F2;6;1)*2>9)*9+STXT(F2;8;1)*2-(STXT(F2;8;1)*2>9)*9+STXT(F2;1;1)+STXT(F2;3;1)+STXT(F2;5;1)+STXT(F2;7;1)+STXT(F2;9;1);10)=0
Et une petite supplémentaire pour la route :
Function NBCAR9 :
=NBCAR(A1;9)
Par ailleurs, pensez-vous qu'il soit possible de rendre la manipulation suivante automatique ? :
Clic (A1) sur cellule = Copier (A1) en mémoire.
Clic (B1) sur cellule = copier (B1) en mémoire etc...
Merci à tous et de très joyeuses fêtes!!!
Ps : j'ai trouvé la solution sur un autre site ...
VERIFICATION SIREN ET SIRET V2 ☼ Code source N°3101 ☼ Visual Basic, VB6, VB.NET, VB 2005
Il faut modifier très peu le code pour que cela soit plus "clair".
Pour le second point par contre, pas de réponse 😉
Dernière édition: