Macro récapitulatif des factures

Version imprimable

04/03/2012, 23h30
maxime42

1 pièce(s) jointe(s)

Macro récapitulatif des factures

Bonsoir à tous !

Débutant en vba, j ai besoin de vos conseils :

J'ai un un classeur qui contient :
* un onglet de base avec une macro qui permet de créer une nouvelle facture
* des factures crées à l 'aide de cette macro.
* un onglet récap qui récapitule les quantités sorties pour au sein de ces factures (avec la désignation, le prix des produits et le total).

J'aimerais que cet onglet récap se mette à jour automatiquement à l'aide d'une macro, c'est à dire que dès que l'on crée une nouvelle facture, les champs de cette nvlle facture s'inscrivent automatiquement dans cet onglet.

Je vous remercie par avance de votre GRANDE AIDE !

Bonne soirée :ccool:

bonjour,
une petite contribution vite fait...
à chaque fois on relit toutes les factures et on remet à jour la feuille recap.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub maj_recap()
    lg_recap = 1
    For Each facture In Sheets
       ' on vérifie qu'il s'agit d'une facture (même vide...)
        If Left(facture.Name, 8) = "Facture " Then
             ' on balaye les lignes contenant les articles
            For lg_facture = 17 To 25
                ' on cherche une quantité positive
                If facture.Cells(lg_facture, 1) > 0 Then
                     ' on la note dans la récap
                    lg_recap = lg_recap + 1
                    facture.Range("A" & lg_facture & ":D" & lg_facture).Copy Destination:=Sheets("recap").Cells(lg_recap, 1)
                End If
            Next lg_facture
        End If
    Next facture
End Sub

ps: dans une récap, ne vaudrait il pas mieux cumuler les articles de même désignation?

06/03/2012, 21h20
maxime42

Merci de cette réponse ! ca marche super bien,

Non, je ne peux pas cumuler les désignation car les prix unitaires ne sont pas forcément les mêmes pour un meme produit.