Modifier une macro pr traiter les doublons...

[Christian0258]

Bonsoir à tout le forum,

Je souhaiterais votre pour modifier cette macro (de PierreJean), pour coller le résultat en col L et partir de la ligne 2 (soit Range L2.....).

Sub supp_doublons()

Application.ScreenUpdating = False
Dim coll As Collection
Set coll = New Collection
tableau = Range("H2:H" & Range("H799").End(xlUp).Row)
For n = 1 To UBound(tableau, 1)
On Error Resume Next
coll.Add tableau(n, 1), CStr(tableau(n, 1))
On Error GoTo 0
Next n
For n = 1 To coll.Count
Range("L" & n) = coll(n)
Next n
Application.ScreenUpdating = True

End Sub

Merci pour votre aide
Bien amicalement,
Christian

 

[JCGL]

Re : Modifier une macro pr traiter les doublons...

Bonjour à tous,
Salut Christian 🙂,

Si j'ai bien tout compris remplace :

For n = 1 To coll.Count

par

For n = 2 To coll.Count

A+

Edition : Salut PJ, je ne t'avais pas vu "Présent" arf A++

 

[pierrejean]

Re : Modifier une macro pr traiter les doublons...

bonjour Christian0258

a premiere vue

Sub supp_doublons()
 
Application.ScreenUpdating = False
Dim coll As Collection
Set coll = New Collection
tableau = Range("H2:H" & Range("H799").End(xlUp).Row)
For n = 1 To UBound(tableau, 1)
On Error Resume Next
coll.Add tableau(n, 1), CStr(tableau(n, 1))
On Error GoTo 0
Next n
For n = 1 To coll.Count
Range("L" & n[COLOR=red]+1[/COLOR]) = coll(n)
Next n
Application.ScreenUpdating = True
 
End Sub

mais teste quand même

edit
Salut JC 🙂🙂

 

[Christian0258]

Re : Modifier une macro pr traiter les doublons...

Re le forum, JCGL, PierreJean,


Merci à vous deux.

Merci PierreJean pour ta macro.

Bien amicalemen,
Christian.

ça va cher ami JC