Suppression doublons

tototiti2008

XLDnaute Barbatruc

• 25 Décembre 2012

• #2

Re : Suppression doublons

Bonjour DJARNAUD,

Joyeux Noël

Edit : à tester :

Code:

Sub test()
Dim i As Long
    For i = Range("B65536").End(xlUp).Row To 2 Step -1
        If Range("B" & i).Value = "Noël" Then
            Range("B" & i).EntireRow.Delete
        End If
    Next i
End Sub

ReEdit : il est possible qu'un lutin du père noël ait changé un mot dans la macro proposée, chercher l'erreur

 

Dernière édition: 25 Décembre 2012

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 25 Décembre 2012

• #3

Re : Suppression doublons

Bonjour,

[B2:B65000].Replace "citroen", ""
[B2:B65000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete


JB

 

Vote positif 0 Vote négatif

Solution

D

DJARNAUD

XLDnaute Occasionnel

• 25 Décembre 2012

• #4

Re : Suppression doublons

Merci beaucoup pour votre aide!! Et joyeux noël également!!

 

Vote positif 0 Vote négatif