Transformer Ligne Excel en VBA

Bonjour,

Je reviens vers vous pour m'aider à transformer ma formule de calcule que j'aimerais intégrer lors de l'ajout d'une ligne dans un formulaire.

Avec mes connaissance je n'y arrive pas.

'Enregistre les données modifié de l'UsfCmd dans la feuile6(Commande en cours)
    Feuil6.Cells(LgC, 1).Value = UsfCmd.TbRefInterne.Value 'Ref interne
    Feuil6.Cells(LgC, 3).Value = UsfCmd.TbDesignation.Value 'Désignation
    Feuil6.Cells(LgC, 4).Value = UsfCmd.TbDescriptif.Value 'Descriptif
    Feuil6.Cells(LgC, 5).Value = UsfCmd.TbFour.Value
    Feuil6.Cells(LgC, 6).Value = UsfCmd.TbRefFour.Value
    Feuil6.Cells(LgC, 7).Value = UsfCmd.TbPuFour.Value
    Feuil6.Cells(LgC, 8).Value = UsfCmd.TbQte.Value
        Feuil6.Cells(LgC, 12).Value = "=IF(RC[-3]="""","""",IF(RC[-1]<>"""",""OK"",IF(AND(RC[-2]<>"""",RC[-2]<TODAY()),""Retard"",""Attente"")))"
        Feuil6.Cells(LgC, 12).Copy
        Feuil6.Cells(LgC, 12).PasteSpecial Paste:=xlPasteValues
        Feuil6.Cells(LgC, 13).Value = "=SIERREUR(SI(RECHERCHEV('Commandescours'!A3;'ListingPieces'!$A$7:$A$8138;1;FAUX);SI.CONDITIONS(L3="OK";1;(L3= "Attente");2;(L3 = "Retard");3);4);5)"

C'est la ligne Feuil6.Cells(LgC, 13).Value = qui me pose problème.

Merci d'avance pour votre aide

Claude

Bonjour,

A première vue, je dirai 2 choses:

ce n'est pas "Feuil6.Cells(LgC, 13).Value", mais plutôt ceci: "Feuil6.Cells(LgC, 13).FormulaLocal"

puis toutes les valeurs "OK", "Attente", "Retard" doivent être encadrées par un double-guillemet, ce qui donne: ""OK"", ""Attente"", ""Retard""

Votre formule (non testée):

Feuil6.Cells(LgC, 13).FormulaLocal = "=SIERREUR(SI(RECHERCHEV('Commandescours'!A3;'ListingPieces'!$A$7:$A$8138;1;FAUX);SI.CONDITIONS(L3=""OK"";1;(L3= ""Attente"");2;(L3 = ""Retard"");3);4);5)"

Cdlt