13GIBE59
XLDnaute Accro
Bonjour le forum.
Je continue mon appentissage vba dans un domaine pas encore exploré (par moi).
Dans le fichier joint, la colonne A contient les valeurs 1 à 250.
Je souhaite supprimer toutes les lignes des cellules contenant un 2 (c'est à dire 2, 12, tous les 20, 32, 42, etc...)
J'ai essayé :
Bien sûr, cela ne marche pas...
Pouvez-vous m'aider, s'il vous plaît ?
Merci d'avance.
PS : pas urgent, c'est pour m'entraîner...et pas trop perdre la main...
Je continue mon appentissage vba dans un domaine pas encore exploré (par moi).
Dans le fichier joint, la colonne A contient les valeurs 1 à 250.
Je souhaite supprimer toutes les lignes des cellules contenant un 2 (c'est à dire 2, 12, tous les 20, 32, 42, etc...)
J'ai essayé :
Code:
Sub supprimer()
Dim derligne As Integer
Dim cell As Range
derligne = Range("A1").End(xlUp).Row
For Each cell In Range("A1:A" & derligne)
Set cible = Application.Find(2, cell.Value, 1)
If Not cible Is Nothing Then
cell.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next cell
End Sub
Bien sûr, cela ne marche pas...
Pouvez-vous m'aider, s'il vous plaît ?
Merci d'avance.
PS : pas urgent, c'est pour m'entraîner...et pas trop perdre la main...