Filtre automatique sur ouverture classeur Excel

**genevieve1975** · 16/02/2022, 23h18

Bonjour,

j'aimerais exécuter en VBA Excel ceci lorsque le fichier s'ouvre.

sur ouverture du classeur
sur feuille ("sheet2")
si cellule E2 contient "x" supprimer la ligne
si cellule E3 contient "x" supprimer la ligne
si cellule E4 contient "x" supprimer la ligne
...jusqu'à E250
tri ordre A-Z les données colonne B
sur fermeture du classeur, sauvegarder

quelqu'un peut m'aider ?

Merci.

**mjpmjp** · 17/02/2022, 11h37

bonjour,

dans ton classeur , çà se passe ici :

Nom : Capture d’écran 2022-02-17 113634.png
Affichages : 229
Taille : 81,3 Ko

voila un début de code

ouverture :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Workbook_Open()
    'boucle
    For n = 2 To 250
        If Sheets(2).Range("E" & n).Value = "x" Then
            'supprimer la ligne
            '(en fait tu effaces les cellules et quand tu trie les lignes ne seront plus là)
 
        End If
    Next n
End Sub

fermeture:

Code :

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

1
2
3
4
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'ici tu sauvegarde
End Sub

@+JP

**mjpmjp** · 17/02/2022, 11h51

bonjour,
voila un code que j'utilise souvent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'enregistrement de sauvegarde à la fermeture du fichier
'
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Right(ActiveWorkbook.Name, 5) = "MJPxl" Then Exit Sub
    FolderPath = Application.ActiveWorkbook.Path & "\XL Save\"
    Set fs = CreateObject("Scripting.FileSystemObject")
    If Not fs.FolderExists(FolderPath) Then fs.CreateFolder (FolderPath)
    FichierName = ActiveWorkbook.Name & "_SavWork_" & Replace(CStr(Left(Now, 10)), "/", "") & "_" & Replace(CStr(Right(Now, 8)), ":", "") & ".MJPxl"
    ActiveWorkbook.SaveCopyAs (FolderPath & FichierName)
End Sub

@+JP

**mjpmjp** · 17/02/2022, 12h29

bonjour,

ouverture

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
29
 
Private Sub Workbook_Open()
    'boucle
    For n = 2 To 250
        If ActiveWorkbook.Worksheets("Sheet2").Range("E" & n).Value = "x" Then
            'supprimer la ligne
            '(en fait tu effaces les cellules et quand tu trie les lignes ne seront plus là)
            '-------------
            'effacer la ligne
            ActiveWorkbook.Worksheets("Sheet2").Range("A" & n & ":F" & n).Select
            Selection.ClearContents
        End If
    Next n
    'supprime les ligne vide (trier AZ) sur B
    Columns("A:F").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("Sheet2").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet2").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("B1:B10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet2").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter
End Sub

@+JP

**genevieve1975** · 18/02/2022, 15h47

bonjour JP,

sur ce code j'obtiens une erreur 1004 ??
je suis débutante en VBA, pourrais-tu m'expliquer svp.

le nom de ma feuille SHEET2 c'est TRIAGE finalement.

Merci.

**mjpmjp** · 18/02/2022, 16h13

bonjour,

en fait tu changes le nom de l'onglet en faisant attention à la casse ... maj/min

If ActiveWorkbook.Worksheets("~~Sheet2~~").Range("E" & n).Value = "x" Then

If ActiveWorkbook.Worksheets("TRIAGE").Range("E" & n).Value = "x" Then

@+JP

**genevieve1975** · 18/02/2022, 17h31

Maintenant j’ai une erreur d’exécution «*9*» sur la ligne sous la boucle FOR n = 2 to 250.(if activeworkbook…)

**mjpmjp** · 18/02/2022, 17h40

bonjour,
tu copies ton code et tu clique sur # pour poster ton code entre le 2 balises code

comme çà je pourrais t'aider

@+JP

**genevieve1975** · 18/02/2022, 17h43

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 Workbook_Open()
    'boucle
    For n = 2 To 250
        If ActiveWorkbook.Worksheets("*TRIAGE*").Range("E" & n).Value = "x" Then
            'supprimer la ligne
            '(en fait tu effaces les cellules et quand tu trie les lignes ne seront plus là)
            '-------------
            'effacer la ligne
            ActiveWorkbook.Worksheets("*TRIAGE*").Range("A" & n & ":F" & n).Select
            Selection.ClearContents
        End If
    Next n
    'supprime les ligne vide (trier AZ) sur B
    Columns("A:F").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("*TRIAGE*").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("*TRIAGE*").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("B1:B10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("triage").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter
End Sub

**mjpmjp** · 18/02/2022, 17h50

bonjour,

dans la ligne 20 "triage" et non "*TRIAGE*"

évite les caractères "bizare" style "*"

@+JP

**genevieve1975** · 18/02/2022, 18h06

maintenant c'est erreur 1004 avec Selection.AutoFilter

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 Workbook_Open()
    'boucle
    For n = 2 To 250
        If ActiveWorkbook.Worksheets("triage").Range("E" & n).Value = "x" Then
            'supprimer la ligne
            '(en fait tu effaces les cellules et quand tu trie les lignes ne seront plus là)
            '-------------
            'effacer la ligne
            ActiveWorkbook.Worksheets("triage").Range("A" & n & ":F" & n).Select
            Selection.ClearContents
        End If
    Next n
    'supprime les ligne vide (trier AZ) sur B
    Columns("A:F").Select
    Selection.AutoFilter
    ActiveWorkbook.Worksheets("triage").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("triage").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("B1:B10"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("triage").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Selection.AutoFilter
End Sub