Incrémenter le num facture par 1

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

69facturation.xlsm (63.74 Ko)

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

A+

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

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

la ligne marche

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!

Mon probleme du code vba préciosité mon ami regarde ci haut merci

C'est un poème?


* Persiste

Rechercher des sujets similaires à "incrementer num facture"