XL 2010 Delete

[CATPLUS]

Bonjour à tous
Dans cette boucle:

[A2].Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess
i = 2
Do While Cells(i, 1) <> ""
If Cells(i, 1) = Cells(i + 1, 1) Then Rows(i).Delete Else i = i + 1
Loop

la séquence "Delete" supprime tous les éléments de la ligne.

Ma question:
Y a t'il un moyen de limiter le "Delete" au 2 premieres colonnes (A & B)

Cordialement

 

[Oneida]

Bonjour,

Vous voulez effacer le contenu des cellules en A et B de la ligne?

 

[job75]

Bonjour CATPLUS, Oneida,

If Cells(i, 1) = Cells(i + 1, 1) Then Rows(i).Resize(, 2).Delete xlUp Else i = i + 1

A+

 

[Efgé]

Bonjour à tous
Surprenant d'utiliser un DELETE de haut en bas et pas l'inverse...
Cordialement

 

[CATPLUS]

Bonjour CATPLUS, Oneida,
Cells(i, 1) = Cells(i + 1, 1) Then Rows(i).Resize(, 2).Delete xlUp Else i = i + 1
A+

Bonjour à tous

@job75

Merci pour cette réponse, Cela correspond exactement à ma demande.

Cordialement

 

[job75]

Bonjour le forum,

Surprenant d'utiliser un DELETE de haut en bas et pas l'inverse...:

Une méthode plus traditionnelle :

Dim i&
With Range("A2", Cells.SpecialCells(xlCellTypeLastCell))
    .Sort .Columns(1), xlAscending, Header:=xlGuess
    For i = .Rows.Count To 2 Step -1
        If .Cells(i, 1) = .Cells(i - 1, 1) Then .Rows(i).Resize(, 2).Delete xlUp
    Next
End With

A+