AIDE Macro fonction SI ET

[Den]

Bonjour,
complètement novice en VBA, j'ai suis tout de même parvenu à intégrer mes premières macro relativement simples, mais cela se complique pour moi quand il s'agit de condition, et la je pêche...quelqu'un saurait-il transcrire cette formule en VBA svp?? Sachant que celle-ci devra s'intégrer dans une nouvelle colone insérée entre P et Q
IF(AND(B2="Type1",P2="Blue","Blue1",IF(AND(B2="Type2",P2="Blue","Blue2",P2))

ci-joint un fichier de test
merci de votre aide

 

[vgendron]

Re : AIDE Macro fonction SI ET

Hello !

perso, pour écrire des formules dans une cellule je procède comme suit

Sub test()
formule = "=if(and(B2=""Type1"";P2=""Blue"");""Blue1"";if(and(B2=""Type2"";P2=""Blue"");""Blue2"";P2))"
Range("Q2").FormulaLocal = formule
Range("Q2").AutoFill Destination:=Range("Q2:Q15")
End Sub

j'écris la formule telle que je la saisirais dans excel: et je met dans la variable formule
attention:
1) il te manquait des parenthèses dans ta formule autour des AND
2) un " devient ""
3) tu as mis des virgules au lieu de point virgules

l'intéret est que je trouve ca plus lisible
et j'affecte cette formule à la cellule voulue (ici Q2)
ensuite, je tire vers le bas avec un autofill

 

[Den]

Re : AIDE Macro fonction SI ET

Merci beaucoup, par contre je n'arrive pas à appliquer la macro. La ligne Range("Q2").FormulaLocal = formule est en jaune dans Visual Basic. Auriez-vous une idée du bug?