[XL-2007] Incrémenter une codification

Incrémenter une codification

Bonjour,

J'aimerai mettre en place quelque chose qui dépace mes compétences...

Ci joint mon fichier :

http://cjoint.com/?3BfoxCGhAlu

Je me sers de VBA pour effectuer une codification.

Mes pièces sont codées sous la forme XXXX.NNN
XXXX étant les 4 premières lettres de la machine concernée
NNN étant le numéro d'incrémentation (001,002 ,003...)
Par exemple si je veux coder des pièces d'une voiture, la première s'appelera VOIT.001 la seconde VOIT.002 ...

Mon problème est que la codification s'effectue en manuel, la personne choisie le XXXX en fonction de la pièce ainsi que le NNN. S'il n'est pas attentif il peut donc créer des doublons. Pour reprendre l'analogie de la voiture, il peut se retrouver avec les roues et le volant codé sous VOIT.001

J'aimerai mettre en place une incrémentation automatique, que la personne choisisse le XXXX et que le NNN se définisse automatiquement selon le dernier NNN d'incrémentation. Si on à déja incrémenter les roues (VOIT.001) et le volant
(VOIT.002), si je veux ajouter des essuies glaces , je sélectionne VOIT dans la liste et VBA me place en face 003.

Mon ajout de pièce se fait à partir de l'userform "Gestion de stock" , "ajout de pièce" accessible depuis l'onglet "Accueil"
Les données sont stockées dans l'onglet "Stock"

Le mot de passe pour accéder au code est "unzo"

Merci d'avance pour votre temps,

DGVDR

.

Bonjour,
Tu peux déjà trouver une solution sans VBA.
En colonne B le groupe (par exemple VOIT) et en colonne A, la construction du code

Code:

=B2 & NB.SI($B$2:B2;B2)

Donnera VOIT1 puis VOIT2 etc...

et ce code

Code:

=B2 & "." & TEXTE(NB.SI($B$2:B2;B2);"000")

donnera VOIT.001, VOIT.002 etc...

Idéalement faire précéder la formule par SI(NBCAR comme ci-dessous.

Code:

=SI(NBCAR(B2);B2 & "." & TEXTE(NB.SI($B$2:B2;B2);"000");"")

Bonjour Philippe,

Le fait est que ma gestion de stock est déjà pas mal avancé et j'aimerai vraiment passer par VBA.

Avez-vous une idée ?

Merci,

DGVDR