Facturier

[22toto22]

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

 

[Hieu]

BOnjour,

Je ne comprends pas la condition ??

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

+ un petit fichier exemple serait le bienvenu

 

[22toto22]

Voici merci pour votre suivi

 

[Hieu]

Ok,

Quelle est la condition, pour copier ??

+ je ne comprends pas où tu veux le copier ?
les colonnes ne correspondent pas ?

 

[Hieu]

Une premiere idée :
J'ai viré la condition que je ne comprends pas (? ) :

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("a1").Offset(nb_h, 0).PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

 

[22toto22]

Super pour l'aide merci
Pour la condition de copie, tant qu'il y a une ligne dans la facture il copie dans "historique facture"
et il copie le num Fact le nom puis les données dans la facture a partir de Quant et les recopier dans "historique facture" a partir de la case Quant
est il possible de calculer plus de 24 Hrs pour les prestation horaire
merci beaucoup de votre aide

 

[Hieu]

Je n'ai pas compris...
Peux-tu refaire ton fichier exemple avec la feuille "historique facture" remplie comme tu le souhaiterais ?

est il possible de calculer plus de 24 Hrs pour les prestation horaire

==> pas compris. faire un exemple de la sortie voulue.

 

[22toto22]

Super pour le calcule de l'heure il s'agissait du format [h] tout est ok y compris l'archive merci pour tout super

 

[22toto22]

Merci pour l'aide fournie mais pourriez-vous encore m'aider svp
est il possible de décalé l'archivage dans historique facture a la case "C" car quand je le fait cela ne ce passe pas bien et il écrase chaque fois l'archivage précédent
merci d'avance

 

[22toto22]

Voici le fichier

 

[Hieu]

Salut,

La petite modif :

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
' ici
h.Range("c1").Offset(nb_h, 0).PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

End Sub

N'hésite pas si tu as des questions,

 

[22toto22]

Bonjour, dans le dernier fichier que j'ai mit pourriez-vous encore m'aider svp
j'aimerais que les archive reste comme vous me l'aviez fait dans les cases a mais le problème je ne voie pas comment mètre
le num de facture et le nom dans l'archivage une fois cela fait je ferais la même chose pour devis ou bien on sait changer devis en facture ?
merci d'avance de votre aide heureusement que vous êtes la