Fonctions personnelles

[manu cho]

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