resultat formule dans textbox

[marcello06]

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]

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]

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

Mille excuses!!!


A bientôt messieurs

 

[_Thierry]

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]

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]

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!