Supression de lignes conditionnelle.

**arnold95** · 05/11/2007, 15h18

Bonjour à tous,
En fait j'ai un problème sous VBA j'ai réussi à le résoudre mais c'est un peu long je voudrais savoir si vous auriez une procédure plus rapide.
En fait j'ai sur la feuille un des données avec le critère département en colonne G. Sur une deuxieme feuille j'ai le critère département à retenir en colonne A. Ce que je souhaiterai c'est supprimer la ligne entière sur la feuille un si le département n'ést pas dans la liste des départements à retenir de la feuille 2. Merci beaucoup de votre aide et bonne journée.

**Jean-Philippe André** · 05/11/2007, 15h21

salut arnold, peux-tu nous donner la méthode que tu utilises pour l'instant, qu'on puisse te donner des axes d'amélioration pertinents

**arnold95** · 05/11/2007, 15h28

Pour l'instant c'est de la bidouille.lol.

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
16
17
18
19
20
21
22
23
24
25
26
27
Worksheets("feuil1").Select
For i = LignDepFeuil1 To LignFinFeuil1
Cells(i, 8).FormulaR1C1 = _
        "=VLOOKUP(RC[-1],'Feuil1'!R1C1:R36C1,1,FALSE)"
Next i
 
 
For i = LignDepFeuil1 To LignFinFeuil1
Cells(i, 9).FormulaR1C1 = "=ISNA(RC[-1])"
Next i
 
For i = LignDepFeuil1 To LignFinFeuil1
Cells(i, 9).FormulaR1C1 = Trim(Cells(i, 9))
Next i
 
Range("A2:I2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("H1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
 
 
derniereLigne = ActiveSheet.UsedRange.Rows.Count
'Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If (Range("I" & r)) = "Vrai" Then Rows(r).Delete
Next r

Voilà, en fait pour le moment je fais une fonction ISNA en étape intermédiare et si v'est vrai je retire la ligne entière.

**Jean-Philippe André** · 05/11/2007, 15h38

d'accord, deja tu peux fusionner tes deux premières boucles for i. Le reste m'a l'air pas trop mal, mais je ne connais pas trop la partie selection...