AIDE Macro fonction SI ET

Den · 20 Mai 2015

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 · 20 Mai 2015

Re : AIDE Macro fonction SI ET

Hello !

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

Code:

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 · 20 Mai 2015

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?

AIDE Macro fonction SI ET

Den

Guest

Pièces jointes

vgendron

XLDnaute Barbatruc

Den

Guest

Discussions similaires

AIDE Macro fonction SI ET

Den

Guest

Pièces jointes

vgendron

XLDnaute Barbatruc

Den

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency