Microsoft 365 Macro avec condition et Formula local

[pat66]

Bonjour le forum

pourriez vous m'aider à modifier cette macro car j'ai une erreur de type 1004

autant celle ci fonctionne bien

If Target = "" Then
         [AO25:AO33].FormulaLocal = "=RECHERCHEV(AG$23;D$25:AN$49;37;0)"
Else
        Range("AO25,AO26,AO27").Value = Range("AG65").Value
end if

mais je souhaite y ajouter une condition et là j'ai une erreur de type 1004 :

If Target = "" Then
         [AO25:AO33].FormulaLocal = "=SI(D34>AG$23;"";RECHERCHEV(AG$23;D$25:AN$49;37;0))"
Else
        Range("AO25,AO26,AO27").Value = Range("AG65").Value
end if

merci beaucoup

 

[job75]

Bonjour pat66, le forum,

Il faut doubler les guillemets, c'est classique :

[AO25:AO33].FormulaLocal = "=SI(D34>AG$23;"""";RECHERCHEV(AG$23;D$25:AN$49;37;0))"

A+

 

[pat66]

Bonjour Job75

merci beaucoup, c'est nickel !!!

une belle journée