Discussion :

[blacklolou]

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!

[gFZT82]

Bonjour,

Essaie comme cela

Code :

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

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.

[blacklolou]

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...

[gFZT82]

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 :

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

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

Cordialement.

[blacklolou]

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 !

Code :

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

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))))))"

[gFZT82]

J'obtiens une transcription correcte avec

Code :

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

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...)