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 :

Filtrer sur les numéros de ligne [XL-2007]


Sujet :

Macros et VBA Excel

  1. #1
    Membre du Club Avatar de docv266
    Profil pro
    Inscrit en
    Août 2007
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 85
    Points : 54
    Points
    54
    Par défaut Filtrer sur les numéros de ligne
    Salutations,

    Problème pas bien méchant à priori mais bon:
    En VBA, j'ai une collection d'entier représentant les numéros de lignes que je veux conserver.

    J'ai par exemple dans ma collection {2;12;34;576;577;3987;etc...}
    Et je souhaite, via VBA, pouvoir filtrer ces lignes là sur ma feuille Excel. (Masquer toutes les autres)

    Je sèche, quelqu'un a une idée?

    Merci!

  2. #2
    Expert éminent
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 66
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Points : 7 149
    Points
    7 149
    Billets dans le blog
    7
    Par défaut lignes masquées
    Bonjour docv66, Bonjour le Forum

    (Ravi de vous retrouver, débordé)

    Docv66,

    Il vaut mieux masquer toutes les lignes puis afficher celles qui t'intéressent.

    Par exemple,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    Public Sub essai()
     
    Dim meslignes As Variant
     
    meslignes = Array(1, 4, 7)
     
    With ActiveSheet
            .Rows.Hidden = True
            For Each lign In meslignes
                    .Rows(lign).Hidden = False
            Next lign
    End With
     
    End Sub
    Reviens si nécessaire.

  3. #3
    Expert éminent Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 754
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 754
    Points : 9 396
    Points
    9 396
    Par défaut
    Bonjour,

    Une autre méthode très proche de celle de MarcelG
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Dim i As Long
    Dim str() As String
    str = Split("2,12,3,50,250", ",")
     
    Rows("1:" & Rows.Count).Hidden = True
     
    For i = 0 To UBound(str)
        Rows(str(i)).Hidden = False
    Next i

  4. #4
    Membre du Club Avatar de docv266
    Profil pro
    Inscrit en
    Août 2007
    Messages
    85
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Août 2007
    Messages : 85
    Points : 54
    Points
    54
    Par défaut
    Merci je pense que ça va le faire!

    Très aimable à vous.

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

Discussions similaires

  1. Filtrer sur les données vides dans un formulaire
    Par jevany dans le forum Access
    Réponses: 7
    Dernier message: 29/05/2006, 08h50
  2. Réponses: 7
    Dernier message: 09/05/2006, 11h30
  3. Réponses: 2
    Dernier message: 03/11/2005, 11h49
  4. Rajouter les numéros de ligne dans une colone d'une requete
    Par AntiSAL dans le forum MS SQL Server
    Réponses: 7
    Dernier message: 02/11/2005, 19h07

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