VBA - Mise en Forme Conditionnelle via Formule - Langue Excel

[Clemius]

Bonjour à tous,
Je vous sollicite pour un petit coup de pouce 😀

J'utilise la macro suivante de mise en forme conditionnelle par formule :
(extrait)

Range("m2").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=M2<>RECHERCHEV(L2,Alfa,3,faux)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent4
.Color = 255
End With

Alfa étant une plage définie

Mon challenge est le suivant :
Je vais être amené a partager ce doc excel avec des utilisateurs qui ont Excel en anglais et la formule ne va pas marcher car la formule dans la macro en en français 😕

D'ou ma question ce matin, qui a tué Pamela Rose ? 😱
Heu nonnn....

Est-ce que quelqu'un à une idée pour me permettre d'appliquer la mise en forme conditionnelle correctement sans avoir a tenir compte de la langue du logiciel

Merci beaucoup d'avance,
Clem

 

[pierrejean]

Re : VBA - Mise en Forme Conditionnelle via Formule - Langue Excel

Bonjour Clemius

Tester:

=M2<>VLOOKUP(L2,Alfa,3,FALSE) au lieu de =M2<>RECHERCHEV(L2,Alfa,3,faux)

 

[Compte Supprimé 979]

Re : VBA - Mise en Forme Conditionnelle via Formule - Langue Excel

Bonjour Clemius,

Peut-être de la sorte

Sub Test()
  With Range("M2")
    If Application.LanguageSettings. _
    LanguagePreferredForEditing(msoLanguageIDEnglishUK) Then
    .FormatConditions.Add Type:=xlExpression, Formula1:="=M2<>VLOOKUP(L2;Alfa;3;faux)"
    Else
    .FormatConditions.Add Type:=xlExpression, Formula1:="=M2<>RECHERCHEV(L2;Alfa;3;faux)"
    End If
    .FormatConditions(.FormatConditions.Count).SetFirstPriority
    With .FormatConditions(1).Interior
      .PatternColorIndex = xlAutomatic
      .ThemeColor = xlThemeColorAccent4
      .Color = 255
    End With
  End With
End Sub

Edit : Bonjour Maître PierreJean 😉

A+