Traduction formule Si(ET en VBA Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
T
Tom Colbert
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 29 mars 2016
Version d'Excel : 2007

Message par Tom Colbert » 26 avril 2016, 10:13

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
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'190
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 26 avril 2016, 10:23

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
Modifié en dernier par Raja le 26 avril 2016, 10:52, modifié 1 fois.
Cdlt,
Raja
T
Tom Colbert
Jeune membre
Jeune membre
Messages : 26
Inscrit le : 29 mars 2016
Version d'Excel : 2007

Message par Tom Colbert » 26 avril 2016, 10:52

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
Classeur1.xls
(103 Kio) Téléchargé 7 fois
Avatar du membre
M12
Passionné d'Excel
Passionné d'Excel
Messages : 3'118
Appréciations reçues : 120
Inscrit le : 3 juillet 2015
Version d'Excel : 2013

Message par M12 » 26 avril 2016, 11:01

Bonjour à tous

A tester
Classeur1 (2).xls
(236.5 Kio) Téléchargé 14 fois
Merci de clôturer le fil en cliquant sur le bouton V vert du post à coté du bouton EDITER si problème résolu

Je ne répond pas au message privé
Avatar du membre
Raja
Passionné d'Excel
Passionné d'Excel
Messages : 5'190
Appréciations reçues : 14
Inscrit le : 3 février 2008
Version d'Excel : 2010 à 2016 FR et 2010 EN

Message par Raja » 26 avril 2016, 11:16

Re,
Retour fichier à tester.
Copie de Classeur1.xlsm
(33.61 Kio) Téléchargé 15 fois
Cdlt,
Raja
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message