Discussion :

[amelyfred]

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

Code :

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

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

[sabzzz]

bonjour amelyfred,

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 :

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

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

[amelyfred]

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

[pgz]

Bonjour.

Tu peux faire quelque chose qui ressemble à cela

Code :

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

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

[amelyfred]

Merci je vais essayer!!!