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

Bonjour @Gue225 et bienvenu sur XLD

Avec un fichier anonymisé c'est nettement mieux !!!!

@Phil69970

herve62 · 15 Mai 2023

Bonsoir
Vu qu'il n'y a pas de fichier joint ?? ( ce qu'on demande ici en 1er !!)
Je ne vois pas ce que tu veux faire ???
Sinon impossible d'avoir l'égalité tel quel du > If Int(annee) = Int(anneeFacture) ????
A la rigueur , je ne vois que ça de potable qui serait parlant au cas ou en J10 on ai une date classique du genre> 12/05/2023

VB:

anneeFacture = Mid(Sheets("Devis").Range("J10"), 7, 4)

Phil69970 · 15 Mai 2023

Re

Bonjour @herve62

@Gue225

Ton code te permet de faire jusqu'à 1000 factures par mois tu es sur d'avoir un tel volume de factures !!!
==> Combien de facture au maximum tu fais par mois ?

@Phil69970

VinceARomiac · 15 Mai 2023

Gue225 à dit:
Hello Bonjour a tous,

Je suis nouveau je suis Gue Sanz Stephane .

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

VinceARomiac · 15 Mai 2023

@Phil69970 @herve62

Merci pour votre support .

@Phil69970 en effet je n'ai pas un tel nombre de facture mais j'ai voulu prendre un tres tres grand ensemble

Phil69970 · 15 Mai 2023

Re

Le fichier fournit ne correspond pas au code dans le code tu parles de J10 et dans le devis c'est J9 ?

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

Quand on fournit un fichier il doit être représentatif .....

Et j'ai pas eu la réponse complète !!!

Phil69970 à dit:
Combien de facture au maximum tu fais par mois ?

@Phil69970

ChTi160 · 15 Mai 2023

Bonjour le Fil
Bienvenue a Stephane
tu as :

VB:

anneeFacture = Mid(Sheets("Devis").Range("J10"), 2, 4)

alors que ton numéro de Facture se trouve en Cellule "J9"
Jean marie
Oups pas vu @Phil69970 Lol

VinceARomiac · 15 Mai 2023

Phil69970 à dit:
Re

Le fichier fournit ne correspond pas au code dans le code tu parles de J10 et dans le devis c'est J9 ?
Regarde la pièce jointe 1170277
De plus il manque surement des feuilles dans ton fichier ==> la feuille facture entre autre .....

Quand on fournit un fichier il doit être représentatif .....

Et j'ai pas eu la réponse complète !!!

@Phil69970

Maximum 30

Phil69970 · 15 Mai 2023

Re

Bonjour Jean Marie

@Gue225

Je te propose ce fichier
Je t'ai tout mâché pour faire la même chose sur la facture ....

Merci de ton retour

@Phil69970

ChTi160 · 15 Mai 2023

Re
je n'ai pas encore regardé le Fichier de Phil mais j'y vais Lol

une modification Possible du Code de Stephane :

VB:

Dim StrFacture$, ID As Integer, AnneeFacture As Integer
StrFacture = 1
With Sheets("Devis")
    If .Range("J9") <> Empty Then
                       ID = Right(.Range("J9"), 4) 'on récupére l'index de la facture
        AnneeFacture = Mid(.Range("J9"), 2, 4) 'on récupére l'année du Numéro de la Facture
    End If
End With
          StrFacture = IIf(Int(Year(Date)) = Int(AnneeFacture), Int(ID) + 1, StrFacture)
       Range("J9") = "F" & Format(Date, "yyyy-mm-") & Format(StrFacture, "0000")
    StrFacture = Empty

edit :
je viens de voir le Code De Phil et on a pensé à la formater autrement à partir de la Date Moi et de Now et Month() pour Phil

Code:

"D" & Year(Now) & "-" & Format(Month(Date), "00") & "-"

et moi

Code:

 "F" & Format(Date, "yyyy-mm-")

Je n'avais pas regardé que le Dernier Numéro de Facture était en feuille Paramètre Lol
Jean marie

VinceARomiac · 15 Mai 2023

Phil69970 à dit:
Re

Bonjour Jean Marie

@Gue225

Je te propose ce fichier
Je t'ai tout mâché pour faire la même chose sur la facture ....

Merci de ton retour

@Phil69970

Merci c'est ok , mais neanmoins lorsque le numero passe au suivant la facture ne se reinitialise pas , je vais ajouter un code pour y remedier

Phil69970 · 15 Mai 2023

Re

C'est uniquement si tu veux adapté sur la partie facture

Petite modif pour que cela fonctionne sur la facture ==> la partie tout mâché !!!!
*Jai supposé que tu as une feuille qui s'appelle "Facture" sinon il faudra adapter la partie pré-mâché

Phil69970 à dit:
Je t'ai tout mâché pour faire la même chose sur la facture ....

Et pour la réinitialisation

Gue225 à dit:
Merci c'est ok , mais neanmoins lorsque le numero passe au suivant la facture ne se reinitialise pas , je vais ajouter un code pour y remedier

Tu rajoutes ceci (la partie en rouge)

annuler_devis
End sub

J'ai fait la modif sur la V2 ....

@Phil69970

Phil69970 · 15 Mai 2023

Re

Effectivement Jean Marie on peut tout faire en une seule fois (année + mois ) mais on gagne pas grand chose sinon peut être une meilleure visibilité du code.

@Phil69970

ChTi160 · 15 Mai 2023

Re
Phil effectivement !

on gagne pas grand chose sinon une meilleure visibilité du code.

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

XL 2019 code vba

VinceARomiac

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

herve62

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

VinceARomiac

XLDnaute Nouveau

Pièces jointes

VinceARomiac

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

VinceARomiac

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

VinceARomiac

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Pièces jointes

Phil69970

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires