Exploitation fonction SET

Bonjour,

voici mon problème, j'ai ce code qui est censé me permettre de retrouver la colonne qui contient en tête "Statut final".
Ensuite je voudrai supprimer toutes les lignes qui ne contiennent pas TOTO dans cette colonne.
Avec le code suivant, j'ai un message d'erreur "référence incorrecte ou non qualifiée.."

Avez-vous une idée? un GRAND merci pour votre aide,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Col_Select() Dim Cel As Range   Set Cel = Cells.Find(what:="Statut final*") If Not Cel Is Nothing Then   For i = .Range("A" & .Rows.Count).End(xlUp).Row To 3 Step -1 If .Range(Cel.Column & i).Value <> "TOTO" Then .Rows(i).Delete End If Next i   End If   End Sub

---

Bonjour,

tu utilises une structure With/End With sur un objet Worksheet, en témoigne la présence des "points" devant tes range

or, ce bloc With/End With n'est pas présent dans la procédure

Code:

---

1 2 3

With Worksheets("MaFeuille") .Range("A1").Value = "toto" End With

---

Bonjour,

de plus Cel.Column retourne un nombre, .Range(Cel.Column & i) ne veut donc pas dire ce que tu penses.
Utiliser Cells(i, Cel.Column)
eric

Bonjour,

Je ne sais pas combien tu as de ligne mais supprimer ligne par ligne ça peut vite être long si tu as beaucoup de donnée, c'est beaucoup plus rapide de passé par un filtre.

Cela marche parfaitement maintenant, merci à vous trois!