Discussion :

[julie.t]

Bonjour tout le monde,

Je vais essayer de vous expliquer mon problème le plus clairement possible.
J'ai un fichier assez gros (47 000 lignes) avec 18 colonnes.
J'ai besoin de conserver que certaines lignes. Les lignes à conserver dépendent de la quantité maximale pour chaque référence, par usine et par fournisseur.

J'ai donc choisi d'effectuer tout d'abord un tri (que je bouclerai) par référence, par fournisseur et par usine (qui sont 3 colonnes différentes). Jusque là tout va bien.
Ensuite j'ai voulu faire une selection des cellules visibles dans ma colonne quantité (afin de définir une plage de valeurs pour la fonction MAX), jusque là tout va bien aussi.
Cependant pour utiliser la fonction MAX il faut que je définisse un nom à cette plage de données, et cela ne fonctionne pas (je pense que c'est parce que la plage est discontinue vu que c'est aprèrs un tri).


Le nombre de lignes est différent pour chaque référence et la quantité max aussi.

Voici le code que j'ai essayé, si vous pouvez m'aider ça serait parfait :

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
28
Private Sub CommandButton1_Click()
 
Dim i As Long, ligne_bout As Long, myRange As Range
 
'Va me permettre de boucler
ligne_bout = Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
i = 2
 
    Rows("1:1").Select
    Selection.AutoFilter
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    ActiveSheet.Range("$A$1:$R$41972").AutoFilter Field:=3, Criteria1:= _
    Sheets("Feuil2").Cells(i, 1)
    ActiveWindow.ScrollRow = 2
    ActiveSheet.Range("$A$1:$R$41972").AutoFilter Field:=1, Criteria1:= _
    Sheets("Feuil2").Cells(i, 2)
    ActiveSheet.Range("$A$1:$R$41972").AutoFilter Field:=7, Criteria1:= _
    Sheets("Feuil2").Cells(i, 3)
 
  'La selection fonctionne sans "myRange", code erreur : Variable objet ou Variable with non définie
     myRange = Range("J2:J" & Range("J41972").End(xlUp).Row).SpecialCells(xlVisible).Select
 
     Maximum = Application.WorksheetFunction.Max(myRange)
 
End Sub

[Philippe Tulliez]

Bonjour,
En gros, tu souhaites supprimer des lignes suivants des critères ?

Code de la procédure

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
28
Sub DeleteRowsByAdvancedFilter(ByVal areaData As Range, ByVal FormulaCriteria As String)
 ' Author : Philippe Tulliez (Http://philippe.tulliez.be
 ' Date   : 21/11/2015 (V 1.0)
 ' Arguments
 ' areaData (Objet)         - Plage des données (Etiquettes de colonnes + données
 ' FormulaCriteria (String) - Formule à placer dans la zone des critères
 ' Déclaration des variables
 Dim areaCriteria As Range
 ' Assignation de la référence des critères à la variable objet areaCriteria
 ' Les critères se trouveront à 2 colonnes à gauche de la plage de données
  With areaData
   Set areaCriteria = areaData.Offset(columnoffset:=.Columns.Count + 1).Resize(2, 1) ' Zone des critères 2 colonnes à droite de la zone des données
  End With
 ' Placement des critères (Etiquettes de colonne + critère calculé)
 areaCriteria(1) = "_fn_": areaCriteria(2).Formula = FormulaCriteria
 With areaData
 ' Filtre les données
 On Error GoTo ExitSub
 .AdvancedFilter xlFilterInPlace, areaCriteria
 ' Suppression des lignes filtrées sans la première ligne (Etiquettes de colonnes)
 .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
 End With
ExitSub:
 areaData.Worksheet.ShowAllData ' Efface le filtre
 On Error GoTo 0
 areaCriteria.Clear ' Suppression de la zone des critères
 Set areaData = Nothing: Set areaCriteria = Nothing
End Sub

Exemples d’appels de cette procédure

Lignes de codes permettant de supprimer toutes les lignes

1. de la plage de cellules $A$1:$M$1000 dont la valeur de la cellule de la colonne I est une date de l’année 2000 et que la valeur en colonne E est supérieure à 2500
   

   Code :

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

   DeleteRowsByAdvancedFilter Range("$A$1:$M$1000"), "=AND(YEAR(I2)=2000,E2>2500)"

2. de la plage de cellules $A$1:$E$52 dont la valeur de la cellule de la colonne D est égal à “C”
   

   Code :

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

   DeleteRowsByAdvancedFilter Range("$A$1:$E$52"), "=D2=""C"""

Un fichier exemple à télécharger ici