Discussion :

[thierry440]

Bonsoir
Je désire à partir d'une macro conserver uniquement les dossiers "prioritaires " ainsi que ces éléments .(col 18 -T19)

Merci d'avance

[Chtik]

Bonjour,

A adapter à ton cas :

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
Sub SupDesLignesPrécises()
 
Dim i As Long
 
Application.Calculation = xlCalculationManual
 
    Application.ScreenUpdating = False
 
With Worksheets("Feuil2")
' détermine la dernière cellule non vide - choisir colonne sans cellules vides
    For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1
       ' remplacer XXX par le critère
        If .Range("A" & i).Value = "XXX" Then .Rows(i).Delete
    Next i
End With
 
    Application.ScreenUpdating = True
 
Application.Calculation = xlAutomatic
 
End Sub

Chtik

[thierry440]

bonjour

Le code ne fonctionne pas : la colonne a est bien la colonne ou les ils doient y avoir des valeurs , par contre le motif prioritaire est le selecteur du bloc dossier
à conserver .

cordialement