[XL-2007] Supprimer une ligne en fonction de la valeur d'une cellule

[micmos]

Bonjour à tous,

J'ai un fichier qui reprend tout un ensemble de lignes (des demandes numérotées en fait) et j'aimerais supprimer des lignes sous une condition

Dans la colonne C j'ai une indication sur le statut de ces demandes et j'aimerais créer une macro qui me permet de supprimer toutes les lignes dont le statut n'est pas "clôturée".

Voici ma macro que j'ai trouvée :

Code :

1
2
3
4
5
6
Range("C2").Select
Do While ActiveCell <> "Clôturée"
ActiveCell.Offset(1, 0).Select
Loop
 
Selection.Delete Shift:=xlUp

et à vrai dire bah ça marche pas du tout, le problème étant que je n'arrive pas à sélectionner toute ma ligne et je pense que cette macro s'arrêtera à la première cellule "clôturée" et ne poursuivra pas sur les autres!! je suis en perte d'imagination et de compétences! Si vous pouvez m'aider....merci d'avance

[Pierre Fauconnier]

Bonjour

1) Lorsque tu supprimes, commence toujours par le bas de ton tableau. Tu éviteras ainsi de "sauter" la ligne qui suit une ligne supprimée.

2) Pour sélectionner toute la ligne, utilise la propriété .EntireRow d'un objet typé Range.

3) Tu n'es pas obligé de sélectionner une cellule pour travailler avec.

4) Ton code, tel que je le lis (boucle Do While supprimerait les lignes jusqu'à la première cellule dont la valeur en C serait Clôturée puis s'arrêtera. Est-ce cela que tu souhaites? Autrement dit:

Veux-tu supprimer toutes les lignes jusqu'à trouver Clôturée?

Ou bien

Veux-tu supprimer toutes les lignes pour lesquelles la valeur en C est Clôturée pour l'ensemble des lignes utilisées d'une feuille?

[Gorfael]

Salut micmos et leforum
Un essais

Code :

1
2
3
4
5
Dim X As Long
'.....
For X = Range("A1").SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If Range("C" & X) <> "Clôturée" Then Rows(X).Delete
Next X

A+

[micmos]

Merci à vous deux et surtout à toi Gorfael, le résultat est pile à la hauteur de mes espérances!! tu m'enlèves un sacré obstacle

en tout cas merci de mettre vos compétences au service des autres!

A+ sur le forum et peut-être que dans 2-3 ans ce sera à mon tour de vous aider!