Microsoft 365 VBA Colorise Cellule identique dans feuil différente

[looky62]

Hello
Qui peut m'aider dans feuil1 colonne G2 si j'ai dans le classeur Feuil2 un doublon en colonne A2 colorise la cellule en G dans feuil1

Mon code ne marche pas si qq un a quelque chose différent qui fonctionne

Sub ColorierCellule()

Dim derniereLigne As Long derniereLigne = Worksheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row

If WorksheetFunction.CountIf(Worksheets("Feuil2").Range("A2:A" & derniereLigne), _ Worksheets("Feuil1").Range("A2").Value) > 1 Then

Worksheets("Feuil1").Range("G2").Interior.Color = RGB(255, 0, 0)

End If

End Sub

 

[Oneida]

Bonjour,

colonne G2 si j'ai dans le classeur Feuil2 un doublon en colonne A2
Vous voulez que les cellules colonne G se colorisent si les cellules colonne A en vis a vis sont identiques (G2-A2,G3-A3.........)
Exact ou pas?

 

[vgendron]

Bonjour Looky

ce n'est pas plus clair ici que la

Microsoft 365 - VBA Colorise un doublon dans feuil différente

Hello Qui peut m'aider sur cette problématique dans une feuil1 colonne G j'ai une référence qui peut etre identique à la feuil 2 en colonne A , si j'ai dans le classeur Feuil2 un doublon en colonne A2 colorise la cellule en G dans feuil1 Mon code ne marche pas si qq un a quelque chose...

excel-downloads.com

 

[looky62]

J ai trouvé ceci qui fonctionne entre temps !
Sub ColorierDoublons()

Dim lastRow As Long
Dim i As Long
Dim j As Long

'Déterminer la dernière ligne de données dans la feuille 1
lastRow = Worksheets("Feuil1").Cells(Rows.Count, "A").End(xlUp).Row

'Boucle à travers les données dans la feuille 1
For i = 2 To lastRow

'Référence actuelle
ref = Worksheets("Feuil1").Cells(i, "A").Value

'Boucle à travers les données dans la feuille 2
For j = 2 To Worksheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row

'Vérifier si la référence actuelle existe dans la feuille 2
If ref = Worksheets("Feuil2").Cells(j, "A").Value Then

'Colorer la cellule en G de la feuille 1
Worksheets("Feuil2").Cells(i, "A").Interior.Color = RGB(255, 0, 0)
Exit For

End If

Next j

Next i

End Sub

 

[fanch55]

Bonjour, si j'ai bien compris,