Re : Comment modifier cette macro pour ajouter un contrôle?
Re Bonjour le Forum,
voilà un macro qui est parfaite pour les doublons, une modif serait de rajouter une boucle pour éviter de modifier les diverses colonnes cel.offset(0,2) & etc
une boucle avec la variable x serait top
si c'est possible merci d'avance
a+
Papou
Sub SansDoublons()
Dim Cel As Range, MonDico As Object
Dim Rng As Range, MaLigne
Dim L As Integer, li As Integer
Dim x
x = Sheets("Recap").Range("IV1").End(xlToLeft).Column """"" ça j'ai ajouté """""
With Sheets("recap")
L = .Range("A65536").End(xlUp).Row
Set Rng = .Range("A2:A" & L)
End With
Set MonDico = CreateObject("Scripting.Dictionary")
For Each Cel In Rng
"""""mais là j'ai éssayé plein de chose sans succés """"""""
MaLigne = Cel.Offset(0, 0) & Cel.Offset(0, 1) & Cel.Offset(0, 2) & Cel.Offset(0, 3) & Cel.Offset(0, 4)
If Not MonDico.Exists(MaLigne) Then
MonDico.Add MaLigne, MaLigne
Else
Cel.Interior.ColorIndex = 3
End If
Next Cel
With Sheets("recap")
For L = .Range("A65536").End(xlUp).Row To 2 Step -1
If .Range("A" & L).Interior.ColorIndex = 3 Then .Rows(L).Delete
Next L
End With
End Sub