Suppression de la ligne si une colonne donnée comprend un caract

Question

Bonjour à tous,

Je débute en programmation VBA et j'ai essayé d'écrire un code pour le besoins suivant

J'ai crée un tableau avec en têtes, et je voudrais que ligne par ligne, le programme vérifie si la colonne H contient le terme oui. Si c'est le cas, je veux que le programme supprime la ligne, et passe à la ligne suivante pour vérifier.

J'ai essayé de programmer cela mais il ne se passe rien  : 

Sub SUPPRIMEBAL()

Dim Derligne As Integer
Dim NumLigne As Integer
Dim Val As String

Derligne = 50
NumLigne = Derligne

Sheets("Feuil1").Select


For NumLigne = Derligne To 3 Step -1
    
    If Range("H" & NumLigne) = Val Then
   
            Rows(NumLigne).Delete Shift:=xlUp
    End If
        
Next NumLigne

End Sub


Pouvez-vous m'aider svp ?

Cordialement

Pierrot

Polux31 · Answer

Bonjour,

Peut être qu'en initialisant val ça marcherait :)

'...
val = "OUI"
If Ucase(Range("H" & NumLigne)) = Val Then
     Rows(NumLigne).Delete
End If
'....
 
«Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» 
Nicolas Boileau

Suppression de la ligne si une colonne donnée comprend un caract

1 réponse

Discussions similaires

Newsletters