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 |
Forums