XL 2019 code vba

VinceARomiac · 15 Mai 2023

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 · 15 Mai 2023

Re

ChTi160 à dit:
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

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

@Phil69970

herve62 · 15 Mai 2023

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

Staple1600 · 17 Mai 2023

Bonsoir le fil

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

Code:

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.

XL 2019 code vba

VinceARomiac

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Discussions similaires