recherchev

[hugh33]

Bonjour,

je voudrais modifier la formule commandée par cette macro, comment puis je faire ?

merci 🙂

Sheets("Base").Select

Range("G3").Select
ActiveCell.FormulaR1C1 = "=RECHERCHEV(RC[-6],pessac.xls!C3:C5,3,FALSE)"
Range("G3").Select
Selection.AutoFill Destination:=Range("G3:G114"), Type:=xlFillDefault
Range("G3:G114").Select
macro
Range("H1").Select

Application.ScreenUpdating = True

End Sub

 

[vgendron]

Re : recherchev

Bonjour,
et tu veux la modifier / remplacer par quoi?

perso, je n'aime pas les références RC
je préfère toujours faire
formule="=RECHERCHEV(A3,pessac.xls!C3:C5,3,FALSE)"
range("G3").formulalocal=formule

 

[hugh33]

Re : recherchev

bonjour et merci pour ta réponse, voici la nouvelle formule

=SIERREUR(RECHERCHEV(A3;'T:\GT\GT0180 - U007 - Flux logistique - Saisie Prod\Logistique - G TRANSFERT\Flux PF\Stocks\[pessac.xls]pessac'!$C$1:$E$65536;3;FAUX);"0")

et l'ancienne

=RECHERCHEV(A22;'T:\GT\GT0180 - U007 - Flux logistique - Saisie Prod\Logistique - G TRANSFERT\Flux PF\Stocks\[pessac.xls]pessac'!$C$1:$E$65536;3;FAUX)

merci 🙂

 

[vgendron]

Re : recherchev

donc.. comme je disais..

formule="=SIERREUR(RECHERCHEV(A3;'T:\GT\GT0180 - U007 - Flux logistique - Saisie Prod\Logistique - G TRANSFERT\Flux PF\Stocks\[pessac.xls]pessac'!$C$1:$E$65536;3;FAUX);""0"")"
Range("G3").formulalocal=formule

en vba, les guillemets doivent etre doublés: "0" devient ""0""
il y a peut etre aussi le ; qui doit etre remplacé par une simple virgule: ; devient ,
comme de toute facon, ta formule plantera chez moi, et que je n'ai pas envie de faire un fichier exemple, je te laisse essayer

 

[hugh33]

Re : recherchev

🙂 merci pour ta réponse, je vais essayer ça

je te tiens au courant, apres mes vacances ^^

@++

 

[hugh33]

Re : recherchev

🙂 hola !! super ça fonctionne merci bcp 😎
@++