Rapport de message :*
 

Re: aide doublons vba

Titre du sujet : Re: aide doublons vba
par bhbh le 24/10/2008 21:35:25

Re-,

Didier, code légèrement modifié

pour initialiser les comptes

Sub hubert()
t = Timer
Application.ScreenUpdating = False
Dim MesNums As Object, Cel As Range, Cde As Integer
Set MesNums = CreateObject("Scripting.Dictionary")
Cde = 1
For Each Cel In Range("B1:B" & [B65000].End(xlUp).Row)
    If Not MesNums.Exists(Cel.Value) Then
        MesNums.Add Cel.Value, Cde
        Cel.Offset(0, 1).Value = Cde
        Cde = Cde + 1
    Else
        temp2 = MesNums.items
        temp1 = MesNums.keys
        For i = 0 To MesNums.Count
            If temp1(i) = Cel.Value Then Cells(Cel.Row, 1).Value = temp2(i): Exit For
        Next i
    End If
Next Cel
[G2] = Timer - t
End Sub