en VBA Insérer une formule dans une cellule à condition que cellule X ou Y non vide

Paninak

XLDnaute Nouveau
Bonjour le forum

Je tourne à vide pour insérer une formule dans une cellule.

J'aimerais insérer dans la cellule Cells(PremLig, 5) une formule de calcul. A la fin, la cellule affiche le résultat si les deux cellules concernées par la formule ("F" et "H") sont non vide, sinon, elle affiche rien.

Je copie ma formule dans une procédure BVA de cette façon:
PremLig est un long qui donne le N° de la ligne concernée

Code:
Cells(PremLig, 5).Formula = "=H" & PremLig & "-F" & PremLig & "-(D" & PremLig & ")"

Résultat dans la cellule si PremLig est 5:
=H5 - F5 - (D5)
La formule fonctionne, mais si les cellules (PremLig, "H") et (PremLig, "F") sont vides, elle affiche la cellule (PremLig, "D") en négatif.

C'est la formule =Si(Ou(.... que je n'arrive pas à intégrer.
 

Discussions similaires