Doublon

[jeanphi]

Bonjour

J'utilise le code ci dessous pour supprimer des doublons tant que la cellule suivante n'est pas vide
Je voudrais selon le même principe supprimer la ligne même si la ligne suivante est vide
Comment puis je faire???

Sub Doublon()
Dim CelluleCourante As Range
Dim CelluleSuivante As Range

Set CelluleCourante = Sheets("Requête").Range("E5")
Do While Not IsEmpty(CelluleCourante)
Set CelluleSuivante = CelluleCourante.Offset(1, 0)
If CelluleSuivante.Value = CelluleCourante.Value Then
CelluleCourante.EntireRow.Delete
End If
Set CelluleCourante = CelluleSuivante
Loop

End Sub

 

[TooFatBoy]

Re : Doublon

Essaye en enlevant Not IsEmpty(CelluleCourante) dans le code.



[edit]
Non, j'ai dit une énorme connerie là !!! Désolé.

En fait, si j'ai bien compris ton code, tu ne supprimes pas la ligne tant que la cellule suivante n'est pas vide, mais tant que la cellule courante n'est pas vide.
Et je n'ai pas compris exactement ce que tu veux obtenir comme résultat (Que faire s'il y a plusieurs cellules vides qui se suivent ? Quel critère d'arrêt utiliser ? Etc.).
[/edit]

 

[jeanphi]

Re : Doublon

Bonjour Marcel

En fait je souhaite que la macro continue à supprimer les lignes pour lesquelles ligne + 1.Value = ligne même lorsque une cellule vide apparait
Ai je été clair??

 

[gilbert_RGI]

Re : Doublon

Bonjour

Appliquez un filtrage ensuite mettre votre code

Cdlt

RGI

 

[pierrejean]

Re : Doublon

Bonjour jeanphi
Salut Marcel
Salut Gilbert

A tester:

Sub doublons()
Dim n as Integer
For n = Range("E65536").End(xlUp).Row To 5 Step -1
  If Range("E" & n) = Range("E" & n - 1) Then Rows(n).Delete
Next n
End Sub

 

[XL_Luc]

Re : Doublon

Bonjour à tous.

Histoire de me présenter, voici une solution à ce problème.

Sub supression_doublons()
Dim i As Long

i = 5
Do
If Cells(i, 5) = Cells(i + 1, 5) And Not (IsEmpty(Cells(i, 5))) Then
Rows(i + 1).Delete
Else
i = i + 1
End If
Loop Until i > 65535
End Sub

 

[jeanphi]

Re : Doublon

Bonjour pierrot et merci pour ton aide cà marche nickel!

 

[jeanphi]

Re : Doublon

Bonjour luc


merci,ca fonctionne également parfaitement!!!