supprimer ligne par rapport à une liste

[bertgrav]

à l'aide d'une macro, je voudrais supprimer la ligne où se trouve une des informations suivantes : x1, x2,x3,x4,x5,y1,y2,y3,y4,y5
dans une cellule de la colonne A
je peux passer par le contrôle de chaque cellule de la colonne A en faisant une recherche de la derniére cellule vide et d'effectuer ensuite un contrôle par rapport à chaque valeur......mais c'est long


nbre = Range("a65536").End(xlUp).Row
cpt = nbre
For cpt = nbre To 1 Step -1
Range("a" & cpt).Select
MsgBox "a"
If Range("a" & cpt).Value = "x1" Then
ActiveCell.EntireRow.Delete
Else
End If
If Range = "x2" Then
ActiveCell.EntireRow.Delete
Else
End If (etc etc etc avec x3 puis x4 puis Y1....)

Next

je pense qu'il y a moyen de passer par l'identification d'une liste, puis de faire la suppression de la ligne si la valeur de la cellule appartient à la liste

merci pour vos suggestions

chantal

 

[lapix]

Re : supprimer ligne par rapport à une liste

à l'aide d'une macro, je voudrais supprimer la ligne où se trouve une des informations suivantes : x1, x2,x3,x4,x5,y1,y2,y3,y4,y5
dans une cellule de la colonne A
je peux passer par le contrôle de chaque cellule de la colonne A en faisant une recherche de la derniére cellule vide et d'effectuer ensuite un contrôle par rapport à chaque valeur......mais c'est long


nbre = Range("a65536").End(xlUp).Row
cpt = nbre
For cpt = nbre To 1 Step -1
Range("a" & cpt).Select
MsgBox "a"

if instr(1,"X1/X2/X3/.../Y5",Range("a" & cpt).Value)>0 then🙂
ActiveCell.EntireRow.Delete
End If

Next

je pense qu'il y a moyen de passer par l'identification d'une liste, puis de faire la suppression de la ligne si la valeur de la cellule appartient à la liste

merci pour vos suggestions

chantal

Essaie si ca te va
Tu change la liste du InStr entre ""

 

[bertgrav]

Re : supprimer ligne par rapport à une liste

bonjour,

merci beaucoup LAPIX, je viens d'essayer ça fonctionne trés bien, je vais garder ce bout de code.

chantal