Colorer les cellules d'une feuille suivant la cellule active

Bonjour,

je voudrais que toute les cellules d'une feuille se colorent en blanc sur fond bleu par exemple si elle sont identiques à le cellule active. Par exemple, si je clique sur 4 en colonne A, je veux que tous les cellules contenant un 4 dans la feuille changent de couleur, idem si je clique sur le 6 de la colonne J ou 9 en colonne G,...

PS : Il ne faut pas que la ligne 1 soit impactées et le nombre de ligne est amené à grandir

J'ai cherché mais sans succès ;)

Merci

Akhlan

Je te propose cette petite macro :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Integer, j As Long
    Dim nC As Integer, nL As Long
    Dim wS As Worksheet

    Set wS = ActiveSheet

    nL = wS.UsedRange.Rows(wS.UsedRange.Rows.Count).Row
    nC = wS.UsedRange.Columns(wS.UsedRange.Columns.Count).Column

    ' On retire toutes les couleurs de la plage
    Application.ScreenUpdating = False
    For i = 1 To nC
        For j = 2 To nL
            Cells(j, i).Interior.ColorIndex = 0
        Next j
    Next i

    ' On Colorise les cellules
    For i = 1 To nC
        For j = 2 To nL
            If wS.Cells(j, i).Value <> "" Then
                If wS.Cells(j, i) = Target.Value Then wS.Cells(j, i).Interior.Color = RGB(255, 255, 0)
            End If
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

Merci Optimix, ça fonctionne super bien ;)

Juste un petit bug, quand je sélectionne 2 cases ou toute la feuille pour ajuster la largeur des cellules par exemple, j'ai une erreur VBA...

J'aurais aimé aussi une macro qui liste les données différentes (par ordre alphabétique) et place à côté le nom des colonnes ou cette référence est présente (j'ai mis un exemple dans le classeur)

Il n'a jamais été prévu de sélectionner plus d'une cellule dans votre demande. Quant au 2e point, là on est sur tout autre chose. Désolé.

Bonjour

Vous pouvez ajouter :

If Target. CountLarge > 1 Then Exit Sub

A mettre en début de code...

@ bientôt

LouReeD

Merci LouReeD ;)

Merci @ vous !

@ bientôt

LouReeD