Vlookup, vba et couleur

[Atori]

Bonjour à tous

J'ai un problème avec du vba et je n'arrive pas à faire ce que je veux 😕

j'ai 2 feuillets, un feuillet avec les cellules C1 à C200 en valeur cherché.
un autre feuillet avec la table matrice (la colonne A correspond au valeur cherché du premier feuillet et la colonne B aux valeurs).
J'aimerai que les valeurs des cellules C1 à C200 se colorie en rouge si les valeurs de la colonne B de la table matrice sont égal à "A".

J'ai donc pensé à la recherchev (vlookup) mais je n'arrive pas à mettre le tout en forme ...

pouvez-vous m'aider svp
merci

 

[jetted]

Re : Vlookup, vba et couleur

Avez-vous essayer quelque chose du genre

Sub test()
    Sheets("initiale").Select
    RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
    For i = 1 To RowCount
        Sheets("initiale").Select
        valeur = Range("A" & i).Value
        Sheets("matrice").Select
        valeur1 = Range("A" & i).Value
        If valeur = valeur1 Then
            Sheets("initiale").Select
            Range("A" & i).Select
            ActiveCell.Interior.ColorIndex = 3
        End If
    Next
End Sub

 

[Caillou]

Re : Vlookup, vba et couleur

Bonjour,

Pas clair pour moi.
Peut-etre peux tu poster un exemple

Caillou

 

[Atori]

Re : Vlookup, vba et couleur

Dans l'exemple, Marie et Émilie sont en rouge car dans la feuille 2, Marie et Émilie ont pour valeur en colonne B, "A"

merci jetted, mais ça me met tout en rouge chez moi, ou alors, je l'ai mal adapté 😕

 

[jetted]

Re : Vlookup, vba et couleur

voici un exemple

 

[jetted]

Re : Vlookup, vba et couleur

Voici le code pour votre exemle

Sub test()
    Dim SearchString, SearchChar, MyPos
    Sheets("Feuil1").Select
    RowCount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
    For i = 1 To RowCount
        Sheets("Feuil1").Select
        valeur = Range("A" & i).Value
        SearchChar = valeur
        Sheets("Feuil2").Select
        For Each cell In Range("A1:A" & RowCount)
            SearchString = cell.Text
            MyPos = InStr(SearchString, SearchChar)
            If MyPos > 0 Then
                Sheets("Feuil1").Select
                Range("A" & i).Select
                'ActiveCell.Interior.ColorIndex = 3
                ActiveCell.Font.ColorIndex = 3
            End If
        Next
    Next
End Sub

 

[Atori]

Re : Vlookup, vba et couleur

Les cellules doivent se colorier selon la valeur qu'il y a en colonne B du 2ème feuillet tout en respectant la correspondance qu'il y a entre les colonnes A des deux feuillets

merci

 

[Atori]

Re : Vlookup, vba et couleur

J'ai modifié un peu le code mais ça ne fonctionne pas très bien 🙁

 

[pierrejean]

Re : Vlookup, vba et couleur

bonjour a tous

Ma version

Sub couleurs()
For n = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
  For m = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
    If Sheets("Feuil2").Range("A" & m) = Sheets("Feuil1").Range("A" & n) And Sheets("Feuil2").Range("B" & m) = "B" Then
      Sheets("Feuil1").Range("A" & n).Font.ColorIndex = 3
    End If
  Next m
Next n
End Sub

 

[Atori]

Re : Vlookup, vba et couleur

J'ai adapté ton code pierrejean et c'est parfait, tout fonctionne très bien
merci pierrejean
pas besoin de vlookup pour finir


merci à tous pour votre aide 🙂

 

[Atori]

Re : Vlookup, vba et couleur

Bonjour à tous
Si je veux appliquer ce code sur toutes les colonnes du feuillet 1 ou au moins, une plage de colonne ?

j'ai essayé de plusieurs façons avec xltoright, ou des plages ("A:ZZ"), ("A1:ZZ65536")