Formule SI imbriquées dans VBA Macro Excel

Version imprimable

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:

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 !!

12/02/2018, 03h19
Invité

Citation:

Envoyé par joelmesrine

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.
16/02/2018, 18h21
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
8-)

Citation:

Envoyé par 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:

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:

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