Utilisation variables dans Recherchev

Salut tout le monde ! :)

J'utilise une recherchev dans ma macro mais celle ci m'affiche l'erreur suivante : "Erreur définie par l'application ou par l'objet". Je ne sais pas d'où vient l'erreur et je bloque dessus depuis plusieurs heures déjà... La formule marche très bien sous Excel mais dès que je la traduis en vba avec des variables ça ne fonctionne plus...

Code:

---

1 2 3 4 5 6

'Recherche du taux normal For i = 2 To derligne Workbooks(pilotage).Sheets("Taux_Frais_2013").Range("A2:O65000").SpecialCells(xlCellTypeVisible).Copy Destination:=Workbooks(pilotage).Sheets(1).Range("A2") derligne2 = Workbooks(pilotage).Sheets(1).Range("A65000").End(xlUp).Row Sheets(Num & " " & Nom).Range("AO" & i).FormulaR1C1 = "=VLOOKUP(RC[-8],'["" & pilotage & ""]"" & typo & ""'!R2C4:R"" & derligne2 & ""C12,9,TRUE)" Next i

---

Merci d'avance pour votre aide :)

Tu connais:

Code:

---

application.worksheetfunction.vlookup

---

sinon ta formule c'est nawak au niveau des " si tu veux passer une variable il faut la sortir du string...

Merci de répondre !

Non je ne connais pas... je ne suis pas une experte en vba, je veux dire je me débrouilles bien mais tout ce qui est applications comme celle que tu me proposes je ne connais pas du tout et je ne sais pas vraiment comment l'utiliser. Pour les " comment faire ? J'ai essayé avec " et avec "" et avec [""] mais rien de tout cela ne fonctionne.

Bon ben ça a finalement fonctionné alors que j'étais persuadé d'avoir fait comme cela au départ...

Pour ceux que ça intéresse ça donne :

Code:

---

1 2 3 4 5 6

'Recherche du taux normal For i = 2 To derligne Workbooks(pilotage).Sheets("Taux_Frais_2013").Range("A2:O65000").SpecialCells(xlCellTypeVisible).Copy Destination:=Workbooks(pilotage).Sheets(1).Range("A2") derligne2 = Workbooks(pilotage).Sheets(1).Range("A65000").End(xlUp).Row Sheets(Num & " " & Nom).Range("AO" & i).FormulaR1C1 = "=VLOOKUP(RC[-8],'[" & pilotage & "]" & typo & "'!R2C4:R" & derligne2 & "C12,9,TRUE)" Next i

---

Peut-être comme ceci ?

Code:

---

Sheets(Num & " " & Nom).Range("AO" & i).FormulaR1C1 = "=VLOOKUP(RC[-8],'[" & pilotage & "]" & typo & "'!R2C4:R" & derligne2 & "C12,9,TRUE)"

---

Ce n'est pas nécessaire de doubler les apostrophes sauf si c'est du texte qui est incorporé à la formule, comme pour faire une comparaison avec une valeur texte, disons...

toutes les formules excel tu peux les utiliser depuis application.worksheetfunction

Sans utiliser des formules mais en donnant les arguments en vba.. C'est plus propre, plus rapide et plus simple à faire.

Par exemple

Code:

---

Application.worksheetfunction.vlookup(variablecherchee,Range("A5:B20"),2,False)

---