XL 2019 code vba

[VinceARomiac]

Hello Bonjour a tous,

Je suis nouveau

J'ai un petit soucis avec mon code VBA , et je vous prie de bien vouloir m'assister , c'est une systeme de facture , qui grace ce code me permet de numeroter au niveau superieur la facture voici le code


Sub nouveau_devis()

annee = Year(Date)
mois = Format(Month(Date), "00")
ID = Right(Sheets("Devis").Range("J10"), 4)
anneeFacture = Mid(Sheets("Devis").Range("J10"), 2, 4)


If Int(annee) = Int(anneeFacture) Then
Range("J10") = "F" & annee & "-" & mois & "-" & Format(Int(ID) + 1, "0000")
Else
Range("J10") = "F" & annee & "-" & mois & "-" & "0001"
End If


Sheets("Devis").Range("F20:F32").Value = ""
Sheets("Devis").Range("I20:I32").Value = ""
Sheets("Devis").Range("I14").Value = ""

End Sub

 

[Phil69970]

Re

Je me posais la question de comment ce fait le Choix entre Devis et Facture ? Lol

J'en sais rien d’où mon interrogation sans réponse à @Gue225

De plus il manque surement des feuilles dans ton fichier ==> la feuille facture entre autre .....

@Phil69970

 

[herve62]

Bon moi je décroche !!! j'ai ouvert les débats ...c'est bon

 

[Staple1600]

Bonsoir le fil

D'un JM à l'autre
(Voir le message#11)

Sub Tant_Kon_Y_est()
Dim NumFact$
NumFact = Format(Date, """F""yyyy-mm-")
MsgBox NumFact
End Sub

PS: C'était juste ...pour le fun, avant d'aller au dodo.