Macro excel supprimer ligne contenant valeur déf par cellule

jdeveau -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention - 29 avril 2015 à 14:02

Bonjour,

Je cherche à faire le code suivant, avec des recherches de valeur comprise dans les cellules de C7 à C125 et je ne sais pas comment introduire cette variable :

Sub supjf3()

For i = 2 To 50000

Sheets("PBd").Select

If Cells(i, 15).Value = Sheets("jf").Range("C7").Value Then
Rows(i).Delete
i = i - 1

End If

If Cells(i, 15).Value = Sheets("jf").Range("C8").Value Then
Rows(i).Delete
i = i - 1

End If

If Cells(i, 15).Value = Sheets("jf").Range("C9").Value Then
Rows(i).Delete
i = i - 1
End If

If Cells(i, 15).Value = Sheets("jf").Range("C10").Value Then
Rows(i).Delete
i = i - 1
End If

If Cells(i, 15).Value = Sheets("jf").Range("C11").Value Then
Rows(i).Delete
i = i - 1
End If

If Cells(i, 15).Value = Sheets("jf").Range("C12").Value Then
Rows(i).Delete
i = i - 1
End If

Next i

End Sub

Merci

Afficher la suite

A voir également:

Macro excel supprimer ligne contenant valeur déf par cellule
Supprimer rond bleu whatsapp - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Liste déroulante excel - Guide

1 réponse

Réponse 1 / 1

michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention 3 314

Bonjour
essaies

Option Explicit
'------
Sub supprimer_si()
Dim Lig As Byte

Application.ScreenUpdating = False
With Sheets("PBd")
    For Lig = 125 To 2
        If .Cells(Lig, 15) = Sheets("jf").Cells(Lig, 3) Then Rows(Lig).Delete
    Next
End With
End Sub

Discussions similaires

Excel formule : savoir si une cellule contient partie texte

Votre réponse

Discussions similaires