Statistiques à l'aide d'un userform

lapix

XLDnaute Occasionnel

• 16 Novembre 2006

• #2

Re : Statistiques à l'aide d'un userform

Bonjour,

Ci joint une proposition avec juste une formule

Bonne journée

sebgo à dit:

Bonjour tout le monde,
Je cherche à réaliser des statistiques de ventes sur un formulaire. J'ai conçu le Userform mais je manque d' inspiration en VBA pour sa concrétisation. Je suis un exemple allégé, si quelqu'un peut m'aider!
bon appetit!

Cliquez pour agrandir...

 

Pièces jointes

• Stat_Abonnements_1.zip

  14.5 KB · Affichages: 67

Vote positif 0 Vote négatif

S

sebgo

XLDnaute Occasionnel

• 16 Novembre 2006

• #3

Re : Statistiques à l'aide d'un userform

Bonjour Lapix,
Merci pour ta réponse. En fait, j'ai réalisé un formulaire et je cherche une solution en VBA.
A+

 

Vote positif 0 Vote négatif

lapix

XLDnaute Occasionnel

• 16 Novembre 2006

• #4

Re : Statistiques à l'aide d'un userform

Ok

Tu pourrais expliquer ce que tu veux qu'il se passe quand tu cliques le bouton calculer ?

 

Vote positif 0 Vote négatif

S

sebgo

XLDnaute Occasionnel

• 16 Novembre 2006

• #5

Re : Statistiques à l'aide d'un userform

Ok,
On saisit la date de début et la date de fin dans respectivement textbox1 et textbox2.Le rôle du bouton "calculer" c'est de considérer les deux dates et de déterminer le nombre de "kit" repertoriés dans la colonne F et la somme (pour le montant) correspondante dans la colonne G . Ceci est valable également pour les "pack". Autre précision; il n'y aura que ces deux valeurs dans la plage F4:F65536.
A+

 

Vote positif 0 Vote négatif

lapix

XLDnaute Occasionnel

• 16 Novembre 2006

• #6

Re : Statistiques à l'aide d'un userform

Une proposition sur la base de ton USF

Dis moi si ca te convient

sebgo à dit:

Ok,
On saisit la date de début et la date de fin dans respectivement textbox1 et textbox2.Le rôle du bouton "calculer" c'est de considérer les deux dates et de déterminer le nombre de "kit" repertoriés dans la colonne F et la somme (pour le montant) correspondante dans la colonne G . Ceci est valable également pour les "pack". Autre précision; il n'y aura que ces deux valeurs dans la plage F4:F65536.
A+

Cliquez pour agrandir...

 

Pièces jointes

• Stat_Abonnements_2.zip

  16.6 KB · Affichages: 95

Vote positif 0 Vote négatif

S

sebgo

XLDnaute Occasionnel

• 17 Novembre 2006

• #7

Re : Statistiques à l'aide d'un userform

Bonjour Lapix,
Depuis hier 18h09 que je ne me suis pas connecté.
C'est impéccable ta solution. C'est exactement ce que je voulais. Il faut que je cherche d'abord à le comprendre avant de l'adapter à ma situation. Je crois que j'accuse des lacunes dans les variables tableau. il faut que je m'y mette.
Encore merci pour ton aide et bonne continuation
Salut.

 

Vote positif 0 Vote négatif

lapix

XLDnaute Occasionnel

• 17 Novembre 2006

• #8

Re : Statistiques à l'aide d'un userform

Bonjour,

D'abord les dates : au format dd/mm/yy au moins

Pour les tableaux, dans l'exemples je dis :

tu prends la plge x et tu la mets dans un tableau

Tableau(x,y) veut dire la xieme ligne et la yieme colonne
si tu as range("A1:C3"), tu auras un tableau de 3 lignes et 3 colonnes
Si tu veux y recuperer la valeur de B2, ce sera tableau(2,2) soit 2ieme ligne et 2ieme colonne

Esperant que ca t'aidera un peu

 

Vote positif 0 Vote négatif

S

sebgo

XLDnaute Occasionnel

• 17 Novembre 2006

• #9

Re : Statistiques à l'aide d'un userform

Re-bonjour,

Explications limpides. Mais Je bute sur l'initialisation du formulaire. En fait pour faire un peu pro je voulais afficher les dates de début et de fin (figurant sur la feuille) ainsi que les valeurs des autres champs à l'initialisation du formulaire malheureusement je bute sur les dates. Si tu peux me donner un coup de main de ce côté là.
A+

 

Vote positif 0 Vote négatif

lapix

XLDnaute Occasionnel

• 17 Novembre 2006

• #10

Re : Statistiques à l'aide d'un userform

Bonjour,

Tu peux coller ce code dans le code de ton USF :

Private Sub UserForm_Activate()
Me.TextBox1.Text = Format(Excel.WorksheetFunction.Min(Sheets("feuil1").Range("B5:B" & Sheets("feuil1").Range("B65536").End(xlUp).Row)), "dd/mm/yy")
Me.TextBox2.Text = Format(Excel.WorksheetFunction.Max(Sheets("feuil1").Range("B5:B" & Sheets("feuil1").Range("B65536").End(xlUp).Row)), "dd/mm/yy")
End Sub

 

Vote positif 0 Vote négatif

S

sebgo

XLDnaute Occasionnel

• 17 Novembre 2006

• #11

Re : Statistiques à l'aide d'un userform

Re,
Thank's. Correct. Rien à dire.
Bon Week End.

 

Vote positif 0 Vote négatif