Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 VBA Colorise Cellule identique dans feuil différente

looky62

XLDnaute Occasionnel
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

XLDnaute Impliqué
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

XLDnaute Barbatruc
Bonjour Looky

ce n'est pas plus clair ici que la
 

looky62

XLDnaute Occasionnel
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
 

Discussions similaires

Réponses
3
Affichages
523
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…