XL 2010 (RESOLU) Code suppime valeur 1

Chris401

XLDnaute Accro

• 20 Décembre 2016

• #2

Bonjour

Sous réserve d'avoir compris ta demande

VB:

Sub Supprimelignes()
Application.ScreenUpdating = False
derlg = Range("E65536").End(xlUp).Row
   
For i = derlg To 6 Step -1
    If Cells(i, 5) = 1 Then Rows(i).Delete
Next i
   
End Sub

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 20 Décembre 2016

• #3

Bonjour
J'ai un souci en pj
Merci

 

Pièces jointes

• Sans titre.jpg

  245.7 KB · Affichages: 25
• SAO.xlsm

  169.5 KB · Affichages: 33

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 20 Décembre 2016

• #4

Re

Il y a des caractères entre Next i et End Sub ; supprime-les

VB:

Sub Supprimelignes()
Sheets("A").Select
Application.ScreenUpdating = False
derlg = Range("E65536").End(xlUp).Row
For i = derlg To 6 Step -1
If Cells(i, 5) = 1 Then Rows(i).Delete
Next i
End Sub

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 20 Décembre 2016

• #5

Bonjour à tous,

Ton fichier en retour. Le code VBA de "Chris401" me parait correct.

JHA

 

Pièces jointes

• SAO.xlsm

  145.7 KB · Affichages: 26

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 20 Décembre 2016

• #6

Re
j'ai été trop vite en postant et je viens de m'apercevoir qui faut supprimer tout ce qui est supérieur à 0 et j'ai une erreur en pj
merci

 

Pièces jointes

• Sans titre.jpg

  245 KB · Affichages: 21

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 20 Décembre 2016

• #7

Re
Je ne vois pas ce qui te déclenche l'erreur ; je ne l'ai pas.

VB:

Sub Supprimelignes()
Sheets("A").Select
Application.ScreenUpdating = False
derlg = Range("E65536").End(xlUp).Row
For i = derlg To 6 Step -1
If Cells(i, 5) > 0 Then Rows(i).Delete
Next i
End Sub

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 20 Décembre 2016

• #8

Bonjour
C'est top et fonctionnel.
l'erreur ne serais pas du par rapport entre Excel 2010 et 2013 car j'ai moi en 2010 lorsque j'envoi par mail mes lignes reste masquées alors qu'avec 2013 les lignes sont apparente et vide c'est pour ca que j'ai fait ce post pour contourner le problème
Merci

 

Vote positif 0 Vote négatif