Numérotation incrémentée en AlphaNumérique

[Roni95]

Bonjour tout le monde,

Je fais un suivi de réclamations grâce au fichier joint (c'est un formulaire de saisie pour nos réclamations développé en VBA avec beaucoup d'aide via ce forum).

J'aurai besoin d'ajouter une donnée alpha dans le champ "n° de réclamation" (exemple: 132 ce qui deviendrai EB132 puis EB133...) EB serait l'initiale du prénom et du nom de la personne qui saisie.

Merci pour votre aide précieuse.

 

[pierrejean]

Re : Numérotation incrémentée en AlphaNumérique

bonjour Roni

Vois si cela te convient
Nb Le nom et le prenom doivent etre séparés par un espace

 

[Hulk]

Re : Numérotation incrémentée en AlphaNumérique

Hello Forum, Roni, Pierre 🙂

Bien que le maître Pierrejean à déjà répondu à ta demande et vu que je me suis amusé à y faire, je dépose tout de même ma soluce 😀

Explication :

Le nom saisi dans le champs "Enregistré par" est reporté sur la feuille "liste" en I2, en J2 il y a les initiales grâce à une formule et à l'ouverture de l'USF le champ "N° Réclamation" est incrémenté avec les initatiales de la feuille "liste" J2.

Bonne continuation, Hulk.

 

[Roni95]

Re : Numérotation incrémentée en AlphaNumérique

En fait, le nom est déjà renseigné automatiquement. J'ai enlevé le point et laissé un espace mais le n° de réclamation reste numérique???

 

[pierrejean]

Re : Numérotation incrémentée en AlphaNumérique

Re
Je viens de controler qu'en cliquant sur le bouton enregistrer on obtient bien en B8 l'inscription EB7
Y a-t-il quelque chose qui m'echappe ?

 

[Hulk]

Re : Numérotation incrémentée en AlphaNumérique

Re,

En ce qui me concerne, j'avais oublié de te dire que j'ai supprimé le premier espace !

Effectivemment, comme le dit Pierrejean, il ne faut pas d'espace superflus !

Après, reste à savoir si j'ai bien compris ce que tu voulais.

Cdt, Hulk.

 

[pierrejean]

Re : Numérotation incrémentée en AlphaNumérique

Re
Ayant vu la solution de Hulk
modification pour avoir le Numero Alphanumerique dans l'userform

 

[Roni95]

Re : Numérotation incrémentée en AlphaNumérique

ça fonctionne parfaitement 🙂

Merci à vous 2!

J'aurai une autre petite question sur ce même formulaire.
J'ai un nouveau collaborateur qui débute avec une base vierge (aucune réclamation) et le problème est que lorsque l'on clique sur ouvrir le formulaire, une fenêtre VBA apparaît
"erreur exécution 13"
"incompatibilité de type"

Pouvez-vous m'aider?
Merci encore

 

[Hulk]

Re : Numérotation incrémentée en AlphaNumérique

Re,

Assure-toi bien de comment est appelé l'Userform !
Je veux dire que si l'Usf se nomme "frmReclamations" il faut ceci depuis le bouton avec lequel il l'appelle

frmReclamations.Show

Peut-être c'est ça...

Cdt, Hulk.

 

[Roni95]

Re : Numérotation incrémentée en AlphaNumérique

Bonjour,

J'ai l'impression que ça c'est bon mais il doit y avoir autre chose????

 

[Roni95]

Re : Numérotation incrémentée en AlphaNumérique

Bonjour à tous!

J'ai un problème avec la nouvelle incrémentation "alphanumérique" proposée car cela fonctionne pour la 1ère fiche créee mais pas pour la suivante???

Merci pour votre aide!

 

[pierrejean]

Re : Numérotation incrémentée en AlphaNumérique

Re

Effectivement, il y avait un hic

Vois si cela va mieux
Attention le premier numero doit bien avoir la forme xxx 1

 

[Roni95]

Re : Numérotation incrémentée en AlphaNumérique

Re

Effectivement, il y avait un hic

Vois si cela va mieux
Attention le premier numero doit bien avoir la forme xxx 1

ça fonctionne parfaitement 😉

J'aurai une autre question, lorsque ma base de données est vide et que je souhaite faire ma première réclamation, le formulaire ne s'ouvre pas. Le message suivant apparaît: "erreur d'exécution 13 - incompatibilité de type"

Merci encore pierrejean 🙂

 

[pierrejean]

Re : Numérotation incrémentée en AlphaNumérique

Re

Comme on crée le numero a partir du precedent il faut qu'il y ait un premier

Rappel
Attention le premier numero doit bien avoir la forme xxx 1

 

[Roni95]

Re : Numérotation incrémentée en AlphaNumérique

Logique en effet😀

Merci encore pierrejean
Bonne fin de journée