XL 2010 Delete

Oneida

XLDnaute Impliqué

• 28 Février 2024

• #2

Bonjour,

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Février 2024

• #3

Bonjour CATPLUS, Oneida,

VB:

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

A+

 

Vote positif 0 Vote négatif

Solution

Efgé

XLDnaute Barbatruc

• 28 Février 2024

• #4

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

 

Vote positif 0 Vote négatif

C

CATPLUS

XLDnaute Junior

• 29 Février 2024

• #5

job75 à dit:

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

Cliquez pour agrandir...

Bonjour à tous

@job75

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

Cordialement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Février 2024

• #6

Bonjour le forum,

Efgé à dit:

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

Cliquez pour agrandir...

Une méthode plus traditionnelle :

VB:

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+

 

Vote positif 0 Vote négatif