vba ma formule se decalle

[PHILIP]

Bonjours à 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 .....
je stagne !!! surtout que cette mie en forme conditionnelle je souhaiterai l'appliquer à la plage de h6 à h10000
Pourriez vous m'aider ?




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

 

[Compte Supprimé 979]

Re : vba ma formule se decalle

Bonsoir Philip,

Merci d'utiliser les balises [ Code] [ /Code]

As tu essayé en mettant un dollard devant la colonne ?

Sheets("mon003.09091015_06_02").Activate

With Range("h6")
FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE([B][COLOR=blue]$[/COLOR][/B]L6;1)=""j"";NB.SI(j48hr;[COLOR=blue][B]$[/B][/COLOR]H6); """")"
With .FormatConditions(1)

.Font.Bold = True
.Font.Italic = False
.Font.Color = -1003520

End With
End With

End Sub

A+

 

[PHILIP]

Re : vba ma formule se decalle

Bonsoir Bruno

merci pour ton aide le code marche presque sauf que là il mets L11 et H11 alors que dans la formule il y a bien de L6 et H6

pouvez vous aussi m'indique comment l'appliquer à toute la colonne L merci encore pour votre aide