Discussion :

[sterling20]

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

Code :

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

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.

[Menhir]

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

Code :

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

1
2
Selection.Copy
Selection.PasteSpecial(xlPasteValues)

[RyuAutodidacte]

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 :

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

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

Si on teste Evaluate :

Code :

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

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 :

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

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 :

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

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 :

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

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

[RyuAutodidacte]

re,

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

Code :

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

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 :

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

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

[RyuAutodidacte]

@ Nagel Tha

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 :

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

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 :

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

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

on obtiendra 35

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

Code :

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

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

[sterling20]

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