Verba_Tim
XLDnaute Occasionnel
Bonjour le fil
Je reviens vers vous parce que le passage de 2007 à 2003 est vraiment... violent... à s'en arracher les cheveux parfois
J'en appel à votre savoir faire imcomparable
Donc je suis en train de bosser sur un projet de macro simple (en théorie), qui me pose le problème suivant:
Je souhaite que ma macro me supprime les doublons d'une liste de donné, mais attention! Seulement les doublons non coloré en vert... ou n'importe lequel des deux si les deux sont coloré.
exemple:
xyz-000
xyz-000 (vert)
xyz-001 (vert)
xyz-001
xyz-002
xyz-003 (vert)
xyz-003 (vert)
abc-001
abc-001 (vert)
J'ai fait une petite macro qui me supprime les doublons parfaitement:
j'ai tenté la méthode
mais ça n'a pas l'air de fonctionné...
Aidez moi s'il vous plait
Ps: Va vraiment falloir que je fasse pression sur mes boss pour qu'ils passent en 2007
Je reviens vers vous parce que le passage de 2007 à 2003 est vraiment... violent... à s'en arracher les cheveux parfois
J'en appel à votre savoir faire imcomparable
Donc je suis en train de bosser sur un projet de macro simple (en théorie), qui me pose le problème suivant:
Je souhaite que ma macro me supprime les doublons d'une liste de donné, mais attention! Seulement les doublons non coloré en vert... ou n'importe lequel des deux si les deux sont coloré.
exemple:
xyz-000
xyz-000 (vert)
xyz-001 (vert)
xyz-001
xyz-002
xyz-003 (vert)
xyz-003 (vert)
abc-001
abc-001 (vert)
J'ai fait une petite macro qui me supprime les doublons parfaitement:
Code:
Sub Doublons()
Dim i As Integer, k As Integer, var As Integer
For i = 2 To Range("J65536").End(xlUp).Row
var = 0
nom1 = Range("J" & i).Value
For k = i + 1 To Range("J65536").End(xlUp).Row
nom2 = Range("J" & k).Value
'If Range("J" & k).ColorIndex = 4 Then
If nom2 = nom1 Then
var = 1
k = k - 1
Rows(k).Delete
End If
Next k
If var = 1 Then Rows(k).Delete
Next i
End Sub
j'ai tenté la méthode
Code:
'If Range("J" & k).ColorIndex = 4 Then
Aidez moi s'il vous plait
Ps: Va vraiment falloir que je fasse pression sur mes boss pour qu'ils passent en 2007