Discussion :

[joelmesrine]

Bonsoir à tous,

Je suis à la recherche depuis quelques jours d'une solution pour une programmation macro un peu complexe. Je souhaite créée un fichier pour mon usage personnel afin de gérer les factures de mes clients sur un classeur séparé pour chaque jours (sans les weekends) soit 25 classeurs avec mon entête de facture et la description des produits prix numéro de commande etc etc. J'ai créée un classeur en toute fin classeur 26 afin de récapituler mes factures (dates, numéro de commande, montant) et ainsi obtenir un bilan facture pour le mois réunis sur une seule et même feuille avec les entêtes similaires à mes factures. J'ai donc créée une macro pour chaque jour de la semaine en indiquant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub rangecopy()
 
Range("I2").Copy Feuille26.Range("C13:E13")   // I2 corresponds au numéro de commande la facture du lundi de la semaine 1 (Feuille1)  et qui va se coller dans la première ligne de mon tableau récapitulatif de fin de mois
 
Range("I1").Copy Feuille26.Range("A13:B13") // I1 corresponds à la date de commande de la facture du lundi de la semaine 1 (Feuille1)  et qui va se coller dans la premiere ligne de mon tableau récapitulatif de fin de mois
 
Range("J43").Copy Feuille26.Range("H13:I13") // J43 corresponds au montant de la facture du lundi de la semaine 1 (Feuille1)  et qui va se coller dans la premiere ligne de mon tableau récapitulatif de fin de mois
 
End Sub

Ma question est simple comment dans ma macro je peux ajouter une règle qui fait que si il n'y a pas de facture le lundi alors la facture du mardi remonte d'un cran dans le récapitulatif du mois dans ma feuille 26 et ainsi de suite pour chaque jour du mois.

PS chaque facture est envoyé séparément sur la Feuille26 par un bouton automatiser.

Merci de votre aide !!

[Invité]

Bonjour,

Il vous suffit de tester la dernière ligne de votre onglet Feuille26 et d'incrémenter la ligne de 1, en admettant que le jour de la semaine soit saisi en même temps que la nouvelle ligne.

Sauf votre respect, de mon point de vue, c'est totalement ingérable si vous devez contrôler efficacement vos facturations à partir de ces fichiers.
Pour ma part, j'alimente un seul journal des facturations par exercice comptable depuis mon outil de devis-facturations. Si j'avais besoin d'une situation par client et par mois, je n'aurais qu'à filtrer sur ce journal, le nom et la date puis exporter ou imprimer le cas échéant.

[Transitoire]

Bonjour,
Je n'arrive pas à comprendre ce que vous voulez faire???
Ca me semble incompréhensible. Si vous voulez inscrire jour après jour les factures dans votre classeur 26, je vois pas de problèmes.
Si le lundi vous avez 4 factures, eles viendront se mettre l'une au dessous de l'autre.
Si le mardi vous n'avez rien, le mercredi les factures qui viendront se mettront normalement en dessous des autres dans la base de données. A moins que vous n'utilisiez des systèmes figés. La c'est une usine à gaz.
Cordialement

[pierro_TPF]

Bonsoir à tous,

Je suis à la recherche depuis quelques jours d'une solution pour une programmation macro un peu complexe. Je souhaite créée un fichier pour mon usage personnel afin de gérer les factures de mes clients sur un classeur séparé pour chaque jours (sans les weekends) soit 25 classeurs avec mon entête de facture et la description des produits prix numéro de commande etc etc. J'ai créée un classeur en toute fin classeur 26 afin de récapituler mes factures (dates, numéro de commande, montant) et ainsi obtenir un bilan facture pour le mois réunis sur une seule et même feuille avec les entêtes similaires à mes factures. J'ai donc créée une macro pour chaque jour de la semaine en indiquant:



Merci de votre aide !!

Bonjour,

Est-ce que vous parler bien de classeur différent ?, ou est-ce que ce sont des onglets dans le même classeur ?

Si c'est ce que je pense, vous avez 25 onglet "feuilleX" pour chaque jour de facturation, et un onglet "feuille26" pour le récapitulatif du mois, c'est juste ?

Alors du coup, je nommerais mes onglets uniquement avec le numéro de jour, de 1 à 25, et l'onglet 26 total_mensuel, et je ferai la macro suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Sub importer_mensuel()
 
Application.ScreenUpdating = False
 
Dim numero_jour As Byte
Dim ligne As Byte
 
ligne = 13
numero_jour = 1
 
colonne_A = 1
colonne_C = 3
colonne_H = 8
 
While numero_jour < 26
 
Sheets(numero_jour).Select
 
If (Range("I2") > "0") Then
 
Range("I2").Select
Selection.Copy
Sheets("total_mensuel").Select
 
Range(Cells(ligne, colonne_C), Cells(ligne, colonne_C)).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets(numero_jour).Select
Range("I1").Select
Selection.Copy
Sheets("total_mensuel").Select
 
Range(Cells(ligne, colonne_A), Cells(ligne, colonne_A)).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets(numero_jour).Select
Range("J43").Select
Selection.Copy
Sheets("total_mensuel").Select
 
Range(Cells(ligne, colonne_H), Cells(ligne, colonne_H)).Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
numero_jour = numero_jour + 1
ligne = ligne + 1
Else
 
numero_jour = numero_jour + 1
 
 
End If
 
Wend
 
End Sub

c'est peut être a adapter en fonction de ton classeur