resultat formule dans textbox

marcello06 · 9 Août 2005

bonjour

En m'inspirant d'un userform de thierry (que je salue au passage)
je souhaite à partir d'un tableau de stat faire apparaitre dans un userform en fonction d'un nom et d'un mois selectionné le résultat de ma formule dans le textbox

je vous joint en copie le fichier le résultat me donne la valeur True.

je patoge dans la semoule !!!!
help me please.

[file name=prime_20050809071640.zip size=16145]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/prime_20050809071640.zip[/file]

Claudy · 9 Août 2005

Bonjour...
ton fichier corrigé!
A+
claudy [file name=prime_20050809071640_20050809092246.zip size=17918]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/prime_20050809071640_20050809092246.zip[/file]

marcello06 · 9 Août 2005

merci beaucoup excuse moi pour le retard mais je rentre a peine

Mille excuses!!!

A bientôt messieurs

_Thierry · 10 Août 2005

Bonsoir Marcello, Claudy

Claudy, je n'ai pas très bien compris ta modification sur le fichier de Marcello (?)

Voilà ce que j'ai compris de ce que notre ami souhaitait obtenir:

Private Sub CommandButton4_Click()
Dim Formule As String
Dim name As String
Dim mese As String

name = ComboBox1.Value
mese = TextBox2.Value

Formule = '=SUMPRODUCT((prim!$E$2:$E$799=''' & name & ''')*(MONTH(prim!$B$2:$B$799)=' & mese & ')*prim!$D$2:$D$799)'

With Worksheets('Stat')
.Range('I1').Formula = Formule
Calculate
textbox1.Value = .Range('I1')
End With

End Sub

Et en Plus Direct sans avoir besoin de passer par une Cellule :

Private Sub CommandButton4_Click()
Dim name As String
Dim mese As String

name = ComboBox1.Value
mese = TextBox2.Value

textbox1 = Evaluate('=SUMPRODUCT((prim!$E$2:$E$799=''' & name & ''')*(MONTH(prim!$B$2:$B$799)=' & mese & ')*prim!$D$2:$D$799)')

End Sub

Bonne Nuit
[ol]@+Thierry[/ol]

Message édité par: _Thierry, à: 10/08/2005 01:24

marcello06 · 10 Août 2005

Je prend super merci les gars
En effet le but est atteint. le résultat est parfais

je vous souhaite une bonne journnée à vous

@+

:woohoo: Merci Claudy et Thierry pour votre soutien encore et encore

Claudy · 10 Août 2005

Bonjour,
c'est vrai que ta deuxième solution me plait bien, bravo

En fait avant de proposer le fichier corrigé, j'ai patauger un peu...alors j'en ai fait du bricolage!

resultat formule dans textbox

marcello06

XLDnaute Occasionnel

Pièces jointes

Claudy

XLDnaute Accro

Pièces jointes

marcello06

XLDnaute Occasionnel

_Thierry

XLDnaute Barbatruc

marcello06

XLDnaute Occasionnel

Claudy

XLDnaute Accro

Discussions similaires