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 : 105
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é 46 fois
Cordialement Sassi :thx:
Avatar du membre
curulis57
Membre impliqué
Membre impliqué
Messages : 2'962
Appréciations reçues : 111
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 : 105
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 : 5'157
Appréciations reçues : 273
Inscrit le : 16 mars 2017
Version d'Excel : 2010

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
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
Si vous avez un doute :
annonces/explications-et-regles-a-respecter-t13.html

isabelle
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 105
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 : 5'157
Appréciations reçues : 273
Inscrit le : 16 mars 2017
Version d'Excel : 2010

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!
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
Si vous avez un doute :
annonces/explications-et-regles-a-respecter-t13.html

isabelle
Avatar du membre
Sassi
Membre habitué
Membre habitué
Messages : 105
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'962
Appréciations reçues : 111
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 : 105
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