Discussion :

[Alaindhu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[eriiic]

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

[halaster08]

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.

[Alaindhu]

Cela marche parfaitement maintenant, merci à vous trois!