Control Numero de TVA

24/02-2004 à 23:19Salut à tous les experts en excel,

J'aimerais que lorsque l'on introduit un numéro de tva, dans la cellule C5, un petit message affiche une erreur si ce numéro est incorrect, sans bouton macro.
Donc, je pense à la macro onchange de la cellule.

J'ai déjà fait la formule que j'ai placée dans la cellule D2 pour controler les deux dernier chiffres du numérode TVA.

=SI(C5<>"";(97+((TRONQUE((STXT(C5;1;7)/97)))*97)-(STXT(C5;1;7)));"")

Le principe de control est le suivant :

N° TVA : BE 448.070.615 est décomposé en 4.480.706 et 15

4.480.706 / 97 = 46.192,8454

46.192 x 97 = 4.480.624

4.480.706 - 4.480.624 = 82

97- 82 = 15 C.Q.F.D.

J'espère que je suis assez claire, je vous remercie d'avance et j'attend de vos nouvelles.

A+

Guy

----------
Guy

24/02-2004 à 23:34Re salut,

J'ai oublié de vous signaler que j'utilise Excel97.

Merci

A+

Guy

----------
Guy

28/02-2004 à 00:44Salut à toutes et à tous.

Je suis étonné de ne pas avoir un petit avis sur mon problème de control du numéro de TVA.

Je me suis peut-être mal exprimé ou ma demande est impossible à réaliser.
J'ai voulu faire une essai et j'ai aussi tôt planté Excel97.

J'ai une petite connaissance en VBA, mais plus spécialement dans les macros avec boutons associés, mais pour les actions sur les cellules et les feuilles, double zéros.

Je vous demande, si possible, une ébauche dans la réalisation de mon petit projet.

Je vous remercie d'avoir pris connaissance de mon message et j'attend de vos nouvelles positives ou négatives.

Merci

A+

----------
Guy

23/03-2004 à 20:11Re bonjour à toutes et à tous.

J'ai été absent pour cause d'hospitalisation et lors de mon retour, j'avais l'espoir d'une approche à mon problème. Comment je n'ai pas l'ombre d'une réponse ou remarque, je pense que cela n'est pas possible.

Je vais chercher une autre solution via un botuon avec macro.

Salut à tous.

A+

----------
Guy

24/03-2004 à 19:14Bonsoir,
Première ébauche : dans une cellule :
=SI(CNUM(DROITE(C5;2))<>D2;"Numéro invalide";"")

24/03-2004 à 19:35La solution:
en D2 : ta formule
en e2 : =CNUM(DROITE(C5;2))
Position surC5 : DONNEES VALIDATION OPTIONS dans la zone "Autoriser" choisir PERSONNALISER
dans la zone formule taper : =D2=E2
Renseigner l'onglet "Alerte d'erreur"

J'ai testé ça marche très bien

24/03-2004 à 23:11Salut,

Je te remercie pour ton ébauche, mais c'est quand on est au pied du mur,qu'il faut bosser.

J'ai trouvé une sollution :

Dans la cellule J16, le numéro de TVA
Dans la cellule L16, la formule suivante :

=SI((STXT(J16;8;2))-SI(J16<>"";(97+((TRONQUE((STXT(J16;1;7)/97)))*97)-(STXT(J16;1;7)));"")=0;"Ok";"Erreur")

C'st pas très clair, mais ça fonctionne.

merci pour ton aide.

Guy

----------
Guy