Facturier

H

Hieu

XLDnaute Impliqué

• 21 Août 2018

• #2

BOnjour,

Je ne comprends pas la condition ??

VB:

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

+ un petit fichier exemple serait le bienvenu

 

Vote positif 0 Vote négatif

2

22toto22

XLDnaute Nouveau

• 21 Août 2018

• #3

Voici merci pour votre suivi

 

Pièces jointes

• Facture Edwin.xlsm

  53.2 KB · Affichages: 34

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 21 Août 2018

• #4

Ok,

Quelle est la condition, pour copier ??

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

 

Dernière édition: 21 Août 2018

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 21 Août 2018

• #5

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

VB:

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

 

Pièces jointes

• Facture Edwin_v0.xlsm

  52.4 KB · Affichages: 38

Vote positif 0 Vote négatif

2

22toto22

XLDnaute Nouveau

• 22 Août 2018

• #6

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

 

Dernière édition: 22 Août 2018

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 22 Août 2018

• #7

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

22toto22 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

2

22toto22

XLDnaute Nouveau

• 23 Août 2018

• #8

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

 

Vote positif 0 Vote négatif

2

22toto22

XLDnaute Nouveau

• 27 Août 2018

• #9

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

 

Vote positif 0 Vote négatif

2

22toto22

XLDnaute Nouveau

• 27 Août 2018

• #10

Voici le fichier

 

Pièces jointes

• Facture Edwin_v0 (1).xlsm

  55.8 KB · Affichages: 19

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 27 Août 2018

• #11

Salut,

La petite modif :

VB:

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,

 

Pièces jointes

• Facture Edwin_v1.xlsm

  52.8 KB · Affichages: 43

Vote positif 0 Vote négatif

2

22toto22

XLDnaute Nouveau

• 28 Août 2018

• #12

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

 

Vote positif 0 Vote négatif