le code décale le résultat attendu

Bonjour à tous
Je suis débutant en vba je dois écrire une macro destinée a analyser automatiquement un classeur. Le début du code fonctionne mais quand j'arrive à la partie mise en forme conditionnelle la y'a un hic la formule
si(gauche(l6;1)=""j"";NB.SI(j48hr;H6);"""")" devient quand je regarde dans mise en forme conditionnelle du classeur
si(gauche(s11;1)=""j"";NB.SI(j48hr;011);"""")" La couleur la police tout y esr mais ce decalage .....
J'ai mis alors un dollar devant L6 et h6 dans la formule et maintenant cela decale la formule à L11 et H11 ( c'est important)
je stagne !!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sheets("mon003.09091015_06_02").Activate   With Range("h6") FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE(L6;1)=""j"";NB.SI(j48hr;H6); """")" With .FormatConditions(1)   .Font.Bold = True .Font.Italic = False .Font.Color = -1003520   End With End With   End Sub

---

pouvez vous aussi m'indiquer comment appliquer cette mise en forme conditionnelle à la plage H6 H10000 merci encore pour votre aide

Bonjour et bienvenue

Sur mon pc, ton code légèrement modifié fonctionne... mais ne permettra jamais une mise en forme conditionnelle, car la formule conditionnelle à employer doit renvoyer une valeur logique (VRAI ou FAUX), ce que ne fait pas ta formule.

Tu n'as pas besoin de deux WTIH imbriqués, et tu peux directement sélectionner la plage sur laquelle appliquer ton format conditionnel

Code:

---

1 2 3 4 5 6

Range("h6:h10000").FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE(L6;1)=""j"";NB.SI(j48hr;H6); """")" With Range("h6:h10000").FormatConditions(1) .Font.Bold = True .Font.Italic = False .Font.Color = -1003520 End With

---