Evaluation de la fonction match

Bonjour à tous,
Dans le bout de code suivant j'utilise la fonction match pour trouver une ligne:

Code:

---

Selection.FormulaArray = "=MATCH(1,(C[3]=""" & der2 & """)*(C[" & aholou - 1 & "]=" & Top & "),0)"

---

ça marche parfaitement mais je souhaiterais utiliser la fonction evaluate (ou toute autre fonction) pour ne pas avoir à écrire de formule sur ma feuille de calcul. Pouvez m'aider ?

merci d'avance.

Solution simple : Mettre ces deux lignes juste après le code ci-dessus :

Code:

---

1 2	Selection.Copy Selection.PasteSpecial(xlPasteValues)

---

Bonsoir,

Il me semble que Evaluate ne marche pas directement avec R1C1 (Vaut mieux utiliser la formule en Anglais qd cela est possible - Il me semble que R1C1 à ces avantages aussi mais je n'ai pas eu à le faire jusqu'à présent).
je vais répondre par un exemple :

	A	B
1	2	5
2
3		=A1+B1

La formule en R1C1 donnerai ceci (je fais tout dans la fenêtre d'exécution pour l'exemple) :

Code:

---

Debug.Print Selection.FormulaR1C1 ' Résultat => =R[-2]C[-1]+R[-2]C

---

Si on teste Evaluate :

Code:

---

Debug.Print Evaluate("R[-2]C[-1]+R[-2]C") ' Résultat => Erreur 2015

---

Alors que une bonne partie d'entre nous savent que cela marche avec la formule anglaise (l'avantage ca marche à l'international et compréhensible par tout le monde) :

Code:

---

1 2	Debug.Print Evaluate("A1+B1") ' Résultat => 7

---

Ce que l'on peut faire alors c'est convertir la formule R1C1 en formule XL tel qu'on a l'habitude de voir :

Code:

---

1 2	Debug.Print Application.ConvertFormula("R[-2]C[-1]+R[-2]C", xlR1C1, xlA1) ' Résultat => A1+B1

---

on a plus qu'à appliquer Evaluate :

Code:

---

1 2	Debug.Print Evaluate(Application.ConvertFormula("R[-2]C[-1]+R[-2]C", xlR1C1, xlA1)) ' Résultat =>7

---

Edit : j'ai validé par mégarde avant de finaliser le post je le re-édit

re,

donc (voir mon post ci-dessus) si la formule est bien écrite avec les variables, cela devrait s'écrire comme cela :

Code:

---

Selection.Value = Evaluate(Application.ConvertFormula("MATCH(1,(C[3]=""" & der2 & """)*(C[" & aholou - 1 & "]=" & Top & "),0)", xlR1C1, xlA1))

---

Edit : Maintenant si c'est pour mettre la formule dans une plage on peut faire par exemple :

Code:

---

1 2	Range("B3:B10").FormulaArray = "=Mettre_la_Formule_Correspondante" Range("B3:B10").Value = Range("B3:B10").Value

---

@ Nagel Tha

Citation:

---

Ryu dans la dernière ligne de ton second code, tu affectes la valeur du champ de la plage à elle-même. …

---

Cela permet de garder que les valeurs des résultats données par les formules se trouvant dans les cellules et donc par conséquent
de se débarrasser des formules dont on a plus besoin (qd le cas où la volonté de procéder ainsi est adéquate et s'y prête - la feuille excel du coup fait moins de calcul, c'est pratique quand tu as des données conséquentes …
où que les calculs ne sont pas amenés à être modifié à tout bout de de champ par exemple , …)
Exemple simple en test à faire :

1	2	=A1+B1
2	3	=A2+B2
3	4	=A3+B3
4	5	=A4+B4
5	6	=A5+B5

Code:

---

1 2	Range("C1:C5").Value = Range("C1:C5").Value ' copie les valeurs de C1 à C5 par les valeurs (données par les formules) qui sont de C1 à C5

---

Regarde avant tu as toutes les formules - puis après tu n'as gardé que les valeurs des formules
De cette façon on passe en direct et on évite tout ce qui est Select, Selection …

---

PS : en effet tu as raison c'est une formule Matricielle FormulaArray
je vais revoir cela tranquillement car je l'ai traité en R1C1. (par contre le R1C1 permet de faire des formules matricielles il me semble ainsi que Evaluate)
Quoi qu'il en soit pour qu'une formule R1C1 soit pris en compte par Evaluate (A moins qu'il existe une façon d'écrire que je connais pas encore) il faut que la formule R1C1 soit convertit.

Je re plus tard (peut être pas ce soir) afin de revoir la copie

---

Edit : Modif

En fait Evaluate interprète les expressions dont les formules Matricielles

Si on reprend l'exemple ci-dessus des différentes sommes avec Ax + Bx et que l'on veut faire une formule matricielle du total que l'on met en E2 par exemple :

Code:

---

{=SOMME(A1:A5+B1:B5)}

---

on obtiendra 35

Il en est de même avec l'utilisation d'Evaluate en VBA

Code:

---

1 2	Debug.Print Evaluate("SUM(A1:A5+B1:B5)") ' Résultat => 35

---

merci à tous pour vos interventions.
RyuAutodidacte la solution que tu m'as proposée marche parfaitement.Merci

Bonjour,

@sterling20 : De rien, ravi de t'avoir aidé.
PS : pour info, dans les discussions (celle-ci et celle que que tu feras à l'avenir), si des réponses t'ont été utiles et ton aidé tu peut, si tu le souhaites, y mettre un pouce vert :plusser: (se trouvant en bas à droite des posts).

@Nagel Tha : Est ce que j'ai bien répondu à ta question ?

Bonsoir,

Citation:

---

un tel résultat peut également être obtenu par un collage spécial (en ne collant que les valeurs)

---

oui voir le post ci-desssus de Menhir (que je salue :coucou:)

Citation:

---

rendre plus compact le code

---

oui et aussi => "De cette façon on passe en direct et on évite tout ce qui est Select, Selection …" => Optimisation du code/plus rapide

Citation:

---

Cependant si les plages sont de tailles différentes cela pourrait poser problème (même genre d'erreur que la copie entre des plages de tailles différentes)
…
En fait affecter des plages différentes ne génère pas d'erreur. Je confirme par ailleurs que j'avais bien compris pour ceux qui aimeraient utiliser cela c'est donc un moyen de remplacer un Paste spécial et notamment le collage des valeurs.

---

Avoir une plage identique est fortement conseillé, de même taille et de même sens quand c'est en ligne (hauteur ou largeur)
Sur l'exemple que j'ai donné en post 7 fait ces 3 tests et tu verras :

Code:

---

1 2 3 4 5 6 7

Range("C1:C4").Value = Range("A1:C1").Value     Range("C1:C5").Value = Range("C1:C3").Value     Range("C1:C3").Value = Range("C1:C5").Value

---

Bonsoir,

Citation:

---

un tel résultat peut également être obtenu par un collage spécial (en ne collant que les valeurs)

---

Mais dans ce cas les données passent par un élément extérieur au programme : le presse papier !!!

Parfois ça peut poser des problèmes, alors qu'avec MaPlage.Value = MaPlage.Value comme l'a dit RyuAutodidacte (que je salue) :

Citation:

---

De cette façon on passe en direct ...

---

c'est non seulement plus compact et plus rapide mais surtout c'est plus sûr.

Re,

Citation:

---

Cela dit cela ne pose problème que pour les plages de très grandes dimensions, non ?

---

Tu oublies que Windows est multitâches, et que d'autres programmes peuvent utiliser le presse papier.