Supprimer ligne si condition

Pierrot93

XLDnaute Barbatruc

• 6 Novembre 2008

• #2

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.

Code:

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
@+

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 6 Novembre 2008

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Novembre 2008

• #4

Re : Supprimer ligne si condition

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

 

Vote positif 0 Vote négatif

E

elodon

Guest

• 12 Novembre 2008

• #5

Re : Supprimer ligne si condition

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

 

Vote positif 0 Vote négatif

E

elodon

Guest

• 12 Novembre 2008

• #6

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

 

Vote positif 0 Vote négatif

E

elodon

Guest

• 12 Novembre 2008

• #7

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

 

Pièces jointes

• etude PEI1.zip

  21.3 KB · Affichages: 65

Dernière modification par un modérateur: 12 Novembre 2008

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 12 Novembre 2008

• #8

Re : Supprimer ligne si condition

Bonsoir Elodon, Dull🙂

modifies avec le code ci-dessous :

Code:

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
@+

 

Vote positif 0 Vote négatif

E

elodon

Guest

• 13 Novembre 2008

• #9

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2008

• #10

Re : Supprimer ligne si condition

Bonjour Elodon

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

Code:

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.
@+

 

Vote positif 0 Vote négatif

E

elodon

Guest

• 13 Novembre 2008

• #11

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

 

Pièces jointes

• TEST2.zip

  16.6 KB · Affichages: 42
• TEST2.zip

  16.6 KB · Affichages: 40
• TEST2.zip

  16.6 KB · Affichages: 45

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 13 Novembre 2008

• #12

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"

Cliquez pour agrandir...

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

Code:

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

@+

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 13 Novembre 2008

• #13

Re : Supprimer ligne si condition

Salut Elodon, Pierrot 🙂, le Forum

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

Code:

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

Code:

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

 

Dernière édition: 13 Novembre 2008

Vote positif 0 Vote négatif

E

elodon

Guest

• 13 Novembre 2008

• #14

Re : Supprimer ligne si condition

Merci pierrot, c'est génial
Merci dull

Vous êtes tres sympas

 

Vote positif 0 Vote négatif