listing de factures selon une période donnée

[adinnn]

Bonjour à tous,

voilà, j'ai vraiment besoin de votre aide SVP.

J'ai un fichier "modelefacture.xls"(voir pièce jointe) ayant 2 feuilles "état comptes" et "synthese". Dans la feuille "état comptes" je voudrais afficher tous les factures de la feuille synthese du client en G9 et ce pour une période donnée(2 dates en c9 et c10). Ces factures devront être affichées en B15-B29 de la feuille "état comptes".

J'ai tenté l'expérience avec un tableau croisé dynamique mais de cette facon je trouve que je n'ai pas assez de contrôle sur les données par la suite... et la mise en page ne me convient pas.

Est-ce que je dois utiliser une fonction index ou recherche?

Merci de votre précieux temps.

 

[hoerwind]

Re : listing de factures selon une période donnée

Bonjour,

Proposition par formule non matricielle, mais avec une colonne intermédiaire (A) en feuille synthese.
Voir la pièce jointe.

 

[adinnn]

Re : listing de factures selon une période donnée

WOW, je suis impressionné! c'est en plein ce que je voulais, tu as fait ma journée. Un gros merci!

 

[adinnn]

Re : listing de factures selon une période donnée

RE, j'essaie de mettre ton code pour qu'il soit fonctionnel en colonne L au lieu de A mais ça ne semble pas fonctionner... J'oublie quelques chose?

 

[adinnn]

Re : listing de factures selon une période donnée

Pourtant en B15 de Etat de compte :

=SI(LIGNES(1:$1)>MAX(synthese!$L$2:$L$1000);"";RECHERCHEV(LIGNES(1:$1);synthese!$L$2:L$1000;12;0))

et dans la feuille synthese en L2 etc...

=SI(ET(J2='Etat comptes'!G$9;H2>='Etat comptes'!C$9;H2<='Etat comptes'!C$10);MAX(L$1:L1)+1;"")

une idée?

 

[hoerwind]

Re : listing de factures selon une période donnée

Re,

Sans un extrait de ton fichier sous les yeux, pas sur à 100 % !
Pour la première formule il ne me semble pas possible de renvoyer la valeur de la 12ème colonne d'une plage qui n'en contient qu'une seule !

Essaie ceci :

=SI(LIGNES(1:$1)>MAX(synthese!$L$2:$L$1000);"";RECHERCHEV(LIGNES(1:$1);synthese!$L$2:$W$1000;12;0))

 

[adinnn]

Re : listing de factures selon une période donnée

Re,

Sans un extrait de ton fichier sous les yeux, pas sur à 100 % !
Pour la première formule il ne me semble pas possible de renvoyer la valeur de la 12ème colonne d'une plage qui n'en contient qu'une seule !

Essaie ceci :

=SI(LIGNES(1:$1)>MAX(synthese!$L$2:$L$1000);"";RECHERCHEV(LIGNES(1:$1);synthese!$L$2:$W$1000;12;0))

Bonjour,

j'ai décidé en fin de compte d'ajouter le tout dans la colonne A. Par contre mon problème maintenant est que lorsque j'appuie sur le bouton save/print de la feuille "facture de service", l'enregistrement de données dans la feuille "synthese" fait par le code:

Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
'enregistrement dans Base pour pointage annee
'ici je repère la dernière ligne vide pour la Collections des données

L = Sheets("synthese").Range("a65536").End(xlUp).Row + 1

'Pour voir se qui se passe je bascule sur la feuille
Sheets("synthese").Activate
'Ici c'est le report de la saisie dans la feuille
With Sheets("synthese")
.Range("b" & L).Value = Worksheets("facture de service").Range("E2")  '#Facture
.Range("c" & L).Value = Worksheets("facture de service").Range("E56") 'Transport
.Range("d" & L).Value = Worksheets("facture de service").Range("E55") 'Pièces
.Range("e" & L).Value = Worksheets("facture de service").Range("E57") 'Sous-total
.Range("f" & L).Value = Worksheets("facture de service").Range("E58") 'TPS
.Range("g" & L).Value = Worksheets("facture de service").Range("E59") 'TVQ
.Range("h" & L).Value = Worksheets("facture de service").Range("E61") 'Total
.Range("i" & L).Value = Worksheets("facture de service").Range("D2")  'Date
.Range("k" & L).Value = Worksheets("facture de service").Range("B11") 'Client
End With

se fait seulement à la ligne 53 puisqu'il y a du code dans la colonne A.

Des idées pour bypasser ça!

Merci!

 

[adinnn]

Re : listing de factures selon une période donnée

Ok trop stupide comme question, j'ai rien dit! DSL