Suppression de lignes

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Juillet 2008

• #2

Re : Suppression de lignes

Bonjour,

[C2:C65000].SpecialCells(xlCellTypeConstants, 23).EntireRow.Delete

JB
Formation Excel VBA JB

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 15 Juillet 2008

• #3

Re : Suppression de lignes

Merci bien 😉

KM

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 15 Juillet 2008

• #4

Re : Suppression de lignes

Re bonjour,

je voudrais dans le même style que précédemment supprimer les lignes avec des quantités mais sans référence (rouge).

KM

 

Pièces jointes

• Exemple pour macro.xls

  22 KB · Affichages: 39
• Exemple pour macro.xls

  22 KB · Affichages: 41
• Exemple pour macro.xls

  22 KB · Affichages: 42

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Juillet 2008

• #5

Re : Suppression de lignes

[A2:A65000].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

JB

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 15 Juillet 2008

• #6

Re : Suppression de lignes

OK mais j'avais mal formulé mon exemple. Voici les possibilités sachant que je veux supprimer les lignes en rouges c'est-à-dire avec un numéro de référence et une quantité sans que les autres soient affectés.

KM

 

Pièces jointes

• Exemple pour macro.xls

  22 KB · Affichages: 57
• Exemple pour macro.xls

  22 KB · Affichages: 59
• Exemple pour macro.xls

  22 KB · Affichages: 60

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 15 Juillet 2008

• #7

Re : Suppression de lignes

Code:

Sub sup()
DerLig = [A1].CurrentRegion.Rows.Count
For i = DerLig To 2 Step -1
  If Cells(i, 1) <> "" And Cells(i, 3) <> "" Then
     Rows(i).Delete
  End If
Next i
End Sub

JB

 

Vote positif 0 Vote négatif

W

www.KarlMarx.com

Guest

• 15 Juillet 2008

• #8

Re : Suppression de lignes

Merci beaucoup.

KM

 

Vote positif 0 Vote négatif