Mettre une cellule en jaune quand le contenue correspond a une des valeurs d'une colonne d'un autre onglet

Franc58 à dit:

Salut, voici une proposition en vba, c'est sûrement faisable aussi avec une mise en forme conditionnelle.

VB:

Sub SurlignerCorrespondances()
    Dim wsParticipants As Worksheet
    Dim wsComptes As Worksheet
    Dim lastRowParticipants As Long
    Dim lastRowComptes As Long
    Dim i As Long
    Dim j As Long
    Dim matchFound As Boolean
   
    ' Définir les feuilles
    Set wsParticipants = ThisWorkbook.Sheets("Feuil1") ' Feuille des participants
    Set wsComptes = ThisWorkbook.Sheets("Feuil2") ' Feuille des comptes
   
    ' Trouver la dernière ligne dans les deux feuilles
    lastRowParticipants = wsParticipants.Cells(wsParticipants.Rows.Count, "B").End(xlUp).Row
    lastRowComptes = wsComptes.Cells(wsComptes.Rows.Count, "A").End(xlUp).Row
   
    ' Boucle sur chaque participant
    For i = 2 To lastRowParticipants ' Commence à 2 pour ignorer les en-têtes
        matchFound = False
       
        ' Boucle sur chaque compte pour trouver une correspondance
        For j = 2 To lastRowComptes
            If wsParticipants.Cells(i, 2).Value = wsComptes.Cells(j, 1).Value Then
                matchFound = True
                Exit For
            End If
        Next j
       
        ' Si une correspondance est trouvée, surligner la ligne
        If matchFound Then
            wsParticipants.Rows(i).Interior.Color = RGB(255, 255, 0) ' Couleur jaune
        End If
    Next i
   
    MsgBox "Surlignage terminé !"
End Sub

Cliquez pour agrandir...

Celline à dit:

merci beaucoup je vais tester de suite

Cliquez pour agrandir...

Celline à dit:

le plus simple pour moi serait d'avoir une croix devant les occurences de la feuille 1 d'ont le contenu de la colonne Company, existe dans la feuille 2

Cliquez pour agrandir...

=(LIGNE()>1)*NB.SI(Feuil2!$D:$D;$D1)

job75 à dit:

Bonjour à tous,

Pourquoi une croix ? Vous avez demandé de colorer en jaune alors voyez la MFC dans le fichier joint :

Code:

=(LIGNE()>1)*NB.SI(Feuil2!$D:$D;$D1)

A+

Cliquez pour agrandir...

=(LIGNE()>1)*NB.SI(Feuil2!$D:$D;$D1)