Supprimer des lignes disperses sur excel

A

amnay2

XLDnaute Nouveau

• 6 Juillet 2006

• #31

Re : Supprimer des lignes disperses sur excel

Bonjour porcinet82,

J'ai essayé ce programme, à mon avis il pourrait marcher pour la base, sauf qu'il faut qu'il prenne les produits detaillés et non pas general... en tout cas je vais y reflechir, c est vrai que le truc de la somme n'est pas tres logique.

Sinon, ton programme que tu avais fait pour supprimer les lignes comportant que des 0, comment je pe faire quand j'ai une colonne A ou j'ai tout les produits. en fait pour qu'il supprime toutes les lignes comportant que des 0, mais aussi le nom du produit dans la ligne.

Merci porcinet82

 

Vote positif 0 Vote négatif

A

amnay2

XLDnaute Nouveau

• 6 Juillet 2006

• #32

Re : Supprimer des lignes disperses sur excel

Bonjour porcinet82,

J'ai essayé ce programme, à mon avis il pourrait marcher pour la base, sauf qu'il faut qu'il prenne les produits detaillés et non pas general... en tout cas je vais y reflechir, c est vrai que le truc de la somme n'est pas tres logique.

Sinon, ton programme que tu avais fait pour supprimer les lignes comportant que des 0, comment je pe faire quand j'ai une colonne A ou j'ai tout les produits. en fait pour qu'il supprime toutes les lignes comportant que des 0, mais aussi le nom du produit dans la ligne.

Merci porcinet82

 

Vote positif 0 Vote négatif

A

arnaud_garou

XLDnaute Nouveau

• 7 Juillet 2006

• #33

Re : Supprimer des lignes disperses sur excel

Bon ben merci pur ton aide Porcinet en tout cas!

A bientot peut etre sur le forum!

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 7 Juillet 2006

• #34

Re : Supprimer des lignes disperses sur excel

Bonjour a tous,

Pour Amnay, voici le code modifié pour que ca fonctionne :
Sub supp_val()
Dim i&, j&, x As Byte
For i = Range("A65536").End(xlUp).Row To 1 Step -1
x = 0
For j = 2 To Range("IV" & i).End(xlToLeft).Column
If Cells(i, j).Value = 0 Then
x = x + 1
End If
If x = Range("IV" & i).End(xlToLeft).Column Then
Rows(i).Delete
Exit For
End If
Next j
Next i
End Sub

@+

 

Vote positif 0 Vote négatif

A

amnay2

XLDnaute Nouveau

• 15 Juillet 2006

• #35

Re : Supprimer des lignes disperses sur excel

Merci Porcinet82

Je suis entrain de reflechir à la logique du programme pour les doublons.

BAT

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 17 Juillet 2006

• #36

Re : Supprimer des lignes disperses sur excel

Salut Amnay,

La macro que je t'avais proposé pour enlever les doublons ne fonctionnait pas?
Si tu as des questions ou un soucis, n'hesite pas a refaire signe,

@+

 

Vote positif 0 Vote négatif