Facturier

Bonjour, j'essaye de créer un fichier facture

mon souci je ne trouve pas comment procéder pour copier les donnée de la feuille facture dans la feuille historique facture

j'aimerai que les données ce mette chaque fois en-dessous des dernière données voici le code mais je suis un amateur

Sub Copie()

If Range("C10").Range("C65536").End(xlUp).Offset(1, 0) Then

Range("B10:G40").Select

Selection.Copy

Sheets("Historique Facture").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Facture").Select

Range("J3").Select

Application.CutCopyMode = False

End If

End Sub

pourriez-vous m'aider svp

merci d'avance

Bonjour,

Une piste :

Sub Copie()

    Dim Plage As Range
    Dim Lig As Long

    Set Plage = Worksheets("Facture").Range("B10:G40")

    'colle les valeurs à partir de la colonne B ! Adapter si colonne A
    With Worksheets("Historique Facture")

        Lig = .Cells(.Rows.Count, 2).End(xlUp).Row
        .Range(.Cells(Lig + 1, 2), .Cells(Lig + Plage.Rows.Count, Plage.Columns.Count + 1)).Value = Plage.Value

    End With

End Sub

merci vous tiens au courant

voila la solution que l'on ma donnée

Sub Copie()

Application.ScreenUpdating = False

Set wf = WorksheetFunction

Set f = Sheets("Facture")

Set h = Sheets("Historique Facture")

nb_f = wf.CountA(f.Range("a:a")) - 2

nb_h = wf.CountA(h.Range("a:a"))

f.Range("B10:G" & 9 + nb_f).Copy

h.Range("c1").Offset(nb_h, 0).PasteSpecial Paste:=xlPasteValues, _

Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

End Sub

s'avez-vous comment calculer les heures au delà de 24 heures svp

merci en tout cas de votre aide

Re,

Pour faire un calcul d'heures au delà de 24, il faut utiliser le format "[h]:mm:ss" soit avec Format--->Personalisée soit avec la fonction Texte() mais la fonction Texte() retourne une chaîne et non un nombre donc, Excel ne peut pas utiliser le résultat sans construire une formule scabreuse !

Admettons que tu souhaites ajouter 14:52:25 et 16:45:12 tu obtiendras 07:37:37 et bien tu fais Format ---> Personalisée et tu colles le format que je t'ai donné plus haut et la valeur va devenir 31:37:37

Bonjour

En temps que débutant, j'ai été confronté à la même problematique.

J'avais trouvé ce code dans mes recherches qui fonctionne

Il permet archiver dans une feuille "Historique facture" des éléments de la facture.

De plus, il efface toutes les données de la facture et incrémente le numéro de facture de +1

Pour cela, dans l'historique, écris dans la ligne 1 de ton tableau , un numéro de facture (nombre) et lorsque tu archiveras ta 1ère facture, il incrémentera

Cordialement

Sub Archiver()

ligne = Sheets("Historique_facture").Range("A4").End(xlDown).Row + 1

'copier-coller les cellules indiquées de la feuille Facture sur la feuille Historique facture

Sheets("Historique_facture").Range("A" & ligne).Value = Sheets("Facture").Range("J10").Value

Sheets("Historique_facture").Range("B" & ligne).Value = Sheets("Facture").Range("e10").Value

Sheets("Historique_facture").Range("C" & ligne).Value = Sheets("Facture").Range("f13").Value

Sheets("Historique_facture").Range("D" & ligne).Value = Sheets("Facture").Range("f14").Value

Sheets("Historique_facture").Range("E" & ligne).Value = Sheets("Facture").Range("k35").Value

Sheets("Historique_facture").Range("F" & ligne).Value = Sheets("Facture").Range("k36").Value

Sheets("Historique_facture").Range("G" & ligne).Value = Sheets("Facture").Range("k37").Value

Sheets("Historique_facture").Range("H" & ligne).Value = Sheets("Facture").Range("k38").Value

'efface les données des cellules indiquées de la feuille Facture

Sheets("Facture").Range("b24:i33").ClearContents 'désignation-unité-qté-puht-remise

Sheets("Facture").Range("k24:k33").ClearContents 'taux TVA

Sheets("Facture").Range("f13:k13").ClearContents 'nom client

Sheets("Facture").Range("d19:l19").ClearContents 'prestation

Sheets("Facture").Range("d21:l21").ClearContents 'nature

Sheets("Facture").Range("d35:e35").ClearContents 'travaux réalisés

Sheets("Facture").Range("d36:e36").ClearContents 'transport Aller

Sheets("Facture").Range("d37:e37").ClearContents 'transport Retour

Sheets("Facture").Range("b46:l49").ClearContents 'observations

Sheets("Facture").Range("k40:l40").ClearContents 'acompte à la commande

Sheets("Facture").Range("e42:g42").ClearContents 'conditions de reglement

Sheets("Facture").Range("e43:g43").ClearContents 'echéance de paiement

Sheets("Facture").Range("k37:l37").ClearContents 'frais de port

Sheets("Facture").Range("h6:h7").ClearContents 'numéro devis

Sheets("Facture").Range("c13:d13").ClearContents 'votre commande

Sheets("Facture").Range("c14:d14").ClearContents ' du

'incrémente de +1 le numéro de facture

Sheets("Facture").Range("j10").Value = Sheets("Facture").Range("j10").Value + 1

Un tout grand merci je test cela cesoir

Merci pour les calcules des heures cela était tout simple mais j'ai décrocher depuis 8 ans "pensionner"

et dur dur de revenir dedans je fais cela pour un jeune qui ce lance et lui demande bonbon alors que moi c'est gratuit

encore merci

Rechercher des sujets similaires à "facturier"