Macro et MEFC

Bonjour à tous,

J'ai un souci avec le code macro suivant :

Sub MACROMANQUENUMAFF()

Dim oRng As Excel.Range, oFc As Excel.FormatCondition

Set oRng = ThisWorkbook.Worksheets(1).Range("LISTEBRI")

'au cas où il y aurait déjà des FC intempestives

'For Each oFc In oRng.FormatConditions

' oFc.Delete

'Next oFc

Set oFc = oRng.FormatConditions.Add(Type:=xlExpression, Formula1:="=SI(ET($F1059="""";$B1059<>"""");""VRAI"";""FAUX"")")

oFc.Interior.Color = RGB(255, 192, 0)

Set oFc = Nothing

Set oRng = Nothing

End Sub

Vu que je sélectionne directement la cellule F1059, si je supprime/ajoute des lignes avant 1059, cela me créer un décalage dans la MEFC.

Exemple dans le fichier joint, les celulles 1048 et 1049 devrait être en orange alors qu'ici ce sont les celulles 1041 et 1042.

I NEED HELP PLEASE

Bonjour,

L-lolo-O a écrit :

Formula1:="=SI(ET($F1059="""";$B1059<>"""");""VRAI"";""FAUX"")")

Le VBA ne comprend que l'anglo-saxon. Ta formule doit donc être traduite avec les mots-clé anglais: IF, AND, TRUE, FALSE.

Salut Thev,

Je ne suis pas sur que mon problème viennent d'ici.

Même en traduisant en anglais j'aurai toujours mon souci de sélection de cellule 1059 ..