FormuleR1C1 référence dans plusieurs onglets

Bonjour,
En cellule J4 je veux avoir la formule suivante en codant en VBA donc en formuleR1C1 (cette formule va ensuite etre tirée sur plusieurs lignes)
= IF($H4="sol1";$I4;
IF($H4="sol2";VLOOKUP($I4;sheet1!$C:$D;2;0);
IF($H4="sol3";VLOOKUP($I4;sheet1!$B:$D;3;0);
IF($H4="sol4";VLOOKUP($I4;sheet1!$A:$D;4;0)))))

Ce qui me pose probleme est visiblement la reference à un autre onglet, comment puis je faire cela en VBA ?
Merci!

Bonjour,

Essaie comme cela

Code:

---

1 2 3 4

Range("J4").Formula = "=IF($H4=" & sol1 & ",I4,IF($H4=" & sol2 & _ ",VLOOKUP($I4,sheet1!$C:$D,2,0),IF($H4=" & sol3 & _ ",VLOOKUP($I4,sheet1!$B:$D,3,0),IF($H4=" & sol4 & _ ",VLOOKUP($I4,sheet1!$A:$D,4,0)))))"

---

Cordialement.

Bonjour,

J'avais deja tester cela ca fonctionne evidement mais ca ne me permet pas de tirer la formule sur plusieurs lignes dans le code ensuite...

Quelque chose doit m’échapper.
Qu’est-ce qui te pose problème pour tirer ta formule ?
Si sol1, sol2, etc sont bien des variables et que les $ sont placés correctement, tu devrais obtenir le résultat attendu avec AutoFill.

Code:

---

Range("J4").AutoFill Destination:=Range("J4:J20"), Type:=xlFillDefault

---

Cordialement.

Ok, merci pour ta remarque, le pb n'est effectivement pas la!
En pas a pas je vois que la formule n'est meme pas mise dans la cellule J4... le code ne s'arrete pas mais ne fait rien a cette étape..
La cellule H4 remplie par formulaR1C1 est pourtant bien remplie, mon curseur va bien dans la cellule J4 mais n'y met pas la formule :calim2: !

Code:

---

1 2 3 4 5

Range("J4").Select ActiveCell.Formula = "=IF(OR($H4=" & "1" & ",$H4=" & "2" & ")),"",IF($H4=" & "3" & ",$I4,IF($H4=" & "4" & _ ",VLOOKUP($I4,sheet1!$C:$D,2,0),IF($H4=" & "5" & _ ",VLOOKUP($I4,sheet1!$B:$D,3,0),IF($H4=" & "6" & _ ",VLOOKUP($I4,sheet1!$A:$D,4,0))))))"

---

J'obtiens une transcription correcte avec

Code:

---

Range("J4").Formula = "=IF(OR($H4=" & "1" & ",$H4=" & "2" & "),"""",IF($H4=" & "3" & ",$I4,IF($H4=" & "4" & ",VLOOKUP($I4,Sheet1!$C:$D,2,0),IF($H4=" & "5" & ",VLOOKUP($I4,Sheet1!$B:$D,3,0),IF($H4=" & "6" & ",VLOOKUP($I4,Sheet1!$A:$D,4,0))))))"

---

Contrôle le contenu de la formule et dis-moi si c'est ce que tu cherches.
(j'ai un doute sur la partie IF($H4=" & "3" & ",$I4,IF...)

Merci, c'est presque ce que je cherche! Le seul soucis etant que "1" , "2" etc sont des string donc je veux vraiment voir les guillemets dans la formule ce qui n'est pas le cas quand je vais dans la cellule excel d'ou une erreur #NAME?

Pour le début de la formule par exemple, au lieu de voir ceci dans ma cellule :
=IF(OR($H4=POLE;$H4=GROUP);"")
je voudrais avoir
=IF(OR($H4="POLE";$H4="GROUP");"")

mais je n'y parviens pas :/

Pour apparaitre dans ta formule, une quote doit être encadrée par ... des quotes.

Code:

---

Range("J4").Formula = "=IF(OR($H4=" & """POLE""" & ",$H4=" & """GROUPE""" & "),"""",IF($H4=" & """3""" & ",$I4,IF($H4=" & """4""" & ",VLOOKUP($I4,sheet1!$C:$D,2,0),IF($H4=" & """5""" & ",VLOOKUP($I4,sheet1!$B:$D,3,0),IF($H4=" & "6" & ",VLOOKUP($I4,sheet1!$A:$D,4,0))))))"

---

Cordialement.

eheh!

Merci je trouvais pas :/ :ccool:
A bientot !