Résultat formule dans TextBox

[Bruce68]

Bonsoir à tous

Comment Transformer ces Formules en VBA et récupérer le résultat dans un TextBox:

{(SOMME(SI(J3:BB3<30000;J3:BB3;0))}

NB.SI(J3:BB3;"T")

Le N° de ligne doit etre une Variable.

Je vous remercie de votre aide

 

[ledzepfred]

Re : Résultat formule dans TextBox

Bonjour Bruce,

utilises l'enregistreur de macros, entre dans la cellule contenant la formule à transcoder en vba et tapes sur ENTER (si c'est une matricielle, valides par CTRL SHIFT ENTER), arrêtes ensuite l'enregistreur et modifie le code fourni en pour l'affecter à ton textbox

Pour la fonction NB.SI, l'enregistreur de macros donne le code suivant

 ActiveCell.FormulaR1C1 = "=COUNTIF(R3C10:R3C54,""T"")"

(en reference relatives bien sur sinon cela dépend de l'adresse de la cellule où la formule a été validée!)

Pour pouvoir utiliser cette formule de façon à renvoyer la valeur dans un textbox on traduit comme suit :

TextBox1.Value = Application.WorksheetFunction.CountIf(Range(Cells(3, 10), Cells(3, 53)), "T")

Ne pas oublier de remplacer le n° de ligne par ta variable

Pour la matricielle je te laisse chercher un peu

A+

 

[Excel-lent]

Re : Résultat formule dans TextBox

Bonsoir le fil,

{(SOMME(SI(J3:BB3<30000;J3:BB3;0))}

Pour la matricielle je te laisse chercher un peu

Perso, étant donné qu'il n'y a qu'une seule condition, au lieu d'utiliser une formule matriciel (gourmande en mémoire vive), j'aurais utilisé une fonction "normal"! Plus précisément la fonction : SOMME.SI()

Soit encore plus précisément :

=SOMME.SI(J3:BB3;"<30000";J3:BB3)

De plus, Bruce68, cela te rendra la traduction en VBA plus facile 😉

Si tu fais comme conseillé par Ledzepfred, tu constateras que la fonction SOMME.SI() s'écrit en VBA : SUMIF

Bon test.

En cas de soucis, n'hésite pas à demander plus d'information, mais normalement tu devrais t'en sortir avec tout ça 😉

Bonne fin de soirée à tous

 

[Bruce68]

Re : Résultat formule dans TextBox

Bonjour excel-lent,Ledzepfred et le forum
Je vous remercie cela va me permettre d'aller un peut plus loin dans mes recherche.
Bonne journée à tous