Suppression de lignes

[www.KarlMarx.com]

Bonjour à tous,

je voudrais savoir comment intégrer une macro permettant de supprimer des lignes. Dans l'exemple en PJ, je voudrais supprimer les lignes où il existe des quantités (en rouge).

Merci d'avance,

KM

 

[BOISGONTIER]

Re : Suppression de lignes

Bonjour,

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

JB
Formation Excel VBA JB

 

[www.KarlMarx.com]

Re : Suppression de lignes

Merci bien 😉

KM

 

[www.KarlMarx.com]

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

 

[BOISGONTIER]

Re : Suppression de lignes

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

JB

 

[www.KarlMarx.com]

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

 

[BOISGONTIER]

Re : Suppression de lignes

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

 

[www.KarlMarx.com]

Re : Suppression de lignes

Merci beaucoup.

KM