Identification de cellules identiques à la cellule active

Bonjour,

est-il possible de faire en sorte que lorsque l'on sélectionne une cellule, n'importe quelle cellule de la feuille, les autres cellules de la feuille ayant la même valeur prenne une mise en forme particulière, fond jaune par exemple, puis reprenne leur aspect une fois sorti de la cellule.

Merci à vous

Bonjour

Code Module
Sub Couleur()
Dim MaCellule As Object
For Each MaCellule In Range("A2:D40")
If MaCellule = ActiveCell Then
MaCellule.Interior.ColorIndex = 6
ElseIf MaCellule <> ActiveCell Then MaCellule.Interior.ColorIndex = xlNone
End If
Next MaCellule
End Sub

Code de Sheet1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:D40")) Is Nothing Then
Call Couleur
End If
End Sub 

Cordialement

Sensiblement la même chose...

Wow, c'est parfait. On peux-tu vraiment tout faire avec Excel ?!

Encore une chose si c'est possible car je n'avais pas prévu le coup, est-il possible de faire en sorte que le système de repérage des cellules identiques ne se fasse pas sur les cellules vides ?

Merci à vous pour le coup de main.

Si seulement excel pouvait faire aussi le ménage...

Sub Couleur()
Dim MaCellule As Object
For Each MaCellule In Range("A2:D40")
If MaCellule = ActiveCell And MaCellule <> "" Then
MaCellule.Interior.ColorIndex = 6
ElseIf MaCellule <> ActiveCell Then MaCellule.Interior.ColorIndex = xlNone
End If
Next MaCellule
End Sub

Ah, dommage pour la vaisselle...

Impeccable merci.

Et la lessive...

ReBonjour,

je viens d'implanter la solution dans mon fichier et je découvre un autre truc pas ben pratique.

Le code efface le formatage (couleur de remplissage en l'occurence) des cellules identiques. Elles ne reprennent pas leur aspect une fois sorti de la cellule.

Si 3 cellules avec la même valeur ont 3 fonds différends et que je clique sur l'une d'elle, elles prennent toutes un fond jaune ce qui est correct. Mais en sortant, elles ont toutes perdu leur fond de couleur originel, ce que j'ai besoin de conserver.

Est-il possible de palier à ça ?

merci merci

Au pire, supprimez cette ligne

ElseIf MaCellule <> ActiveCell Then MaCellule.Interior.ColorIndex = xlNone

Mais se changement va faire que toutes les autres cellules contenant une couleur resteront inchangées (couleur jaune)