XL 2013 Incrementé + 1 selon mon choix dans la liste

[hamza01]

Bonjour à tous,

J'essaye de résoudre un petit problème sans résultat. J'ai une facture dans laquelle j'aimerai incrémenter + 1. Sauf que j'ai des conditions derrières. Ma facture doit être générer selon mon choix de la cellule G9 qui comporte : Location_salle, Vente_Magazine, Vente_Oeuvre,Autres, Atelier. Ce que j'aimerai faire c'est donc selon mon choix dans la cellule G9 incrémenté + 1 de cette façon.

2017LS0001 pour Location salle. Après enregistrement du fichier : 2017LS0002......
2017VM0001 pour Vente_Magazine. Après enregistrement du fichier : 2017VM0002......
2017VO0001 pour Vente_Oeuvre
2017AU0001 pour Autres
2017AT0001 pour Atelier

Voila ce que j'ai essayé pour l'instant mais ca ne fonctionne pas
Sub Incrémenter_Facture()
Dim num As Integer

If NB.SI(G9 = "Location_Salle") Then
Range("G8").Select
num = Range("G8").Value
num = num + 1
Range("G8").Value = "2017LS" & num
Range("G8").Value = num
ElseIf NB.SI(G9 = "Atelier") Then Range("G8").Select
num = Range("G8").Value
num = num + 1
Range("G8").Value = "2017AT" & num
Range("G8").Value = num
ElseIf NB.SI(G9 = "Vente_Oeuvre") Then Range("G8").Select
num = Range("G8").Value
num = num + 1
Range("G8").Value = num
Range("G8").Value = "2017VO" & num
ElseIf NB.SI(G9 = "Vente_Magazine") Then Range("G8").Select
num = Range("G8").Value
num = num + 1
Range("G8").Value = num
Range("G8").Value = "VM" & num
ElseIf NB.SI(G9 ="Autre") Then Range("G8").Select
num = Range("G8").Value
num = num + 1
Range("G8").Value = "2017AU" & num
Range("G8").Value = num
End If

End Sub


Merci

 

[francoisC]

Bonjour
Commence par changer "NB.SI" par countif
cordialement

 

[Lolote83]

Salut,
Sans fichier, on essaye d'imaginer.
Bref, selon mon imagination, voici en retour un exemple
@+ Lolote83

 

[francoisC]

D'alleurs je ne suis pas sûr que tu veuilles un countif. j'ai parlé trop vite. En revanche ce que je ne comprends pas, c'est la valeur de G8
elle est "2017LS" & num et immédiatement après num.
Possible d'avoir ton classeur ?
De plus au bout de 10 enregistrements à quoi doit-on arriver = 2017LS00010 ou 2017LS0010 ?

 

[hamza01]

bonjour à vous deux, merci pour vos réponses. je met ci-joint le document.

 

[hamza01]

G8 représente la cellule ou on retrouve le numéro de facture, je viens de consulter ton fichier, c'est exactement ce que je recherche. Je vais essayer de l'appliquer à mon fichier. Merci infiniment

 

[Lolote83]

Salut HAMZA01,
En retour ton fichier basé sur celui que je t'ai transmi au post#3
@+ Lolote83

 

[hamza01]

Merci infiniment pour ton aide Lolote83.