Incrementé + 1 selon mon choix dans la liste
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
Merci
Puisque c le vide total coté réponse, j'essaye de rester motivé
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
Salut Hamzaben,
je regarde ça tout à l'heure mais tu devrais nous fournir un fichier, avec des données bidon, sur lequel travailler, afin de comprendre ta façon de gérer tes factures.
A+