Macro qui bug sur une condition

Version imprimable

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:

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:

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.

19/06/2009, 10h25
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é :mouarf: )

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

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+
19/06/2009, 10h32
Gorfael
Salut Bernard67 et le forum
Code:

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+
19/06/2009, 11h11
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