VBA D201800001 + 1incrémente

Bonjour à tous,

Je cherche une solution depuis 3 jours j'ai bon essayer divers code rien ne fonctionne :/

J'ai pour le moment un code qui incrémente de 1 mon numéro de facture.

Il fonctionne donc parfait, mais je cherche à le modifier pour pouvoir incrémenter un nombres + lettre

En gros au lieu de faire 201800001 puis 201800002, 201800003 ...

J'aimerais : F201800001 puis F201800002, F201800003 ... (pour mes factures)

et donc D201800001 puis D201800002, D201800003 ... (pour mes devis)

Set FeDevis = Worksheets("Devis_2018")

... autre morceau du code...

'incrémente le numéro client par rapport à la valeur de la cellule du dessus
FeDevis.Cells(Lig, 1).Value = FeDevis.Cells(Lig - 1, 1).Value + 1

Donc j'ai en colonne A le numéro du devis sur la feuille devis_2018 qui fait référence à FeDevis dans le code

La 1ér ligne vide (la ou le devis s'enregistre quand je clic sur enregistrer) étant la 3eme ligne.

voilà voilà

Quelqu'un aurais une idée ???

Bonjour Geoffrey,

Si tu as en A1 ton n° de facture, il suffit de faire (au choix) :

● par formule, en C1 : ="F" & A1

● en VBA : [C1] = "F" & [A1]

(si C1 est la cellule de destination)

dhany

En vba oui pas en formule

car le code que je cherche je doit l'insérer dans le code que j'ai déjà qui est justement enregistrer devis (il recopie les données dans la base de données à la 1er ligne vide et justement indique donc le numero du devis +1

ton code vba ne me donnera pas le N° du dessus +1

Sur ton message de 19:53, tu as ce code VBA (que j'ai simplifié en enlevant les 2 .Value) :

'incrémente le numéro client par rapport à la valeur de la cellule du dessus
FeDevis.Cells(Lig, 1) = FeDevis.Cells(Lig - 1, 1) + 1

Ton n° Client est donc dans : FeDevis.Cells(Lig, 1)

Pour l'afficher avec un "F" devant : MsgBox "F" & FeDevis.Cells(Lig, 1)

Si tu veux l'affecter à la cellule D5 : [D5] = "F" & FeDevis.Cells(Lig, 1)

(je dois bientôt sortir, donc je ne peux pas t'aider plus ce soir)

dhany