Redif DEMO 1000 @+Thierry USF_Collection_Unique
Bonsoir Gix, le Forum
Bon j'ai un peu travaillé sur ton (mon ! lol) fichier...
Heureusement c'est moins compliqué que ce que j'avais imaginé à prime abord.
Donc voilà une version 'Gadgetisée' de cette Démo et adaptée à ton inversion de Colonne Date Facture / Numéro de Facture...
En fait je passe par un Tableau Intermediare 'TabPlageSpecial sur sur ma Plage 'TabPlage' initiale, en connaissant les dimensions je peux le construire dans le même ordre qu'une Plage normale : Tab(Rows / Columns) mais, attention, il est en Base Zéro tout de même, d'où pas mal de changement dans le Code...
J'ai tenté au mieux d'alimenter tes TextBox 'BoxSommeClientHT' et 'BoxSommeMoisHT' mais le Cumul du Mois, j'ai eu un doute, donc j'ai fait le Cumul HT du Client Sélectionné sur le Mois Sélectionné... (
ce qui me semble logique)
Ce n'est donc pas le cumul de tous les Montant HT pour le mois sélectionné pour tous les Clients, si jamais ce devait être le cas tu peux modifier les Conditions dans la Private Sub TheGixGadgetor ! Il suffit de fermer le End If de cette manière :
For i = 0 To UBound(TabPlageSpecial, 1)
If .List(.ListIndex, 1) = TabPlageSpecial(i, 1) Then
CumulClient = CumulClient + TabPlageSpecial(i, 2)
End If
StringMonthList = Month(CDate(.List(.ListIndex, 0))) & Year(CDate(.List(.ListIndex, 0)))
StringMonthTablo = Month(CDate(TabPlageSpecial(i, 0))) & Year(CDate(TabPlageSpecial(i, 0)))
If StringMonthList = StringMonthTablo Then
CumulClientMonth = CumulClientMonth + TabPlageSpecial(i, 2)
End If
Next
Sinon j'ai aussi changé la présentation de la TextBox 'BoxDateFc' pour montrer le Mois Sélectionné (avri-2005) et pas la Date, puisque ça ne rimerait en rien avec les Cumuls.
Les Labels 'LblDate' et 'LblJoyStick' sont synchronisées pour correspondre à la nouvelle 'Géométrie' de ta Base...
Voilà, je pense que tout fonctionne, mais il est clair que si tu saisis n'importe quoi dans la Tableau (
surtout pour les Montants), il n'y a pas de gestion d'erreur, ce qu'il faudra probablement prévoir, mais bon !
J'espère que tu seras content.
Bonne Pâques
[ol]@+Thierry[/ol] [file name=USF_Collection_Unique_Version_Remix.zip size=49409]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/USF_Collection_Unique_Version_Remix.zip[/file]