Supprimer ligne si condition

[elodon]

Bonjour,
Je recherche une macro ou apprendre à faire une macro qui me permet de supprimer des lignes d'un tableau si plusieurs conditions, soit :

- Supprimer les Lignes qui sont barrées
- Soit les lignes dont la valeur dans la dernière colonne ont comme valeur "Non"

Et appliquer cette macro sur la feuille sélectionnée. Et non pas sur le classeur entier

Merci d'avance, en espérant trouver quelqu'un qui sache m'aider

 

[Pierrot93]

Re : Supprimer ligne si condition

Bonjour Elodon

regarde le code ci-dessous, supprime la ligne si dans la dernière colonne renseigné il y a "NON", peu importe la casse.

A noter, l'utilisation de la colonne A pour déterminer la dernière ligne du tableau, à adapter selon le cas.

Option Explicit
Sub test()
Dim i As Integer
For i = Range("A65536").End(xlUp).Row To 1 Step -1
    If UCase(Range("IV" & i).End(xlToLeft).Value) = "NON" Then Rows(i).Delete
Next i
End Sub

bonne journée
@+

 

[Dull]

Re : Supprimer ligne si condition

Re elodon ami Pierrot🙂, le Forum

Et pour ce qui est des Lignes Barrées et, Couplée à l'excellent code de Pierrot j'aienlevélemiencarilm'auraisencoretraitédecopieur 😀 Même pas vrai j'étais en train de chercher 😱 Heureusement que j'avais rafraichis l'écran

Option Explicit

Sub test()
Dim i As Integer, C As Range
    For i = Range("A65536").End(xlUp).Row To 1 Step -1
        For Each C In Range("A1:A" & Range("A65536").End(xlUp).Row)
            If UCase(Range("IV" & i).End(xlToLeft).Value) = "NON" Then Rows(i).Delete
            If C.Font.Strikethrough = True Then C.EntireRow.Delete
        Next C
    Next i
End Sub

Bonne Journée

 

[Pierrot93]

Re : Supprimer ligne si condition

Re, lol😀, juste pour saluer Dull🙄, bonne journée à toi lointain ami...🙂

 

[elodon]

Re : Supprimer ligne si condition

Dsl, de ma réponse tardive
merci beaucoup pour les infos
je vais de suite les tester

 

[elodon]

Re : Supprimer ligne si condition

Donc, j'ai essayé de mettre en application ta macro
mais je n'y arrive pas
je te transmet mon fichier, afin que tu puisse me montrer la manip
je te remercie d'avance

 

[elodon]

Re : Supprimer ligne si condition

Donc, j'ai essayé de mettre en application ta macro
mais je n'y arrive pas
je te transmet mon fichier, afin que tu puisse me montrer la manip
je te remercie d'avance

 

[Pierrot93]

Re : Supprimer ligne si condition

Bonsoir Elodon, Dull🙂

modifies avec le code ci-dessous :

Option Explicit
Sub test()
Dim i As Integer
For i = Range("K65536").End(xlUp).Row To 12 Step -1
    If UCase(Range("IV" & i).End(xlToLeft).Value) = "NON" Then Rows(i).Delete
Next i
End Sub

bonne soirée
@+

 

[elodon]

Re : Supprimer ligne si condition

Cool merci, cela marche très bien dans le tableau suivant , c'est parfait!

Par contre, dsl, si je suis chiant, mais il ne passe pas dans le nouveau tableau excel que j'ai créé
j'ai pourtant remplacer la valeur "K65536" par "Y65536" , ou se trouve maintenant les valeurs "non" dans la colonne Y
et rien ne fais

Que dois-je modifier pour que cela marche sur celui ci?Dois changer quelque chose à ta ta macro?

 

[Pierrot93]

Re : Supprimer ligne si condition

Bonjour Elodon

as tu aussi éventuellement modifié le "12", qui correspond à la première ligne testée ?

For i = Range("K65536").End(xlUp).Row To [B][COLOR="Red"]12[/COLOR][/B] Step -1

A noter, que sans précision du nom de la feuille, ce code s'applique à la feuille active.

bon après midi.
@+

 

[elodon]

Re : Supprimer ligne si condition

Non la ligne n'a pas changée
je te montre montre tableau

tu me diras ce que tu pense, je ne vois pas la solution

merci d'avance

 

[Pierrot93]

Re : Supprimer ligne si condition

Re,

le code donné recherchait la dernière colonne cf ta demande initiale...

Bonjour,
Je recherche une macro ou apprendre à faire une macro qui me permet de supprimer des lignes d'un tableau si plusieurs conditions, soit :

- Supprimer les Lignes qui sont barrées
- Soit les lignes dont la valeur dans la dernière colonne ont comme valeur "Non"

en fait il faut cibler la colonne Y, code ci-dessous modifié, devrait mieux fonctionner :

Sub test()
Dim i As Integer
For i = Range("Y65536").End(xlUp).Row To 12 Step -1
    If UCase(Range("Y" & i).Value) = "NON" Then Rows(i).Delete
Next i
End Sub

@+

 

[Dull]

Re : Supprimer ligne si condition

Salut Elodon, Pierrot 🙂, le Forum

Deux Soucis dans ton Fichier
non 1 puisque tu a remplacer K par Y 😛

If UCase(Range("IV" & i).End(xlToLeft).Value) = "NON" Then Rows(i).Delete

veux dire:

Si la cellule immédiatement non vide depuis la dernière colonne (IV) est = à NON alors la supprimer la Ligne

La dernière colonne non Vide contient "A revoir", "Ok"

Essaye alors

If UCase(Range("AA" & i).End(xlToLeft).Value) = "NON" Then Rows(i).Delete

et ca devrait aller

EDITION: Arf Pierrot 🙂 suis toujours en bas débit 😛 Heu...commentçaj'mejustifie? 😉
RE EDITH: Même pas penser à cibler la colonne Y 😱
Bonne Journée

 

[elodon]

Re : Supprimer ligne si condition

Merci pierrot, c'est génial
Merci dull

Vous êtes tres sympas