Suppression ligne sous condition (VRAI/FAUX) Résolu

Question

Bonsoir,

Je souhaiterai pouvoir effacer des lignes entières si dans la colonne H la réponse est FAUX.
La colonne H affiche le résultat de la formule suivante =NB.SI('Liste 2'!$A$2:$A$1127;'Feuil3 (4)'!D2)>0
Pouvez-vous m'indiquer comment créer une macro permettant de réaliser cela.

En vous remerciant.

PS : Je débute tout doucement sur VBA, merci de votre compréhension

Patrice33740 · Answer

Bonjour,

Par exemple :
Option Explicit
Sub T()
Dim w As Worksheet
Dim r As Range
Dim c As Range
Dim s As Range
    Set w = ActiveSheet
    Set r = Intersect(w.Columns("H"), w.UsedRange)
    For Each c In r.Cells
      If c.Value = False Then
        If s Is Nothing Then
          Set s = c
        Else
          Set s = Union(s, c)
        End If
      End If
    Next
    If Not s Is Nothing Then s.EntireRow.Delete
End Sub 
Cordialement
Patrice

Cifer · Answer

Bonjour,
Merci pour la proposition, mais cela ne fonctionne pas. Toutes les lignes sont supprimées...

Patrice33740 · Answer

De rien, au plaisir de te relire sur le Forum

Suppression ligne sous condition (VRAI/FAUX)

3 réponses

Votre réponse

Discussions similaires

Newsletters