Amélioration code VBA

Bonjour
Voici un bout de code que je souhaite améliorer mais je n'y arrive pas.

Code:

---

1 2 3 4 5 6 7 8 9 10

'Suppression des entrées sur feuille plan d'action Sheets("Plan action").Select Range("A1").End(xlDown).Offset(1, 0).Select While ActiveCell.Value <> "Date" If ActiveCell.Offset(0, 1).Value = "1" Then ActiveCell.EntireRow.Delete End If ActiveCell.Offset(-1, 0).Select Sheets("Plan labo").Select Wend

---

Je pense que l'on peut faire avec un truc du style

For each cell...
Next cell
Mais le problème est que je ne trouve pas la solution pour faire une selection en tenant de la dernière cellule pleine de la colonne B.

Merci de votre aide.

Fred

bonjour amelyfred,

Citation:

---

While ActiveCell.Value <> "Date"

---

il ne faut pas utiliser le mot "Date" de cette facon, ce mot est réserver à excel, même mit en String cela devient trop astreignant pour la compréension.
je n'ai pas fait de test sur le restant du code, mais déja là il faut modifier.
si tu cherche à trouver une valeur exact, d'une facon simple et sans boucle
utisile la fontion EQUIV (Match en vba), par exemple :

Code:

---

1 2 3 4 5

If Not IsError(Application.Match(valeur, Workbooks("fichier1.xls").Sheets("feuil1").Range("A:A"), 0)) Then ligne =Application.Match(valeur, Workbooks("fichier1.xls").Sheets("feuil1").Range("A:A"), 0)) Else MsgBox "aucune ligne trouvée" End If

---

Merci pour ta réponse mais je ne suis pas sur d'avoir bien exposé mon problème.
Dans un fichier j'ai un tableau dont le nombre de ligne n'est pas fixe.
Et je souhaite faire une macro qui supprime toute les lignes qui comporte dans la colonne b la valeur 1.

J'ai donc fait une macro qui fait :
Sélectionne la feuille "plan action"
Place toi à la dernière cellule non vide de la colonne A
Si la valeur de la cellule d'a coté = 1 alors supprime la ligne.
Sinon sélectionne la cellule supérieur.
Fais tout ca jusqu'en haut du tableau.
A la fin selectionne la feuille 1

Pour cela j'ai donc créer le code exposé plus haut.
Maintenant il me semble que ce style de code ralenti tout, je souhaiterais faire un truc du genre.

Pour chaque cellule de la plage A2 à G(dernière cellule pleine) de la feuille "Plan action" si la valeur de la cellule B = 1 supprime la ligne correspondante.

J'ai donc penser à un truc du style:
For each cell ...
Next cell

Mais je trouve pas la syntaxe exacte pour définir correctement la plage (qui peut être variable).

J'espère que c'est plus clair.
Merci d'avance.
Fred

Bonjour.

Tu peux faire quelque chose qui ressemble à cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Dim l As Long, lDer As Long Dim wSh As Excel.Worksheet   Set wSh = ThisWorkbook.Worksheets("Plan action") lDer = wSh.Range("A" & Application.Rows.Count).End(xlUp).Row   For l = lDer To 1 Step -1 If wSh.Cells(l, 2) = 1 Then wSh.Rows(l).Delete Next l   Set wSh = Nothing

---

Cordialement,

PGZ

Merci je vais essayer!!!