Supprimer ligne

patddl -  
Frenchie83 Messages postés 2254 Statut Membre -
Bonjour,

voici encore une petite question, je voudrais faire un petit code VBA simple, j'ai chercher un peu sur le net sans trouver mon bonheur, donc je me tourne vers vous :)

Je voudrais simplement créer un petit code VBA qui s'exécuterais avec un bouton classique.

je voudrais que le code supprime toutes les lignes qui on une valeur inférieur a 99 sur la feuille "Base_de_donnée_1" en colonne "V" OU en colonne "W"

Ceci n'est pas 2 conditions mais bien un "OU"

tout ce que j'ai pu trouver sur le net c'est qu'il fallait faire une suppression du bas vers le haut.

Merci d'avance les gars

A voir également:

1 réponse

Réponse 1 / 1
Frenchie83 Messages postés 2254 Statut Membre 339
 
Bonjour
En considérant que le tableau est remplit à partir de la colonne A(colonne de référence), si ce n'est pas la cas, remplacer le "A" dans la portion de code suivante: [A100000] 

Sub SupprimerLigne()
    Application.ScreenUpdating = False
    DerLig = [A100000].End(xlUp).Row
    For i = DerLig To 2 Step -1
        If Cells(i, "V") < 99 Or Cells(i, "W") < 99 Then Rows(i).EntireRow.Delete
    Next
End Sub


Autre solution: ici, si les colonnes V et W sont vides, on n'efface pas la ligne 
Sub SupprimerLigne()
    Application.ScreenUpdating = False
    DerLig = [A100000].End(xlUp).Row
    For i = DerLig To 2 Step -1
        If Cells(i, "V") = "" And Cells(i, "W") = "" Then GoTo Suivant
        If Cells(i, "V") < 99 Or Cells(i, "W") < 99 Then Rows(i).EntireRow.Delete
Suivant:
    Next
End Sub


faite votre choix
Cdlt
0