help CREEPY doublon !

[bertgrav]

bonjour,

il y a quelques temps j'ai eu cette macro de CREEPY; elle fonctionne trés bien, j'enléve bien les doublons.

par contre en adaptant mon travail à cette macro, j'en ai profité pour renseigner un case laissée libre, et c'est là que ça se corse (d'ailleurs là bas aussi) je voudrais garder la ligne de tête et supprimer la ligne du bas en doublon , c'est à dire l'inverse de ce qui se passe actuellement. (la 1ere ligne est supprimée et la seconde est gardée)

est ce que quelqu'un peut me rectifier cette macro.

merci

chantal

Private Sub CommandButton1_Click()
Dim I As Integer, X As Integer
Dim Quoi As String, Qui As String
Fin = Feuil1.Range('E65535').End(xlUp).Row

For I = Fin To 2 Step -1
Quoi = UCase(Feuil1.Range('E' & I).Value)
For X = I - 1 To 2 Step -1
Qui = UCase(Feuil1.Range('E' & X).Value)
If Quoi = Qui Then
Rows(X & ':' & X).Select
Selection.Delete Shift:=xlUp
End If
Next
Next
End Sub

 

[JMH]

Salut

Je pense que

Rows(X + 1 & ':' & X + 1).Select

devrait te convenir.

 

[JMH]

Salut

Je pense que

Rows(X + 1 & ':' & X + 1).Select

devrait te convenir.

 

[ChTi160]

Salut bertgrav
bonsoir le Fil

moi j'avais pensé, peut être bêtement Lol
que si l'on compare deux lignes via X et I que si l'on supprime

Rows(X & ':' & X )

l'inverse est

Rows(I & ':' & I)


bon Week End

 

[Creepy]

Bonsoir

1 - bertgrav il ne faut PAS POSTER DE MESSAGES NOMITAIFS !!! Regarde la charte du forum !

Il me semble pourtant déjà t'avoir fait une remarque sur les bonnes manières du Forum !

2 - +1 Pour ChTi160 qui a la solution, si tu n'as pas compriscela c'et je pense que tu n'as pas dû comprendre le code !

@+

Creepy

 

[bertgrav]

j'ai bien entendu le message

je l'appliquerais pour les prochaines fois

merci quand même

amicalement

chantal