Colorer par 2_clic ttes les cellules identiques d'1 colonne

bonjour à ttes et à tous,

j'ai encore besoin de vos services...

Je souhaite afin de peaufiner mon fichier, par un double-clic sur une cellule, de colorer en rouge et gras toutes les valeurs identiques de la colonne.

Je joins un exemple de mon fichier car j'ai plus de 1500 lignes dans mon fichier origine !

Merci par avance.

Bonjour,

A priori ... tu as déjà ton code dans le module de ta feuille pour un commandbutton ...

Faut-il y faire des adaptations ...???

Bonjour Bidochon34800, James007, le forum,

Un essai :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim DernLigne As Long
        DernLigne = Range("C" & Rows.Count).End(xlUp).Row

For i = 4 To DernLigne
If Range("C" & i).Value = ActiveCell.Value Then
   Range("C" & i).Font.Bold = True
   Range("C" & i).Font.ColorIndex = 3
Else
   Range("C" & i).Font.Bold = False
   Range("C" & i).Font.ColorIndex = vbBlack
End If
Next
End Sub

Cordialement,

re,

c'est pile-poil ce que je cherchais...

Merci beaucoup, cela va me faciliter grandement le boulot.

merci encore

@+