Condition sur n°de facture

  • Initiateur de la discussion Initiateur de la discussion br44
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

br44

XLDnaute Impliqué
Bonjour le forum,

Voilà je remplis un tableau mesuel qui est divisée en journèes (19à23 suivant le nombres de jours ouvrés dans le mois),est ceci pour une centaine de rèfèrences .Actuellement la n° de facture Change à chaque fois que clique à chaque validation ,se qui me donne de19 à 23 n°de facture pour un clients .

Je Voudrais savoir si il est possible d'ajouter une condition pour que l'inrèmentation ne se face qu'une fois par client (Sur la première journèe par exemple ) ?

Si dessous ma macros actuelle :


Private Sub CommandButton1_Click() 'Bouton "VALIDER"

'Declare la varible NumIncrementfacture
Dim NumIncrementFacture As Integer

'si une modification n'est pas en cours
If TrouveRefC Is Nothing Then
'Incrementation du n° de facture
'Je reprend 0000 comme ancienne valeur de l'increment

NumIncrementFacture = Sheets("Facture").Range("C16")
'J'insert la condition pour les fiches sans N°de facture
If Sheets("Détail").Range("G3").Value = "C018" Or Sheets("Détail").Range("G3").Value = "C034" Or _
Sheets("Détail").Range("G3").Value = "C035" Or Sheets("Détail").Range("G3").Value = "C038" Or _
Sheets("Détail").Range("G3").Value = "C041" Or Sheets("Détail").Range("G3").Value = "C051" Or _
Sheets("Détail").Range("G3").Value = "C103" Or Sheets("Détail").Range("G3").Value = "C104" Or _
Sheets("Détail").Range("G3").Value = "C110" Or Sheets("Détail").Range("G3").Value = "C112" Then
'je n'incremente pas le N° de facture pour cette serie
NumIncrementFacture = NumIncrementFacture + 0
'je met à jour le N°d'incrèmentation
Sheets("Facture").Range("C16").Value = NumIncrementFacture
'J'affiche le résultat
FactureN°.Value = Sheets("Facture").Range("C16").Value
'Je quitte la condition
Else
'j'increntente le N°de de facture hors condition
NumIncrementFacture = NumIncrementFacture + 1
'je met à jour le N°d'incrèmentation
Sheets("Facture").Range("C16").Value = NumIncrementFacture
'J'affiche le resultat de l'incrémentation
FactureN°.Value = Sheets("Facture").Range("C16").Value
End If
'si une modification est en cours

Else
Sheets("Facture").Range("C16").Value = FactureN°.Value
Sheets("AnnexFacture1").Range("C16").Value = FactureN°.Value
End If



En espèrant avoir ètè claire dans ma demande . Je vous dis à plus sur ce fil sans oublier de vous remercier par avance pour le coup de main . Amicalement BR44
 
Dernière édition:
Re : Condition sur n°de facture

Re: bonjour à tous ,

Juste se petit message pour vous dire que j'ai modifie mon message prèsèdant pour qu'il soit plus claire .

Vous remerciant tous par avance je vous dit à bientôt sur se fil .Amicalement BR44
 
Re : Condition sur n°de facture

Re: Bonjour Kjin ,le forum


Merçi pour ton message et milles excuses pour le manque de clartèe .


J'ai rèussi à rèsoudre mon problème en rajoutant la condition suivante au dèbut de ma macro (pour infos):

If Journée.value="1ère Journée" Then
....... Ma macro.......

End If

Je voufrais remercier tout ceux qui ont pris le temps de lire se post . Je termine en vous disant à bientôt sur la forum . Amicalement BR44
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
672
Retour