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
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