XL 2016 VBA - Créer une référence unique selon conditions

Ricouch · 27 Décembre 2021

Bonjour,

J'essaie de créé un formulaire pour la gestion de base de données et j'aimerais que ce dernier génère des références uniques en se basant sur les données que je remplis sur le formulaire, exemple:

Case 1 : Appartement
Case 2 : Meublé
Case 3 : Location

Référence : AML0001

AML = Appartement Meublé Location & un nombre

Un grand merci à vous et bonnes fêtes de fin d'année.

cp4 · 28 Décembre 2021

Ricouch à dit:
Wow, merci beaucoup pour les modifications (trop clean, j'apprends de vous).

J'ai quelques remarques:
Sur la ListBox les entêtes n'apparaissent plus [Image 1].

Les références sont basées sur un compteur ce qui créer des références en double si je supprime une ligne
Exemple, nous avons :
VMA1
VMA2
VMA3
Je supprime VMA2, en remplissant le formulaire, je vais avoir VMA3 une deuxième fois [Image2].

Question, est-il possible d'avoir un compteur invisible qui enregistre le dernier chiffre affecté ?

Si c'est le cas on aura :
VMA1
AMA2
AML3
SMA4....

Merci encore.

à tester. Je n'ai jamais vu une Listbox à 39 colonnes.

cp4 · 27 Décembre 2021

Ricouch à dit:
Bonjour,

J'essaie de créé un formulaire pour la gestion de base de données et j'aimerais que ce dernier génère des références uniques en se basant sur les données que je remplis sur le formulaire, exemple:

Case 1 : Appartement
Case 2 : Meublé
Case 3 : Location

Référence : AML0001

AML = Appartement Meublé Location & un nombre

Un grand merci à vous et bonnes fêtes de fin d'année.

Bonjour @Ricouch , Le forum

Sachant qu'une image vaut mieux que de longs discours. Je préfère le fichier à l'image. Merci de joindre ton fichier (sans données confidentielles).

Joyeuses fêtes de fin d'année.

Phil69970 · 27 Décembre 2021

Bonjour @Ricouch
Edit Bonjour @cp4

Perso je numéroterais comme ceci :

Pour un bien : 01, 02, 03 etc à chaque bien j’incrémente de 1 ==> limite 99 biens
Pour un locataire : 01, 02 etc à chaque locataire j’incrémente de 1 ==> limite 99 locataires
Pour la quittance : 001, 002 etc à chaque locataire j’incrémente de 1 ==> limite 999 quittances par locataire soit un peu plus de 83 ans puisqu'au changement de locataire le numéro du locataire va changer.

Donc à un instant donné 1 bien (01) à un locataire (03) correspond à une quittance (033) par exemple :
Bien 1 donc bien N°1, locataire 3 donc 3eme locataire, quittance N°33 donc 33eme mois ==> Ref_01_03_033 tu es sur d'avoir une référence unique par bien, locataire, et quittance.

Bonne lecture et bonnes fêtes

@Phil69970

Ricouch · 27 Décembre 2021

Bonjour @cp4 , @Phil69970,

C'est une bonne idée @Phil69970 , l'objectif c'est juste de pouvoir créer une référence unique facile à décrypter par mes collègues.

@cp4 , tu trouveras le fichier ci-joint (en désordre )

Merci à vous ,

cp4 · 27 Décembre 2021

Ricouch à dit:
Bonjour @cp4 , @Phil69970,

C'est une bonne idée @Phil69970 , l'objectif c'est juste de pouvoir créer une référence unique facile à décrypter par mes collègues.

@cp4 , tu trouveras le fichier ci-joint (en désordre )

Merci à vous ,

Je t'invite à mettre un peu d'ordre ou plutôt à insérer quelques lignes représentatives, en saisissant manuellement les références.
J'ai saisi une seul ligne juste pour tester que les données sont dans la bonne colonne car j'ai retouché le code.

cp4 · 28 Décembre 2021

Comme tu es lent à la détente. Voici la nouvelle mouture à voir si ça te convient.
La référence s'ajuste au fil des choix.

Ricouch · 28 Décembre 2021

cp4 à dit:
Comme tu es lent à la détente. Voici la nouvelle mouture à voir si ça te convient.
La référence s'ajuste au fil des choix.

Aucune donnée jointe

cp4 · 28 Décembre 2021

Ricouch à dit:
Aucune donnée jointe

C'est la seconde fois que ça m'arrive. Le fichier joint disparait.

Ricouch · 28 Décembre 2021

cp4 à dit:
C'est la seconde fois que ça m'arrive. Le fichier joint disparait.

Wow, merci beaucoup pour les modifications (trop clean, j'apprends de vous).

J'ai quelques remarques:
Sur la ListBox les entêtes n'apparaissent plus [Image 1].

Les références sont basées sur un compteur ce qui créer des références en double si je supprime une ligne
Exemple, nous avons :
VMA1
VMA2
VMA3
Je supprime VMA2, en remplissant le formulaire, je vais avoir VMA3 une deuxième fois [Image2].

Question, est-il possible d'avoir un compteur invisible qui enregistre le dernier chiffre affecté ?

Si c'est le cas on aura :
VMA1
AMA2
AML3
SMA4....

Merci encore.

cp4 · 28 Décembre 2021

Ricouch à dit:
Wow, merci beaucoup pour les modifications (trop clean, j'apprends de vous).

J'ai quelques remarques:
Sur la ListBox les entêtes n'apparaissent plus [Image 1].

Les références sont basées sur un compteur ce qui créer des références en double si je supprime une ligne
Exemple, nous avons :
VMA1
VMA2
VMA3
Je supprime VMA2, en remplissant le formulaire, je vais avoir VMA3 une deuxième fois [Image2].

Question, est-il possible d'avoir un compteur invisible qui enregistre le dernier chiffre affecté ?

Si c'est le cas on aura :
VMA1
AMA2
AML3
SMA4....

Merci encore.

à tester. Je n'ai jamais vu une Listbox à 39 colonnes.

Ricouch · 28 Décembre 2021

cp4 à dit:
à tester. Je n'ai jamais vu une Listbox à 39 colonnes.

Je me suis arrêté à la formule des références (c'est parfait), pour la listebox j'ai ajouté des label et réduit le nombre des colonnes (7 essentiels) PJ.

Prochaine étape, pour chaque nouveau produit (ligne) un dossier sera créée avec lien hypertexte sur la référence, pour insérer des images du produit.

Merci beaucoup pour le savoir partager

cp4 · 28 Décembre 2021

Ricouch à dit:
Je me suis arrêté à la formule des références (c'est parfait), pour la listebox j'ai ajouté des label et réduit le nombre des colonnes (7 essentiels) PJ.

Prochaine étape, pour chaque nouveau produit (ligne) un dossier sera créée avec lien hypertexte sur la référence, pour insérer des images du produit.

Merci beaucoup pour le savoir partager

Pour la prochaine étape, ouvre une autre discussion.
Tu auras plus de chance d'avoir un retour. Car, je pars en voyage pour les fêtes de fin d'années (visite aux parents).

Bonnes fêtes de fin d'année.

XL 2016 VBA - Créer une référence unique selon conditions

Ricouch

XLDnaute Nouveau

Pièces jointes

cp4

cp4

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Ricouch

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

cp4

XLDnaute Barbatruc

Ricouch

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

Pièces jointes

Ricouch

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

Pièces jointes

Ricouch

XLDnaute Nouveau

Pièces jointes

cp4

XLDnaute Barbatruc

Discussions similaires