Discussion :

[David1974]

Bonjour à tous,
Voila j'essai d'affecter une formule à une cellul via VBA dont une partie est paramétrée par une variable, cependant j'ai à chaque fois une erreur
1004.
Pouvez m'aider SVP, cela fait une plombe que j'essaye et rien à faire.

Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
 
Dim e As Integer
 
e = 4
If FeuilleExiste("2") = True Then
Range("C3").FormulaLocal = "=RECHERCHEV (A" & e & ";'1'!$A$3:$B$103;2;0)"
End If
 
 
End Sub

[SilkyRoad]

bonsoir

tu peux tester cette adaptation

Code :

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

Range("C3").FormulaLocal = "=RECHERCHEV(A" & e & ";'1'!$A$3:$B$103;2;0)"

j'ai juste supprimé l'espace entre le V de RECHERCHEV et (


bonne soiree
michel

[Megaxel]

Et pour généraliser la réponse de SilkyRoad: si tu récupères le contenu de la formule que tu génères, et que tu la colles dans une formule, est-ce qu'elle marche?

[David1974]

La suppression de l'espace a resolu le pbl.

Merci

[ouskel'n'or]

"Il me semble que quelqu'un a posé une question tout à l'heure" (DeGaulle 1961)

Et pour généraliser la réponse de SilkyRoad: si tu récupères le contenu de la formule que tu génères, et que tu la colles dans une formule, est-ce qu'elle marche?

Oui, ça marche, faut juste replacer les guillemets, modifier FormulaLocal en FormulaR1C1, et là, peut-être, ça marchera aussi si tu n'as rien oublié.
Tu as aussi l'option de placer la syntaxe VBA en utilisant Formula... ToutCourt...

Et puis t'as qu'à essayer...

A+

PS - Bon, j'arrête pour aujourd'hui, je n'ai pas la tête à ça.