Transformer Formule VBA en Formule normale dans cellule

ROGER2327 à dit:

Bonjour Tonino7

Code:

[COLOR="DarkSlateGray"][B]Range("A1").FormulaR1C1 = "=MATCH(""chien"",animaux,0)+MATCH(""chat"",animaux,0)"[/B][/COLOR]

peut-être ?​

ROGER2327
#3450

20 Floréal An CCXVIII
2010-W18-7T02:11:45Z

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour Tonino7, ROGER2327, le fil, le forum


Comme ceci, cela fonctionne

Code:

Sub a()
Dim t
t = Array("chien", "chat","lapin","tortue","staple1600")
Range("A1").FormulaR1C1 = _
"=MATCH(" & Chr(34) & CStr(t(0)) & Chr(34) & ",animaux,0)+MATCH(" & Chr(34) & CStr(t(1)) & Chr(34) & ",animaux,0)"
End Sub

EDITION: une variante plus lisible (et à mon gout) (+ commentaires)

Code:

Sub a_1()
[COLOR=SeaGreen]'Déclarations[/COLOR]
Dim t, f$, fp_1$, fp_2$
[COLOR=SeaGreen]'Array[/COLOR]
t = Array("chien", "chat","lapin","tortue","staple1600")
[COLOR=SeaGreen]'Décomposition de la formule en 2 parties[/COLOR]
fp_1 = "MATCH(" & Chr(34) & CStr(t(0)) & Chr(34) & ",animaux,0)"
fp_2 = "MATCH(" & Chr(34) & CStr(t(1)) & Chr(34) & ",animaux,0)"
[COLOR=SeaGreen]'création de la formule par concaténation[/COLOR]
f = "=" & fp_1 & "+" & fp_2
[COLOR=SeaGreen]'insertion de la formule en A1[/COLOR]
Range("A1").FormulaR1C1 = f
End Sub

Cliquez pour agrandir...