incrémenter le num facture par 1

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 103
Appréciation reçue : 1
Inscrit le : 27 octobre 2017
Version d'Excel : 2010

Message par Sassi » 30 octobre 2017, 15:49

Bonjour à tous

je suis pas bien en VBA!

j'aimerais bien avoir de l'aide pour pouvoir incrémenter mon numéro de facture par 1 a chaque nouvelle enregistrement et aussi alimenter mon model facture par les informations ( fichier joint)

je suis trés reconnaissant à tout le forume

1000 merci

sassi
Facturation.xlsm
(63.74 Kio) Téléchargé 44 fois
Cordialement Sassi :thx:
Avatar du membre
curulis57
Membre impliqué
Membre impliqué
Messages : 2'826
Appréciations reçues : 90
Inscrit le : 4 janvier 2016
Version d'Excel : 2013 FR

Message par curulis57 » 30 octobre 2017, 20:39

Salut Sassi,

voici déjà la première demande : l'incrémentation de ton n de facture.
Le calcul recommence la numérotation à 1 au passage d'année!
Il faut aussi que tu supprimes la Sub TextBox10_Change(), évidemment!!!
Private Sub UserForm_Initialize()
'
TextBox3.Value = Date
With Worksheets("factures")
    iRow = .Range("K" & Rows.Count).End(xlUp).Row
    iFlag = Val(Right(.Cells(iRow, 11), 5)) + 1
    iFlag1 = Val(Mid(.Cells(iRow, 11), 2, 4))
    If iFlag1 < Year(Now) Then
        iFlag1 = Year(Now)
        iFlag = 1
    End If
    sData = "F" & iFlag1 & "-" & Format(iFlag, "00000")
End With
Me.TextBox10.Text = sData
'
End Sub
:D
A+
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 103
Appréciation reçue : 1
Inscrit le : 27 octobre 2017
Version d'Excel : 2010

Message par Sassi » 30 octobre 2017, 20:47

c'est très gentil de ta part

mais ( il faut toujours qu'il y a un mais), des le chois su client le macro d'ajout ce déclenche!!!! avant que je replis les autre donné et avant de cliqué sur le bouton
Cordialement Sassi :thx:
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'840
Appréciations reçues : 235
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 30 octobre 2017, 20:47

Bonjour,

en cellule E10 de votre facture model,
="F"&ANNEE(AUJOURDHUI())&"-"&TEXTE(SOMMEPROD((ANNEE(factures!D2:D1000)=ANNEE(AUJOURDHUI()))*1)+1;"0000")
seul condition est que la date reporter en colonne D de l'onglet facture soit de vrai date
Une pensée partagée
Lorsque tu omets de marquer la question initiale comme étant résolu, tu prives les participants du forum d’une solution possible pour eux.
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
isabelle
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 103
Appréciation reçue : 1
Inscrit le : 27 octobre 2017
Version d'Excel : 2010

Message par Sassi » 30 octobre 2017, 20:59

la ligne marche ;)
Cordialement Sassi :thx:
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'840
Appréciations reçues : 235
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 30 octobre 2017, 21:30

Merci pour ce retour, au plaisir!
si le problème est résolu, s.v.p. pour clôturer le fil, cliquer sur le bouton V vert du post à coté du bouton EDITER, merci!
Une pensée partagée
Lorsque tu omets de marquer la question initiale comme étant résolu, tu prives les participants du forum d’une solution possible pour eux.
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
isabelle
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 103
Appréciation reçue : 1
Inscrit le : 27 octobre 2017
Version d'Excel : 2010

Message par Sassi » 30 octobre 2017, 21:33

Mon probleme du code vba préciosité mon ami regarde ci haut merci
Cordialement Sassi :thx:
Avatar du membre
curulis57
Membre impliqué
Membre impliqué
Messages : 2'826
Appréciations reçues : 90
Inscrit le : 4 janvier 2016
Version d'Excel : 2013 FR

Message par curulis57 » 30 octobre 2017, 23:02

C'est un poème? :D
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 103
Appréciation reçue : 1
Inscrit le : 27 octobre 2017
Version d'Excel : 2010

Message par Sassi » 30 octobre 2017, 23:07

:O-O:

* Persiste
Cordialement Sassi :thx:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message