Passer variables dans fourmule

[RENAUDER]

Bonjour,

Je veux passer des variables à une formule à savoir remplacer 100 et 2 par leur variable respective.
J'ai essayé MATCH(RC1,Comptes,0)+ '" & Lgn & "' à la place de 100, Lgn a bien la valeur 100 en débogage mais le code bug. Je ne vois pas d'autre syntaxe possible.
Pour la variable de la feuille, ça fonctionne.

Sub Macro2()
    Dim Lgn As Integer: Dim Col As Integer: Dim MaFeuille As String
    MaFeuille = "Cas 2"
    Lgn = 100:    Col = 2
    Range("C2").Select
    ActiveCell.FormulaR1C1 = _
    "=INDIRECT(""'" & MaFeuille & "'!""& ADDRESS(MATCH(RC1,Comptes,0)+100,MATCH(R1C,Dates,0)+2))"
    Range("C3").Select
End Sub

 

[JNP]

Re : Passer variables dans fourmule

Bonjour Renauder 🙂,
Peux-tu donner la formule de feuille que tu cherches à obtenir ?
Ainsi que la formule de feuille qui permet d'obtenir l'adresse que tu veux insérer ?
Si possible en mode A1 et non RC 🙄...
A te lire 😎

 

[bond]

Re : Passer variables dans fourmule

A essayer :

"=INDIRECT(""'" & MaFeuille & "'!""& ADDRESS(MATCH(RC1,Comptes,0)+" & "" & Lgn & "" & ",MATCH(R1C,Dates,0)+2))"

 

[bond]

Re : Passer variables dans fourmule

et avec le 2 :

"=INDIRECT(""'" & MaFeuille & "'!""& ADDRESS(MATCH(RC1,Comptes,0)+" & "" & Lgn & "" & ",MATCH(R1C,Dates,0)+" & "" & Col & "" & "))"

 

[RENAUDER]

Re : Passer variables dans fourmule

Bonjour,

La formule de Bond ne fonctionne pas

Voici la formule de la feuille de calcul:
=INDIRECT("'Cas 2'!"& ADRESSE(EQUIV($A2;Comptes;0)+100;EQUIV(C$1;Dates;0)+2))

Par contre si dans une feuille je nomme 2 cellules Col et Lgn et que je mets les valeurs 2 et 100, ça passe dans la formule VBA ci-dessous

ActiveCell.FormulaR1C1 = _
        "=INDIRECT(""'Cas 2'!""& ADDRESS(MATCH(RC1,Comptes,0)+Lgn,MATCH(R1C,Dates,0)+ Col))"

 

[bond]

Re : Passer variables dans fourmule

Le code :

"=INDIRECT(""'" & MaFeuille & "'!""& ADDRESS(MATCH(RC1,Comptes,0)+" & "" & Lgn & "" & ",MATCH(R1C,Dates,0)+" & "" & Col & "" & "))"

Passe en C2 la formule :

=INDIRECT("'Cas 2'!"& ADRESSE(EQUIV($A2;Comptes;0)+100;EQUIV(C$1;Dates;0)+2))

 

[JNP]

Re : Passer variables dans fourmule

Re 🙂,
Je confirme, la formule de Bond est bonne chez moi aussi 🙂.
Un problème 2003/2007 🙄 ?
Ce serait étonnant mais bon 😛...
Quelle formule ecrit-elle chez toi ?
A + 😎

 

[RENAUDER]

Re : Passer variables dans fourmule

Bonjour,

D'abord encore merci à vous car en copiant la formule de Bond je pense que j'avais laissé une parenthèse trainée qui me provoquait l'erreur.