Discussion :

[arctica]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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