Un VBA à modifier....

eddy1975

XLDnaute Occasionnel

• 24 Avril 2016

• #2

Re : Un VBA à modifier....

Re,

Je constate que le post a été lu 80 fois et le fichier ouvert 27 fois.
Aucune réponse à cette heure.
Quelqu'un pourrait-il juste me dire si cela est possible ou non ? Merci.

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Avril 2016

• #3

Re : Un VBA à modifier....

Bonjour eddy,

et moi je constate qu'après plus de 100 messages, tu n'as pas compris qu'un code qui viens de l'extérieur d'XLD est difficile à manipuler. Demande à celui qui a fait le code de le modifier à ta convenance 😉

 

Dernière édition: 24 Avril 2016

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 24 Avril 2016

• #4

Re : Un VBA à modifier....

Bonjour Lone-Wolf,

Je l'ai bien trouvé sur le forum pourtant et il est issu de Grand Zébu.

Merci quand même.

PS : si aujourd'hui tu ne corriges pas ta faute dans ta signature, tu es privé de forum pendant deux jours...😉

 

Dernière édition: 24 Avril 2016

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 24 Avril 2016

• #5

Re : Un VBA à modifier....

bonjour Eddy
changement dans cellule et dans fonction,à tester

 

Pièces jointes

• Fichier TEST(1).xlsm

  21.4 KB · Affichages: 38
• Fichier TEST(1).xlsm

  21.4 KB · Affichages: 42

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Avril 2016

• #6

Re : Un VBA à modifier....

Bonjour Bebere 🙂

@ eddy: voilà, c'est fait 😉

 

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 24 Avril 2016

• #7

Re : Un VBA à modifier....

Re,

C'est bien Lone Wolf, un bon point, tu as eu peur de ta punition. Pire qu'un enfant, une fois, deux fois, la troisième tu prends peur 😛
Quand il s'agit de résoudre un problème de macro tu es bien plus rapide 😉
En tout cas merci pour ton implication dans le forum.

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2016

• #8

Re : Un VBA à modifier....

Bonjour eddy1975, salut Lone-wolf,

C'est surtout qu'on ne comprend pas ce que vous voulez car vous écrivez :

Je souhaite que le calcul de la clé de contrôle (le chiffre 9) ne s'effectue pas dans la macro. Merci.

Cliquez pour agrandir...

Or il est évident qu'avec =CodeEan13(GAUCHE(A1;12)) en B1 seuls les 12 premiers chiffres en A1 sont traités...

A+

 

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 24 Avril 2016

• #9

Re : Un VBA à modifier....

Bonjour Bebere,

Vu que je n'y comprend rien en Code, je vais me contenter de ta solution que me convient parfaitement et que je vais pouvoir adapter à mon fichier.
Merci.
@+

 

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 24 Avril 2016

• #10

Re : Un VBA à modifier....

Bonjour Job,

Effectivement, car le treizième chiffre est un calcul de type modulo avec factorisation, et dans ce code le calcul de ce chiffre se fait automatiquement. Or je ne veux pas que le calcul se fasse car dans mon fichier de base le calcul est lié à d'autre cellules. Je cherche juste à "obtenir" l'affichage du code avec les treize chiffres en A1.
J'espère avoir été assez clair.
Merci.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2016

• #11

Re : Un VBA à modifier....

Re, salut Bebere, je ne t'avais pas vu,

eddy1975 à dit:

(...) dans ce code le calcul de ce chiffre se fait automatiquement. Or je ne veux pas que le calcul se fasse (...)
J'espère avoir été assez clair.

Cliquez pour agrandir...

Encore moins 🙄

A+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 24 Avril 2016

• #12

Re : Un VBA à modifier....

Bonsour®

eddy1975 à dit:

Vu que je n'y comprend rien en Code

Cliquez pour agrandir...

ni à la norme !!!

Le dernier chiffre d'un code EAN 13 est toujours une clé de contrôle (check digit), calculée à partir des douze premiers chiffres, par leurs sommes et produit modulo 10.

Cliquez pour agrandir...

le calcul de la clé fait partie intégrante de la norme EAN13,
ou bien ton code n'est pas à la norme et dans ce cas les douchettes et autres lecteurs de code barre seront perturbés

 

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 24 Avril 2016

• #13

Re : Un VBA à modifier....

Bonjour Modeste,

Je te rassure je connais parfaitement la composition d'un EAN 13 et je sais calculer la clé de contrôle, également celui d'un ISSN et d'un ISBN ou encore d'un CIP.
Je pourrais te fournir tous me fichiers si tu veux. J'ai établis un classeur de 15 clé de contrôle qui existe dans notre pays.
Parfois il faut savoir modérer ses propos cher Modeste, car là tu m'as vexé. Ton savoir n'est pas égal au mien certes mais bon.....

 

Vote positif 0 Vote négatif

eddy1975

XLDnaute Occasionnel

• 24 Avril 2016

• #14

Re : Un VBA à modifier....

Re Job,

Pas de soucis je me suis adapté à la réponse de Bebere.
Merci quand même.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2016

• #15

Re : Un VBA à modifier....

Re

Si le but est de ne pas traiter les chaînes de plus de 13 chiffres, inutile de modifier le code.

Entrez simplement cette formule en B1 :

Code:

=CodeEan13(GAUCHE(A1;NBCAR(A1)-1))

A+

 

Vote positif 0 Vote négatif