IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

AutoFilter (à garder actif) [XL-2000]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 27
    Par défaut AutoFilter (à garder actif)
    Bonjour tout le monde,

    j'ai une maccro qui permet d'afficher un tableau dont la première ligne est du type:
    A....B....C....D....X....X...X...
    (c'est à dire 4 col fixes et le reste variable)

    Pour visualiser les données du tableau j'utilise le filtre simple, de cette manière:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    wsh.Range(wsh.Cells(4, 1), wsh.Cells(4, DerniereCol)).AutoFilter
    Et forcément une fois sur 2, le filtre s'active ou se désactive...
    Est il possible de lui donner un indice, impair en l'occurence pour qu'il soit toujours actif?

    je vous remercie par avance,
    bonne journée!

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Dim ws As Worksheet
    Dim DerniereCol As Integer
     
    Set ws = Sheets("Feuil1")
    With ws
        DerniereCol = .Cells(4, Columns.Count).End(xlToLeft).Column
        If Not .AutoFilterMode Then .Range(.Cells(4, 1), .Cells(4, DerniereCol)).AutoFilter
    End With

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    27
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 27
    Par défaut
    parfait,
    encore une fois merci!

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 09/10/2009, 16h54
  2. garder actifs des liens ou des images cliqués
    Par midiweb dans le forum Débuter
    Réponses: 1
    Dernier message: 11/08/2009, 11h23
  3. Réponses: 14
    Dernier message: 12/07/2008, 12h45
  4. Comment garder un changement actif??
    Par Le Rebel dans le forum Langage
    Réponses: 3
    Dernier message: 02/02/2006, 11h02
  5. [VB]garder le form actif pendant exécution!!
    Par porki dans le forum VB 6 et antérieur
    Réponses: 11
    Dernier message: 20/01/2006, 10h59

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo