Suppression auto de lignes

Y compris Power BI, Power Query et toute autre question en lien avec Excel
s
silvanoss
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 16 février 2007

Message par silvanoss » 27 décembre 2011, 12:58

Bonjour à tous.
Je travaille actuellement sur une feuille de calcul où je souhaite désormais effectuer le traitement suivant:
- Dans la colonne E je n'ai que des données numériques. Certaines de ces valeurs sont 0 (zéro).
- > Je souhaiterai mettre en œuvre une macro qui me supprime automatique les lignes où un 0 est présent dans la colonne E

J'espère que j'ai été assez compréhensible..
Merci à vous.
d
dubois
Passionné d'Excel
Passionné d'Excel
Messages : 9'273
Inscrit le : 8 décembre 2007
Version d'Excel : Vista Office 2007FR

Message par dubois » 27 décembre 2011, 13:05

Bonjour,

Pour être efficace, il faudrait voir la structure réelle du fichier,
quelques lignes suffiront.

Amicalement
Claude
Faire simple, c'est ce qui est le plus compliqué ! et vice versa (à méditer)
s
silvanoss
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 16 février 2007

Message par silvanoss » 27 décembre 2011, 13:14

Voici le fichier
Supp de ligne.xls
(73.5 Kio) Téléchargé 18 fois
d
dubois
Passionné d'Excel
Passionné d'Excel
Messages : 9'273
Inscrit le : 8 décembre 2007
Version d'Excel : Vista Office 2007FR

Message par dubois » 27 décembre 2011, 14:17

re,

J'ai ajouté une ligne d'en-tête,
si tu supprime des lignes, les formules sont dans les choux !!
ici, je les convertis en valeurs, résultats à voir ??
Sub SupprZéro()
Dim Lg&
    Lg = Range("e" & Rows.Count).End(xlUp).Row
    Range("b2:e" & Lg) = Range("b2:e" & Lg).Value   'en valeur
    Range("k2") = "=e2=0"                           'critère
    Range("b1:e" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("k1:k2"), Unique:=False
    Range("k2").ClearContents
    
    Range("b2:e" & Lg).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error Resume Next
    ActiveSheet.ShowAllData
    Application.Goto Range("a1"), Scroll:=True
End Sub
Claude
silvanoss_supprZéro.xls
(159.5 Kio) Téléchargé 14 fois
Faire simple, c'est ce qui est le plus compliqué ! et vice versa (à méditer)
s
silvanoss
Nouveau venu
Nouveau venu
Messages : 5
Inscrit le : 16 février 2007

Message par silvanoss » 27 décembre 2011, 15:38

Ok, grand merci car ça a l'air de correspondre à mon besoin sur lequel je me cassais la tête.
Je vais continuer à mettre en forme cette feuille.

Silvanoss
x
xldrozink
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 9 mai 2010
Version d'Excel : 2010 FR

Message par xldrozink » 29 décembre 2011, 00:17

Bonsoir le forum

Une proposition autre
Sub pXII1129OOI()
Dim DerLigne As Long, a
DerLigne = 666: On Error Resume Next
With Range("iv1:iv" & DerLigne)
    .Value2 = ["=IF(AND(RC[-251]<>"""",RC[-251]=0),""KILL_ME_SOFTLY"","""")"]
    .Value = .Value: .SpecialCells(2, 2).EntireRow.Delete
End With
End Sub
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message