swampsnake
XLDnaute Nouveau
Salut tout le monde,
J'ai un problème avec deux formules que j'aimerais appliquer à deux cellules.
Voici comment les choses doivent se passer : dans une boucle j'insère des lignes et je souhaiterais affecter une formule dans les cellules C et E de chaque nouvelle ligne. Malheureusement, ça n'a pas l'air de fonctionner.
Après moultes recherches sur le sujet et des tas de tests en modifiant les quotes et autres, je vous appelle au secours.
Pourriez-vous me dire si la syntaxe est correcte ?
Voici le code en question :
J'ai un problème avec deux formules que j'aimerais appliquer à deux cellules.
Voici comment les choses doivent se passer : dans une boucle j'insère des lignes et je souhaiterais affecter une formule dans les cellules C et E de chaque nouvelle ligne. Malheureusement, ça n'a pas l'air de fonctionner.
Après moultes recherches sur le sujet et des tas de tests en modifiant les quotes et autres, je vous appelle au secours.
Pourriez-vous me dire si la syntaxe est correcte ?
Voici le code en question :
Code:
sht.Rows(cpt).Insert Shift:=xlDown
sht.Range("C" & cpt).Formula = "=IF(B" & cpt & "<>"""",(IF(AND(B" & cpt & ">Z" & cpt & ",B" & cpt & "<>""""),""""Sur-engagé"""",IF(AND(B" & cpt & "<Y" & cpt & ",B" & cpt & "<>""""),""""Sous-engagé"""",""""OK""""))),"""")"
sht.Range("E" & cpt).Formula = "=IF(AL" & cpt & "="""","""",AL" & cpt & ")"