doublons

[irenee]

Bonjour à tous
j'aimerai écrire une fonction ou une macro qui repere les doublons dans une collonne et les colorie en vert.
Merci

 

[BERRACHED said]

Re : doublons

Salut,irenne

voila ce que tu veux de notre ami JB :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 And Target.Count = 1 Then
  If Application.CountIf([A:A], Target) > 1 And Target <> "" Then
     MsgBox "Doublon"
     Target = [mémo]
  End If
 End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Column = 1 And Target.Count = 1 Then
    ActiveWorkbook.Names.Add Name:="mémo", RefersToR1C1:="=" & Chr(34) & Target.Value & Chr(34)
  End If
End Sub

Cordialement

 

[Roland_M]

Re : doublons

bonsoir

Sub ColorCellDoublon()
Set MonDico = CreateObject("Scripting.Dictionary")
Colon$ = "A" ' <<<<<<<<<< colorer les doublons en colonne au choix !?
NoPremLig = 1 ' prem ligne
NoDernLig = Cells(Rows.Count, Colon$).End(xlUp).Row ' dern ligne
' boucle
For NoLig = NoPremLig To NoDernLig
 If Cells(NoLig, Colon$) <> "" Then
    Var$ = Cells(NoLig, Colon$)
    If Not MonDico.Exists(Var$) Then ' ajoute
       MonDico.Add Var$, Var$
    Else ' sinon existe déjà
       Cells(NoLig, Colon$).Interior.ColorIndex = 4 'vert clair
    End If
 End If
Next
End Sub