Traduction formule Si(ET en VBA

Bonjour à tous,

je souhaite intégrer cette formule dans mon code:

=SI(ET(O13>0,1;O13<300,1);"CD";SI(O13>300,1;"LD";SI(O13=0;"";SI(O13="";"";"FAUX"))))

J'ai tenté de rédiger un code mais ça ne fonctionne pas. Et à vrai dire je ne comprend pas pourquoi...

Voici le code:

J = "=IF(AND(O13>0,1,O13<300,1),""CD"",IF(O13>300,1,""LD"",IF(O13=0,"""",IF(O13="""","""",""""))))"
Range("P13").Formula = J
Range("P13").AutoFill Destination:=Range("P13:P1000"), Type:=xlFillDefault

Je souhaite que la formule s'applique en P13 puis soit tirée jusqu'en ligne 1000.

Merci d'avance pour votre help,

Tom

Bonjour,

Essaye comme ça en une fois pour toute la plage :

Range("P13:P1000").FormulaR1C1 = "=IF(AND(RC[-1]>0.1,RC[-1]<300.1),""CD"",IF(RC[-1]>300.1,""LD"",IF(RC[-1]=0,"""",IF(RC[-1]="""","""",""FAUX""))))"

NB : le séparateur de décimal en VBA est le point non pas la virgule qui lui est utilisé pour la séparateur de paramètres de fonction

Bonjour Raja,

cela ne fonctionne pas. Aucune formule vient se saisir en colonne P... :'(

Ci-joint le fichier: Il s'agit du dernier paragraphe du code qui me pose pb...

Cdlt

Tom

7classeur1.zip (24.94 Ko)

Bonjour à tous

A tester

16classeur1-2.zip (52.49 Ko)

Re,

Retour fichier à tester.

Rechercher des sujets similaires à "traduction formule vba"