Discussion :

[Aurianelm]

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 :

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

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

[EngueEngue]

Tu connais:

Code :

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

application.worksheetfunction.vlookup

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

[Aurianelm]

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 :

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

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

[EngueEngue]

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 :

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

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

[parmi]

Peut-être comme ceci ?

Code :

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

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