supression automatique de lignes ?

[jopont]

Bonjour,

dans le tableau ci-joint, j'aimerais supprimer toutes les lignes ou il n'y a pas "somme", Je souhaiterais que les lignes restantes soient ensuite les unes au dessous des autres.

est-ce possible de faire ça automatiquement ?

merci

 

[GPLIONEL]

Re : supression automatique de lignes ?

Bonjour Jopon,

as-tu essayé l'option filtre automatique comme sur l'exemple joint.
Dans la colonne "Code 2" tu sélectionnes "Somme"

 

[BOISGONTIER]

Re : supression automatique de lignes ?

Bonjour,

For i = [B65000].End(xlUp).Row To 1 Step -1
    If Cells(i, 2) = "somme" Then Rows(i).Delete
Next i

ou

    [B:C].Replace What:="somme", Replacement:=""
    [B:C].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

JB

 

[jopont]

Re : supression automatique de lignes ?

La macro supprime les lignes ou il y a "somme"
C'est l'inverse que je désire.
merci

 

[tiow]

Re : supression automatique de lignes ?

Salut,
En reprenant le code ci dessus:

For i = [B65000].End(xlUp).Row To 1 Step -1
    If Cells(i, 2) [COLOR="Red"]<>[/COLOR] "somme" Then Rows(i).Delete
Next i

 

[jopont]

Re : supression automatique de lignes ?

merci j'avais essayé avec <> "somme".

Comment exécuter la macro sur une autre feuille.
Les données sont sur une feuille astreinte, et j'aimerais exécuter la macro sur une feuille résultat
merci

 

[jopont]

Re : supression automatique de lignes ?

J'ai intégré la macro suivante dans ma feuille, mais quand je l'exécute elle supprime toute les lignes


Sub supression_ligne()
For I = [H65000].End(xlUp).Row To 1 Step -1
If Cells(I, 2) <> "somme" Then Rows(I).Delete
Next I
End Sub

je vous joint le fichier
merci

 

[jopont]

Re : supression automatique de lignes ?

quelqu'un peut-il m'aider
merci

 

[BOISGONTIER]

Re : supression automatique de lignes ?

Sub supression_ligne()
For I = [H65000].End(xlUp).Row To 1 Step -1
    If Cells(I, 8) <> "Somme:" Then Rows(I).Delete
Next I
End Sub

JB

 

[papapaul]

Re : supression automatique de lignes ?

🙂 Salut,

remplace ca
If Cells(I, 2) <> "somme" Then Rows(I).Delete

par ca
If Cells(I, 8) <> "Somme:" Then Rows(I).Delete

Ca devrait aller.

@+

 

[jopont]

Re : supression automatique de lignes ?

ok merci je comprend mon erreur.
est ce qu'il est possible de l'exécuter sur une autre feuille.
merci

 

[papapaul]

Re : supression automatique de lignes ?

🙂 Re jopont,
Bien sur c'est possible.
Mais pour ca tu mets le code dans un Module et
pas sur la feuille seulement.
Tu choisis ta feuille et tu fais :
Outils/Macro/Executer
Le tour est joué.
Regarde le fichier joint.
Bon Courage.😉

 

[jopont]

Re : supression automatique de lignes ?

merci pour vos contributions

dans le module il faut que j'indique la feuille ou je prend les données ?

 

[www.KarlMarx.com]

Re : supression automatique de lignes ?

Bonjour, ayant un problème presque similaire à Jopont, je me permet à mon tour de vous solliciter. En effet, je souhaite supprimer les lignes pour lesquelles les montant sont égaux à 0 et faire également en même temps remonter les lignes. J'ai mis un exemple en PJ.

Merci d'avance.

KM

 

[tiow]

Re : supression automatique de lignes ?

Salut,
Tu reprends le code donné précedemment:

For i = [E65000].End(xlUp).Row To 1 Step -1
    If Cells(i, 5) = 0 Then Rows(i).Delete
Next i

Tu mets Cells(i, 5); 5 correspondant à ta colonne E qui contient les Montants

@+