If/and en vba
Bonjour,
Je voudrais tester des conditions avec des IF et AND imbriqués. Je l'ai fait directement dans le feuille avec la formule suivante et ça fonctionne très bien.
=SI(ET(O1="FRLHVF";J1="2022");10;SI(ET(O1="FRLHVF";J1="2023");15;SI(ET(O1="FRDKUN";J1="2022");50;SI(ET(O1="FRDKUN";J1="2023");20;0))))
Maintenant je veux la transformer en VBA suivant les cellules de ma feuille puisque le nombre de lignes est variable pour chaque cas mais ça ne fonctionne pas.
Les IF et AND ne sont apparemment pas reconnus.
Voici la formule que j'ai tenté tout est sur une seule ligne:
ActiveCell.FormulaR1C1 = "=if(and(RC[-1]=""FRDKUN"",RC[-6]=""2022""),10,if(and((RC[-1]=""FRDKUN"",RC[-6]=""2023""),15,if(and(RC[-1]=""FRLHVF"",RC[-6]=""2022""),10,if(and((RC[-1]=""FRLHVF"",RC[-6]=""2023""),20,0))))"
et là j'ai besoin d'un peu d'aide svp?
2 réponses
-
Contributeur
bonjour,
peut-être ainsi:
ActiveCell.FormulaLocal = "=SI(ET(O1=""FRLHVF"";J1=""2022"");10;SI(ET(O1=""FRLHVF"";J1=""2023"");15;SI(ET(O1=""FRDKUN"";J1=""2022"");50;SI(ET(O1=""FRDKUN"";J1=""2023"");20;0))))"
-
-
Contributeur@Utilisateur anonyme
L'avantage éventuel d'une formule, c'est qu'elle sera automatiquement évaluée quand c'est nécessaire.
-
@yg_be
Oui, mais on peux coder une fonction qui fait le job et que l'on utilise en formule dans la feuille.
-
Contributeur@Utilisateur anonyme
Dans ce cas-ci, je pense que le but, c'est de faire varier les paramètres d'entrée, je ne vois pas comment réaliser cela via une fonction appelée dans une formule.
-
-
Bjr, Si ça peut aider qlq'un, j'ai trouvé le problème, il ne fallait pas mettre de guillemet autour de 2022 et 2023.
Le fait que IF et AND ne se mettent pas en majuscule n'a pas d'importance mais je ne savais pas.
