[RESOLU par ChTi160-Lone-wolf-SI...]:RECHERCHE par combobox

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir a tous et a toutes
SVP chers membres
Si vous pouvez m'aider a finir ce fichier
Dans cet UserForm1 j'ai un ComboBox1 ..je veux afficher dans cette ListBox1 les cordonnees de Feuil1 ça depent de la date choisit dans ComboBox1
Par exemple si je choisis dans ComboBox1 la date 10/03/2016 ..alors sera affiche dans ListBox1 :
4785478,70 mada9
Et dans TextBox1 sera affiche la somme de toute la colonne D
Merci beaucoup d'avance pour l'aide
Tres amicalement
MADA BLACK

 

[ChTi160]

Re : RECHERCHE par combobox

Bonjour MADA
Bonjour le Fil,Le Forum

Une approche ,mais pas sur d'avoir tout compris Lol

Le Fichier : Regarde la pièce jointe ComboBox(2) MADAGASCAR.xlsm

Bonne journée
Amicalement
Jean Marie

 

[MADAGASCAR]

Re : RECHERCHE par combobox

Bonjour ChTi160
Merci beaucoup beaucoup pour votre fichier et votre aide
Tres gentil de votre part
C'est presque ce que je veux avoir
Simplement cher gentelman j'ai une petite remarque ..voir svp l'image au dessous ..les chiffres dans Feuil1 et dans la ListBox1 ne sont pas les memes ..
Merci beaucoup d'avance pour corriger ce probleme
Cordialement
MADA BLACK

 

[Lone-wolf]

Re : RECHERCHE par combobox

I MADA, bonjour ChTi


@MADA, il faut juste enlever les 0 qui sont dans Public Function: .AddItem Format(T(L, 4), "###,##")

Pour la somme dans la Textbox2 tu rajoute Public Total As Long dans le module.


Total = application.Sum(Sheets("Feuil1"). Range("d5:d10000"))

Textbox2 = Total




A+

 

[MADAGASCAR]

Re : RECHERCHE par combobox

Bonjour Lone-wolf
Tres heureux que vous etes ici avec moi
Merci cher ami de pour votre correction
Mais regardez svp .. j'ai changé dans public function .. mais regardez svp l'image :
4785478,70 n'est pas egal à 478,547,870 ces deux chiffres ne sont pas les memes (virgule 70 ce n'est pas virgule 870 )
les chiffres dans Feuil1 et les chiffres affiches dans la ListBox1 ne sont pas identiques
Tres cordialement
MADA

 

[Lone-wolf]

Re : RECHERCHE par combobox

I,


For L = 0 To .ListCount - 1
S = CCur(.List(L, 0))
TT_S = TT_S + S
Next
End With
.TextBox2 = Format(TT_S, "###,##0.00") et ceux-la, tu n'a pas envie de les enlevés??
End With



A+

 

[MADAGASCAR]

Re : RECHERCHE par combobox

Bonjour Lone-wolf
Merci beaucoup pour l'aide
J'ai change dans le code comme vous m'avez dites mais le probleme reste
Regardez svp le code dans le fichier ci joint
Cordialement
MADA

 

[Lone-wolf]

Re : RECHERCHE par combobox

Re MADA,


voilà c'est corrigé, mais il faut éviter de mettre les virgules pour l'argent, avant impossible de faire la somme pour la TextBox2; maintenant c'est ok. Dis mois ce que t'en pense.




A+

 

[Si...]

Re : RECHERCHE par combobox

salut

Sans s’enquiquiner avec les formats ...

 

[MADAGASCAR]

Re : RECHERCHE par combobox

Bonjour Lone-wolf
Bonjour SI...
Cher Lone-wolf .. tres cher gentelman Lone-wolf ..merci beaucoup beaucoup pour votre super suivi de ce sujet .. plutot de mes sujets
Lone-wolf .. merci pour votre gentillesse .. vous etes la personne qui nous oblige de la respecter
Simplement dans votre fichier pourquoi ces zeros avec les chiffres ..
De toute façon c'est bien resolu par le fichier de super ( SI...)
Merci 1000 fois gentelman SI...
Tres gentil de votre part
C'est parfaitement resolu
Cordialement
MADA BLACK

 

[Lone-wolf]

Re : [RESOLU par ChTi160-Lone-wolf-SI...]:RECHERCHE par combobox

Bonsoir Si...

@MADA:

pourquoi ces zeros avec les chiffres ..

Ce ne sont pas des chiffres "0.00.-", c'est juste un point et un trait.
Et c'est mon format monetaire preféré.




A+

 

[MADAGASCAR]

Re : [RESOLU par ChTi160-Lone-wolf-SI...]:RECHERCHE par combobox

Bonsoir Si...

@MADA:

Ce ne sont pas des chiffres "0.00.-", c'est juste un point et un trait.
Et c'est mon format monetaire preféré.




A+

Merci et BRAVO cher Lone-wolf