Fomule VBA R1C1

Bonjour à tous,

J'aimerais déclencher la formule suivante en colonne 16 dès qu'un numéro de facture est saisi en colonne 4, ici en ligne D :
=SIERREUR(SI(SIERREUR(RECHERCHEV(D4;'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!$F$1:$J$23000;4;FAUX);RECHERCHEV(D4*1;'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!$F$1:$J$23000;4;FAUX))=0;"Pas d'arrivée";SIERREUR(RECHERCHEV(D4;'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!$F$1:$J$23000;4;FAUX);RECHERCHEV(D4*1;'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!$F$1:$J$23000;4;FAUX)));"")

J'ai tenté avec la formule suivante mais cela me ramène systématiquement un "FAUX".
Code:

1 2 3 4 5 Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 4 Then Target.Offset(0, 12) = FormulaR1C1 = "=IF(RC[-12]="""","""",IFERROR(IF(IFERROR(VLOOKUP(RC[-12],'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!R1C6:R23000C10,4,FALSE),VLOOKUP(RC[-12]*1,'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!R1C6:R23000C10,4,FALSE))=0,""Pas d'arrivée"",IFERROR(VLOOKUP(RC[-12],'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!R1C6:R23000C10,4,FALSE),VLOOKUP(RC[-12]*1,'\\srvdc01\dossiers_services$\Comptabilite\COURRIER FACTURES\[COURRIER FACTURES.xlsx]FACTURES'!R1C6:R23000C10,4,FALSE))),""""))" & "" End If End Sub
Pourriez vous me filer un coup de pouce?
Merci!! :oops:

Bonjour,

Je ne peux pas tester la formule mais ce que je vois:

Code:

Target.Offset(0, 12) = FormulaR1C1 =

devrait s'écrire

Code:

Target.Offset(0, 12).FormulaR1C1 =

Cdlt

Bah, voilà, c'était juste çà!
:mouarf:

Merci bcp!!