Discussion :

[logue_in]

Bonjour,


est-il possible de faire une recherche matricielle de ce type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.FormulaArray = _
        "=SUM((R[-17]C[-1]=R[-14]C[1]:R[-5]C[1])*(R[-17]C=R[-17]C[2]:R[-17]C[25])*(R[-17]C[1]=R[-16]C[2]:R[-16]C[25])*(R[-14]C[2]:R[-5]C[25]))"

Mais en y intégrant des variables: par exemple à la place de R[-17]C[-1], mettre combobox1.value?

[Menhir]

La propriété Formula (et ses cousines) sont des données de type String.
A ce titre, elles peuvent se manipuler comme n'importe quelle chaîne de caractères.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
election.FormulaArray = _
"=SUM((R[-17]C[-1]=R[-14]C[1]:R[-5]C[1])*(R[-17]C=R[-17]C[2]:R[-17]C[25])*(" & combobox1.value & "=R[-16]C[2]:R[-16]C[25])*(R[-14]C[2]:R[-5]C[25]))"

[logue_in]

Merci Menhir,

Il me manquait la bonne syntaxe. "&"
comment faire pour afficher le résultat dans une cellule?
J'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
range(F9").Select
Selection.FormulaArray = _
"=SUM((R[-17]C[-1]=R[-14]C[1]:R[-5]C[1])*(R[-17]C=R[-17]C[2]:R[-17]C[25])*(" & combobox1.value & "=R[-16]C[2]:R[-16]C[25])*(R[-14]C[2]:R[-5]C[25]))"

Mais rien ne s'affiche... et si je test la formule sous excel, le calcul se fait bien

[Menhir]

comment faire pour afficher le résultat dans une cellule?

Je ne comprends pas ta question.
Avec Formula, tu places une formule dans une cellule. Elle se comporte ensuite comme n'importe quelle autre formule.

J'ai essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
range(F9").Select
Selection.FormulaArray = _
"=SUM((R[-17]C[-1]=R[-14]C[1]:R[-5]C[1])*(R[-17]C=R[-17]C[2]:R[-17]C[25])*(" & combobox1.value & "=R[-16]C[2]:R[-16]C[25])*(R[-14]C[2]:R[-5]C[25]))"

Un conseil : dans la majorité des cas, l'usage de Select/Selection ne sert à rien.
Par exemple, ton code peut s'écrire plus simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
range(F9").FormulaArray = _
"=SUM((R[-17]C[-1]=R[-14]C[1]:R[-5]C[1])*(R[-17]C=R[-17]C[2]:R[-17]C[25])*(" & combobox1.value & "=R[-16]C[2]:R[-16]C[25])*(R[-14]C[2]:R[-5]C[25]))"

Mais rien ne s'affiche... et si je test la formule sous excel, le calcul se fait bien

N'aurais-tu pas mis la feuille en recalcul manuel ?
Sinon, compare les deux formules. Si elles n'ont pas le même résultat, c'est qu'elle ont une différence.

[logue_in]

J'ai trouvé, en fait il fallait tout simplement que je double les guillemets des éléments de la ComboBox. pour que la formule fonctionne!

Merci encore!