Sujet Précédent Sujet Suivant

Incrémentation d'une codification

Résolu/Fermé
DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015 - Modifié par DGVDR le 14/02/2014 à 10:06
DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015 - 14 févr. 2014 à 11:13
Bonjour,

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

Ci joint mon fichier :

https://www.cjoint.com/?3Boj5Xqa6s3

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

3 réponses

Réponse 1 / 3
jean789456123 Messages postés 1 Date d'inscription vendredi 14 février 2014 Statut Membre Dernière intervention 14 février 2014
14 févr. 2014 à 09:59
salut
0
Réponse 2 / 3
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
14 févr. 2014 à 10:46
Bonjour,

https://www.cjoint.com/?DBokSgtIehB

code a adapter suivant ce que vous voulez si deja code: 

Private Sub txtfincodi_Change()
    CodCmp = Codi & "." & txtfincodi
    
    x = Application.CountIf(Worksheets("Stock").Range("a:a"), CodCmp)
    
    If x > 0 Then
        MsgBox "Deja codé"
    End If
End Sub
0
Réponse 3 / 3
DGVDR Messages postés 158 Date d'inscription vendredi 10 août 2012 Statut Membre Dernière intervention 20 juillet 2015
14 févr. 2014 à 11:13
f894009,

Merci ça marche,

C'est bien vu, c'est relativement simple, mais il fallait y penser.

Résolu,

DGVDR
0

Discussions similaires

recopier une formule sans décalage
aziz_alg80 -
aziz_alg80 -

2 réponses
Recopier sans incrémenter tous les chiffres
plingx -
plingx -

2 réponses
[EXCEL] Numéro automatique VBA
spaceshipone -
michel_m -

3 réponses
réactiver l'incrémentation automatique du contenu d'une cellule en faisant gliss
Sinequanone -
michel_m -

13 réponses
codification de pieces de rechanges
tech69 -
edemkossi -

11 réponses