Bonjour les Zéros !

J'ai un problème que je n'arrive pas à résoudre. J'ai un tableau avec des valeurs et surtout beaucoup de 0. Dans une colonne, (ici la "U") j'ai fait la somme de chaque ligne pour voir si dans la ligne il n'y avait que des 0 ou non. J'aimerais supprimer les lignes où la somme en U est égale à 0.

J'ai donc trouvé une macro sur le net (que j'ai comprise et adaptée) mais qui ne fonctionne pas (je débute en VBA) :

Sub Doublons()
    For Each cellule In Range("U2:U1000")
        If cellule.Value = 0 Then Row(cellule.Row).Delete
    Next
End Sub

Quelqu'un pourrait m'expliquer pourquoi ça ne marche pas ? Si je ne suis pas assez clair, merci de me le dire !

 

Salut,

ça devrait fonctionner comme ça :

Sub Doublons()
    For Each cellule In Range("U2:U1000")
        If cellule.Value = 0 Then cellule.Delete
    Next
End Sub

P.S : N'oublie pas de préciser sur quelle feuille tu vas devant le range sinon tu peux avoir des erreurs. Donc par exemple Worksheets(1).Range("U2:U1000")

Edit : Ceci dit il va y avoir un problème quand même car si deux zéros se suivent seulement le premier sera supprimé. La boucle va de cellule en cellule or quand on en supprime une toutes les autres cellules remontent et donc la boucle ignore une cellule (celle qui a pris la position de la cellule que l'on a supprimé)

-
Edité par Yru4ma 17 juillet 2015 à 10:14:09

Merci de ta réponse Par contre elle ne répond pas vraiment à ma demande : je voudrais supprimer la LIGNE où il y a le 0 et non juste la cellule. C'est pour ça que j'avais Row sur mon exemple. Tu as une solution pour ça ?

Merci d'avance

EDIt : quand je dis dans le premier post que ça ne fonctionne pas, ce n'est pas tout à fait exact : cela fonctionne jusqu'à un moment où EXCEL m'affiche "Erreur d'exécution '13' : incompatibilité de type"

-
Edité par Roadie ! 17 juillet 2015 à 10:21:57

Ok dans ce cas c'est cellule.entirerow.delete

Cela marche mieux mais j'ai encore un problème ... Certaines lignes où le résultat en U est 0 ne sont toujours pas supprimées, et je ne sais pas pourquoi Au début je penser que c'était à cause de "#VALEUR!" mais même en les enlevant cela ne marche pas ...

Surement par rapport à mon Edit du premier message. Si tu as deux zéros d'affilés le deuxième ne sera pas supprimé. Il faut mieux utiliser une boucle while dans ce cas là :

Sub Doublons()
    Dim compt as Integer
    compt = 2
    Do While compt <= 1000
        If Cells(compt,21).Value = 0 Then
            Cells(compt,21).EntireRow.Delete
        Else
            compt = compt + 1
        End if
    Loop
End Sub

Quand tu disais deux zéros de suite, je croyais que tu parlais de deux zéros dans une même cellule, je n'avais pas compris Du coup ta macro marche très bien, merci beaucoup pour ton aide !!!

Par ailleurs, puisque j'essaye de me former en VBA (un peu), j'aimerais juste que tu m'expliques pourquoi tu as mis Cells(compt,21). Pourquoi tu as écrit cela ?

Merci encore !

En fait Cells veut dire cellule. Le premier argument (ici compt) est la ligne et le deuxième (ici 21) est la colonne. C'est une alternative à Range que je préfère personnellement. Si tu veux te former en VBA je te conseille ce PDF il est assez complet.

-
Edité par Yru4ma 17 juillet 2015 à 10:53:47

Ok, merci pour tout !

De rien ! N'oublie pas de passer ton topic en résolu 

Question subsidiaire (pas nécessaire, mais ça ferait plus joli) : si je souhaite ignorer les #VALEUR!, que dois-je ajouter au code ? J'ai vu qu'il existait la fonction SIERROR, mais je ne trouve pas son équivalent VBA :)

Je sais que ça fait beaucoup de questions, mais je suis une bille en VBA et j'apprends avec les codes que je crée en enregistrement pour l'instant x) (je regarderai le PDF un peu plus tard)

L'équivalent de SIERROr en VBA est tout simplement IfError et tu trouveras l'aide de cette fonction ici. Je te laisse tenter de l'utiliser (il faut bien apprendre ), n'hésite pas si tu n'arrives pas à tes fins

Ok, je reviendrai te dire si ça marche dès que j'aurai testé

Totalement différent d'ailleurs, mais ça aiderait à clarifier mon code (qui fait quand même plus de 800 lignes) : les ActiveWindow.ScrollRow = 40, ActiveWindow.ScrollRow = 39, ActiveWindow.ScrollRow = 38 qui permettent d'étendre une formule, y'a pas moyen de les remplacer par une seule ligne ?

Pour tout te dire je sais même pas ce que c'est que ScrollRow (ça vient de l'enregistreur de macro ?). Pour étendre une formule j'utilise FillDown (aide ici)

C'est exactement ça, c'est quand tu prends le petit carré en bas à droite de ta cellule et que tu étends son contenu ! Merci encore (beaucoup de questions mais j'apprends vite, je suis en train de retoucher mon code pour l'étendre à plusieurs années )

Bon, en fait pour le Scrollrow ça venait bien de l'enregistreur, je viens de comprendre ! Ca s'enregistre automatiquement quand tu remontes avec la molette

Du coup ça nettoie bien mon code !

-
Edité par Roadie ! 17 juillet 2015 à 16:01:28

Du coup je dois mettre ? :)

Iferror Cells(compt,21) Then
  Cells(compt,21) EntireRow.Delete

Pour faire quoi ? Quoiqu'il en soit en l'état c'est faux car ta condition ne teste rien 

Pour supprimer les lignes avec #VALEUR!

Ah mince, il faut que je mette quoi après Iferror ?