Discussion :

[Bernard67]

Bonjour le forum

J'ai cette macro qui bug sur une condition, c'est a dire :
Si il y a un filtre sur la ligne 1, continuer la macro et si il n'y a pas de filtre sur la ligne 1 en mettre 1 et continuer la macro.

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
30
31
32
33
34
35
36
37
38
39
 
Sub Mise_En_Ordre_Classeur_Excel()
 
'Selectionne la 1ere ligne, supprime les espaces
    Rows("1:1").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
'Place un filtre automatique si il n'y en a pas
Dim f As AutoFilter
Set f = ActiveSheet.AutoFilter
If f Is Nothing Then ActiveSheet.AutoFilter
 
    'Selection.AutoFilter
'Selectionne la cellule A2 et fige les volets
    Range("A2").Select
    ActiveWindow.FreezePanes = True
'Selectionne la feuille et passe la police en caractère 8
    Range("A1:IV65536").Select
    With Selection.Font
        '.Name = "Arial"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
  'Ajuste la taille des colonnes
    Columns("A:IV").EntireColumn.AutoFit
'Supprime le quadrillage de la feuille
    ActiveWindow.DisplayGridlines = False
'Se positionne sur la cellule A2
    Range("A2").Select
 
End Sub

La macro bug sur la derniere ligne de cette partie

Code :

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

1
2
3
4
'Place un filtre automatique si il n'y en a pas
Dim f As AutoFilter
Set f = ActiveSheet.AutoFilter
If f Is Nothing Then ActiveSheet.AutoFilter

Merci pour le depannage et bonne journée.

[Fvandermeulen]

Salut Bernard67 (et les autres)

Pour vérifier si les filtres il faut utiliser AutoFilterMode et pas AutoFilter
(Une petit recherche dans l'aide VBA te l'aurait montré )

Donc pour vérifier si il y a un filtre sur la feuille ceci suffit:

Code :

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

1
2
3
4
5
If Worksheets("TaFeuille").AutoFilterMode Then 
    ' oui ils sont actifs => continue ta macro
Else
    ' Non ils sont pas actifs => les mettre et ensuite continuer la macro
End If

A+

[Gorfael]

Salut Bernard67 et le forum

Code :

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

1
2
3
Dim f As AutoFilter
'.....
if ActiveSheet.AutoFilterMode = false  Then ActiveSheet.AutoFilter

Sauf que quand je fais un système comme ça, je préfère directement supprimer le filtre (AutoFilterMode = false), au lieu de tester son existence, puis en mettre un, ça évite que si un filtrage existe, il vienne perturbé la suite de ma macro.

Remarque : émailler un code de déclaration est néfaste pour la lisibilité, et ne sert strictement à rien. Regroupe toute tes déclarations en un seul endroit (en général au début de ta macro) et tu t'y retrouveras
A+

[Bernard67]

Bonjour Fvandermeulen,Gorfael, le forum

Merci pour vos reponses.
Effectivement il vaut mieux suprimer le filtre au debut et le remettre ensuite.
Pour les déclarartions je vais suivre tes conseils Gorfael et les mettre en début de macros.

Merci à vous deux et bonn journée.
Cordialement