Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Condition If Then

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
B

Bernard-Louis

XLDnaute Occasionnel
Bonjour le forum,

Dans cette macro, je souhaite mettre une condition sur "Selection autofilter"
C'est a dire que si il y a deja un Filtre automatique ( ne rien faire) et si l' y en a pas (en mettre un)

Merci pour l'aide et bonne journée.

Code: 
Sub Classeur_Excel()

    Rows("1:1").Select
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.AutoFilter
    Range("A2").Select
    ActiveWindow.FreezePanes = True
    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
    
    Columns("A:IV").EntireColumn.AutoFit
  
    ActiveWindow.DisplayGridlines = False
    Range("A2").Select
End Sub
 
Trier par date Trier par votes
Re : Condition If Then

Bonjour Bernard Louis

essaye peut être avec le code ci dessous :

Code: 
Dim f As AutoFilter
Set f = Sheets("Feuil1").AutoFilter
If f Is Nothing Then Sheets("Feuil1").Range("A1").AutoFilter

bonne journée.
@+

Edition : remplacé "selection" par un range
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Condition If Then

Bonjour Pierrot,
Je ne peux pas utiliser cette solution car la macro est placée sur "Perso.xls" et elle sert pour tout les fichiers excel.
Je ne peux pas definir la feuille1, car selon les fichiers, celle ci peut avoir plusieurs noms différents.
Merci encore
 
Vote positif 0 Vote négatif
Re : Condition If Then

Bonjour le forum,
Si Pierrot passe par là, j'ai un probleme qui est survenu ce matin, car la dodif bloque sur la derniere ligne.

Code: 
'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 l'aide
 
Vote positif 0 Vote négatif
Re : Condition If Then

Bonjour Bernard Louis

modifies comme suit :

Code: 
Dim f As AutoFilter
Set f = ActiveSheet.AutoFilter
If f Is Nothing Then ActiveSheet.Range("A1").AutoFilter

Si sur la ligne 1, il y a bien les titres de colonnes et en dessous des données.

bonne journée
@+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2016 If Not xRgSel Is Nothing Then --> Ne marche pas
Réponses
10
Affichages
740
R3n0W
D
  • Question Question
Microsoft 365 Problème avec remplacer . par ,
Réponses
3
Affichages
573
de_hanstrapp
D
A
  • Résolu(e)
XL 2016 Selection.replace inopérante
Réponses
4
Affichages
670
albuqs
A
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
1 K
fanfan38
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
4 K
Staple1600
V
Verdanto
Réponses
0
Affichages
424
verdanto
V
E
  • Résolu(e)
XL 2019 Format Date Anglais / Francais
Réponses
5
Affichages
2 K
EDI9366
E
F
  • Question Question
Microsoft 365 Optimisation code VBA - Succession de copier coller
Réponses
8
Affichages
3 K
flomag
F
O
  • Question Question
XL 2013 Suppression des points de "milliers" de chiffres pour les transformer en nombre
Réponses
14
Affichages
1 K
onyirimba
O
B
  • Résolu(e)
XL 2019 Problème macro sur Excel 2019
Réponses
9
Affichages
1 K
BOUBRED
B
M
  • Résolu(e)
XL 2019 VBA Temps d'exécution trop long
Réponses
4
Affichages
1 K
MTX
M
A
  • Résolu(e)
Microsoft 365 remplacement . ou , par séparateur de décimal en VBA
2
Réponses
25
Affichages
7 K
onyirimba
O
B
  • Question Question
XL 2019 Remplacer la valeur d'une cellule par une formule si la cellule est égale à une autre
Réponses
2
Affichages
2 K
tbft
B
  • Question Question
Microsoft 365 Macro: Intégrer un plage nommé dans une Formule excel
Réponses
2
Affichages
1 K
eriiic
  • Résolu(e)
XL 2016 Optimisation MACROS
2 3
Réponses
38
Affichages
6 K
Michest94
W
  • Résolu(e)
Microsoft 365 Boucle Loop infinie lors écriture dans des fichier
Réponses
7
Affichages
2 K
Staple1600
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
V
  • Question Question
XL 2013 Rechercher et remplacer par :
Réponses
4
Affichages
2 K
volwerik
V
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…