XL 2010 [VBA] comparer 2 cellules dans 2 listes

pepsi

XLDnaute Occasionnel
Bonjour,

je cherche à vérifier la présence de 2 cellules d'un premier tableau , dans un deuxième tableau.
les 2 cellules marchent ensemble (par ligne) mais peuvent se retrouver plus bas dans le 2 ème tableau...
j'espère avoir été à peu près claire.... :S

j'ai écrit ce code, mais la compilation n'est pas correcte.

J'aurais besoin d'un peu d'aide si quelqu'un peut regarder .... en vous remerciant.



VB:
    Columns("W:Y").Select
    Application.CutCopyMode = False
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
       "=NB.SI($I1&$K1;$W1&$Y1)"
   Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
 

job75

XLDnaute Barbatruc
Bonjour pepsi,

Activez la feuille où vous voulez créer la MFC et exécutez cette macro :
VB:
Sub Creer_MFC()
With Columns("W:Y")
    .FormatConditions.Delete
    On Error Resume Next
    .FormatConditions.Add Type:=xlExpression, Formula1:="=MFC($I:$K,$W1&$Y1)" 'version anglaise
    .FormatConditions.Add Type:=xlExpression, Formula1:="=MFC($I:$K;$W1&$Y1)" 'version française
    On Error GoTo 0
    .FormatConditions(1).Interior.Color = 5296274
End With
End Sub
Le code de cette fonction doit se trouver impérativement dans un module standard :
VB:
Function MFC(plage As Range, txt$) As Boolean
If txt = "" Then Exit Function
Dim tablo, i&
tablo = Intersect(plage, plage.Parent.UsedRange)
For i = 1 To UBound(tablo)
    If tablo(i, 1) & tablo(i, 3) = txt Then MFC = True: Exit Function
Next
End Function
A+
 
Haut Bas