Discussion :

[Cyril68100]

Bonjour à tous,

J'ai commencé il y a peu de temps l'initiation à la programmation VBA et je bloque sur la manière de générer un code client alpha-numérique pour chaque nouvel enregistrement d'une base de données à l'aide d'un formulaire.

tout d'abord, les colonnes de ma base de données qui seront utiles pour le code client :
colonne A2 : code client (qui sera générer automatiquement via le formulaire)
colonne B2 : raison sociale (Ex: Microsoft)
colonne I : département (Ex: 52)

Le code client que je souhaiterai avoir sera composé de la première lettre du nom de la raison sociale (colonne B), suivi du numéro de département (colonne I) et ensuite d'un numéro d'incrémentation commençant par 0001. ce qui donnerai pour l'exemple ci-dessus : M52-0001

Lors d'un nouvel enregistrement, par exemple raison sociale Apple et numéro de département 95, nous obtiendrions A95-0002 et ainsi de suite.

En faisant des recherches, j'ai trouvé une formule que j'ai insérée dans la cellule code client mais il me manque l'incrémentation. et le but n'étant pas d'avoir une formule dans la cellule mais le code client généré par VBA via le formulaire.

=GAUCHE(B2;1)&[DEPARTEMENT]&"-"

Il faudrait intégrer cela au code vba et y ajouter l'incrémentation...

et la je sèche depuis plusieurs jours malgré les recherches sur le net.

D'avance je vous remercie pour vos réponses

Cyril

[Jean-Philippe André]

Salut,

tu peux regarder en utilisant les fonctions NB() ou NBVAL() sur ta colonne d'identifiant.

Tu lui applique le format 0000 de telle sorte a avoir ton 0009 par exemple

Lors de l'ajout de ton nouvel identifiant, tu prends la valeur de la cellule que tu colle au combo 1er lettre/dept.

Une fois l'identifiant ajoute dans la colonne, le compteur se mettra a jour.

[antonysansh]

Bonjour,

J'ajoute un complément à la réponse de Jean-Philippe André.

Si tu optes pour cette méthode tu devras faire attention a ne jamais supprimer de client car tu pourrais créer des codes identiques.

[eriiic]

Bonjour,

pour éviter l’écueil signalé par antonysansh tu peux avoir le plus grand index avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MAX(--DROITE(A2:A6;4))

formule matricielle
à traduire en anglais pour vba
eric