[VBA-E]Utiliser une variable dans une formule

**bossu** · 03/06/2006, 12h57

J'essaie de faire la chose suivante :VBA EXCEL
utiliser une variable pour changer ma formule au fur et à mesure de mes déplacements dans la feuille où je me trouve.('temp' est en réalité un compteur)

En bref : Je n'arrive utiliser la valeur de ma variable dans la formule d'index.

Je suis débutant

, j'espère que ma question est assez explicite.

Merci d'avance de me désembourber si vous le pouvez !

Cordialement

BOSSU

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()

Dim temp As Variant
temp = 1

Range("i6").Select
    ActiveCell.FormulaR1C1 = _
        "=INDEX(Feuil2!C[-2-temp],MATCH(Feuil1!RC[-2-temp],Feuil2!C[-3-temp],0))"
    
End Sub

**AlainTech** · 03/06/2006, 13h11

Bonjour et bienvenue sur ce forum.

Nous demandons, ici, de mettre un tag (regarde les autres discussions) dans le titre de la discussion (=titre du premier message) pour préciser l'environnement de développement.

Ensuite, entoure ton code de balises [code] à l'aide de l'icône

située au-dessus de l'éditeur de message.

Bonne programmation.

**AlainTech** · 03/06/2006, 13h23

Ceci dit, ce que tu cherches devrait ressembler à:

Code :

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

1
2
"=INDEX(Feuil2!C[-2-" & temp & "],MATCH(Feuil1!RC[-2-" & temp & _
"],Feuil2!C[-3-" & temp & "],0))"

Mais si le but est d'en faire une boucle pour remplir une série de cellules, regarde du côté de la méthode FillDown (ou FillRight) qui va incrémenter les références comme si tu faisais un "étirement" par la poignée de cellule dans Excel.

**bossu** · 03/06/2006, 14h05

Ce n'est pas la solution : les ' " ' premettent d'inclure dans la formule de la cellule ,la variable en tant que paramétre de la formule, mais moi j'aimerais que ma variable influance directement mon paramètre de formule (sans qu'il soit affiché).
J'ai essayé quand même, mais ça n'a pas marché.

J'ai bien noté l'histoire du TAG et des balises de codes (la prochaine fois j'en tiendrai compte).
Je vois d'ailleurs que les autres questions sont en gras et pas celle ci, sans doute à cause de cette histoire de TAG.

Bon ben j'y retourne, en espérant qu'on aura une solution pour moi.

Merci encore

Bossu

**SfJ5Rpw8** · 03/06/2006, 14h18

Envoyé par bossu

(...)
J'ai bien noté l'histoire du TAG et des balises de codes (la prochaine fois j'en tiendrai compte).
(..)

tu peu toujours éditer ton premier message pour modifier le titre ( rajout tag..) et rajouter les balises de code ...

sinon peu-tu nous décrire à nouveau ton probléme, j'ai toujours pas compris ce que tu voulais faire..? il y devrai y avoir quoi dans temps ?

**ouskel'n'or** · 03/06/2006, 15h01

Je n'ai rien compris non plus

A+

**AlainTech** · 03/06/2006, 15h03

Envoyé par bossu

J'ai bien noté l'histoire du TAG et des balises de codes (la prochaine fois j'en tiendrai compte).

Le temps que tu frappes cette phrase, tu aurais pu le faire pour cette discussion-ci.
Je l'ai fait pour toi.
C'est autant de temps en moins pour répondre à ta question et à celles des autres.

Envoyé par bossu

Je vois d'ailleurs que les autres questions sont en gras et pas celle ci, sans doute à cause de cette histoire de TAG.

Non, les discussions en gras sont celles que tu n'as pas lues.

**bossu** · 04/06/2006, 07h57

En fait j'ai une formule simple du type :
=E8+F8; je veux qu'à chaque fois que je passe ma macro elle se déplace à droite mais reste =E8+F8.

Le code de cette formule est :

Code :

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

1
2
 
    ActiveCell.FormulaR1C1 = "=RC[-1]+RC[-2]"

Je ne peux pas utiliser FillRight puisque je ne veux pas que mon adressage change.

Ma variable "temp" me servirait à garder mon adressage fixe :
à chaque passage de la macro temp = temp +1
Et comme j'avance d'une cellule dans ma feuille il faut que la formule devienne:

Code :

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

1
2
 
ActiveCell.FormulaR1C1 = "=RC[-2]+RC[-3]"

Je dois donc utiliser temp pour soustraire 1 de plus à chaque fois que je passe à une cellule suivante.

J'espère que cette reformulation vous permettra de m'aider.
A bientôt

Merci d'avance.

**AlainTech** · 04/06/2006, 08h33

Et

Code :

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

ActiveCell.FormulaR1C1 = "=RC5+RC6"

ne te convient pas?

**ouskel'n'or** · 04/06/2006, 11h38

Utilise des adresses absolues
=$E$8+$F$8

Si tu recopies ça dans n'importe quelle cellule de la feuille, tu auras toujours =$E$8+$F$8

Tu dis

A+

**AlainTech** · 04/06/2006, 12h08

Dans

Code :

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

ActiveCell.FormulaR1C1 = "=RC5+RC6"

R est relatif et C5 et C6 sont absolus.
Il n'y a qu'à regarder le résultat généré, dans la cellule, par cette instruction.

Et donc, un FillRight pourrait partaitement convenir.

**ouskel'n'or** · 04/06/2006, 12h40

Pour que la formule =$E$8+$F$8 suive le N° de ligne, tu peux écrire
ActiveCell.Formula = "=$E8+$F8"
Recopiée vers le bas, elle suivra le N° de ligne =$E9+$F9, =$E10+$F10, ...
Solution qui n'est pas en contradiction avec celle d'AlainTech

A+