Autres Filtre sur colonnes multiples

[Michel1942]

Bonjour à tous,



J’ai le problème suivant en VBA sous excel 2003.


Je voudrais filtre sur place un tableau sur deux colonnes non contigües si les cellules sont vides dans les deux colonnes simultanément.
Les colonnes ne sont pas fixes et doivent être sélectionnées avant de lancer la macro.
Le bouton de lancement existe déjà dans ma barre d’outils.
Je joint un exemple de fichier où filtrer les colonnes B et E mais pas forcément.

Je sais faire le filtre sur une colonne.

Merci d’avance pour vos propositions.

 

[soan]

Bonjour Michel,

fais Ctrl f ➯ travail effectué !

je te laisse vérifier que les lignes masquées
sont bien les lignes adéquates.

---

code VBA (20 lignes) :

Option Explicit

Sub FiltrerBE()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim dlg&: dlg = Cells(Rows.Count, 1).End(3).Row: If dlg < 3 Then Exit Sub
  Dim plg As Range, lig&
  For lig = 3 To dlg
    If IsEmpty(Cells(lig, 2)) And IsEmpty(Cells(lig, 5)) Then
      If plg Is Nothing Then
        Set plg = Rows(lig)
      Else
        Set plg = Union(plg, Rows(lig))
      End If
    End If
  Next lig
  If plg Is Nothing Then Exit Sub
  Application.ScreenUpdating = 0
  plg.EntireRow.Hidden = -1
End Sub

soan

 

[TooFatBoy]

Bonjour,

Les colonnes ne sont pas fixes et doivent être sélectionnées avant de lancer la macro.

Pourquoi t'embêter avec une macro alors qu'il suffit d'utiliser les filtres du tableau ?
Tu filtres d'abord une colonne, puis la deuxième colonne et le tour est joué.

 

[Michel1942]

Bonjour Michel,

fais Ctrl f ➯ travail effectué !

je te laisse vérifier que les lignes masquées
sont bien les lignes adéquates.

---

code VBA (20 lignes) :

Option Explicit

Sub FiltrerBE()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim dlg&: dlg = Cells(Rows.Count, 1).End(3).Row: If dlg < 3 Then Exit Sub
  Dim plg As Range, lig&
  For lig = 3 To dlg
    If IsEmpty(Cells(lig, 2)) And IsEmpty(Cells(lig, 5)) Then
      If plg Is Nothing Then
        Set plg = Rows(lig)
      Else
        Set plg = Union(plg, Rows(lig))
      End If
    End If
  Next lig
  If plg Is Nothing Then Exit Sub
  Application.ScreenUpdating = 0
  plg.EntireRow.Hidden = -1
End Sub

soan

 

[Michel1942]

Merci Soan pour cette réponse rapide mais les colonnes ne sont pas prédéfinies. Dans mon exemple c'est B et E mais çà peut être n'importe quelle "doublette. Je sais sélectionner la colonne active mais pas deux ensembles. Ton code fonctionne bien sur des colonnes fixes
Merci pour ta réponse

 

[Michel1942]

Bonjour,


Pourquoi t'embêter avec une macro alors qu'il suffit d'utiliser les filtres du tableau ?
Tu filtres d'abord une colonne, puis la deuxième colonne et le tour est joué.

 

[Michel1942]

Merci pour ta réponse mais j'ai besoin d'avoir les résultats des deux colonnes simultanément

 

[TooFatBoy]

Merci pour ta réponse mais j'ai besoin d'avoir les résultats des deux colonnes simultanément

C'est vraiment gênant de passer par un résultat intermédiaire le temps d'activer le second filtre ???

 

[Michel1942]

Merci Soan pour cette réponse rapide mais les colonnes ne sont pas prédéfinies. Dans mon exemple c'est B et E mais çà peut être n'importe quelle "doublette. Je sais sélectionner la colonne active mais pas deux ensembles. Ton code fonctionne bien sur des colonnes fixes
Merci pour ta réponse

Je vais essayer de passer par des inputbox pour définir ColonneActive1 et ColonneActive2. Cà va être un peu dommage mais je vais me lancer.
Merci

 

[Michel1942]

C'est vraiment gênant de passer par un résultat intermédiaire le temps d'activer le second filtre ???

Comme je l'ai dis à Sloan je vais essayer de passer par des Inputbox pour définir mes colonnes actives.
Merci pour ta réponse

 

[TooFatBoy]

Comme je l'ai dis à Sloan je vais essayer de passer par des Inputbox pour définir mes colonnes actives.

Ben oui... Après tout, pourquoi faire simple quand on peu faire beaucoup plus compliqué ???
Pis ça répond pô à ma question...

Connais-tu notre ami Lionel ?
(son pseudo est @Usine à gaz )

 

[Michel1942]

Ben oui... Après tout, pourquoi faire simple quand on peu faire beaucoup plus compliqué ???
Pis ça répond pô à ma question...

Connais-tu notre ami Lionel ?
(son pseudo est @Usine à gaz )

Ma question était : comment récupérer 2 colonnes sélectionnées simultanément en VBA. Cà rentre dans plus grand que mon exemple. Le reste je me débrouille pour faire.

 

[TooFatBoy]

Ma question était : comment récupérer 2 colonnes sélectionnées simultanément en VBA. Cà rentre dans plus grand que mon exemple. Le reste je me débrouille pour faire.

Ah, ok.

J'avais mal compris. Je croyais que tu voulais simplement avoir le filtrage sur tes deux colonnes.

 

[Michel1942]

Ah, ok.

J'avais mal compris. Je croyais que tu voulais simplement avoir le filtrage sur tes deux colonnes.

Désolé si je n'était pas clair

 

[soan]

Bonsoir Michel, Marcel,

fais Ctrl f ; ça ne fait rien du tout ! c'est normal, car ta cellule active est en colonne A, et la 1ère colonne choisie ne peut pas être la colonne A ; pour choisir la 1ère colonne, sélectionne n'importe quelle autre cellule d'une autre colonne ; par exemple, va en B2 ➯ la 1ère colonne est la colonne B.

il ne peut pas y avoir 2 cellules actives en même temps ; cette version suppose que la 2ème colonne est toujours 3 colonnes à droite de la 1ère colonne choisie ; donc : 2ème colonne = colonne B + 3 = colonne E.

après avoir été en B2, fais Ctrl f ➯ même résultat que celui de mon fichier précédent ; seulement cette fois, tu peux choisir comme 1ère colonne une autre colonne que B, par exemple la colonne D ; la 2ème colonne sera alors, automatiquement, la colonne G. (car 3 colonnes à droite de la colonne D)
​

---

cette version marche que si ta 2ème colonne est toujours 3 colonnes à droite de la 1ère ; est-ce que c'est le cas en pratique ? regarde déjà ça, et donne-moi ton avis.

je vais proposer une autre version, où tu pourras choisir aussi la 2ème colonne, sans utiliser de inputbox. (mais ça va prendre du temps)​

---

code VBA (22 lignes) :

Option Explicit

Sub FiltrerBE()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim dlg&: dlg = Cells(Rows.Count, 1).End(3).Row: If dlg < 3 Then Exit Sub
  Dim plg As Range, col1%, col2%, lig&
  col1 = ActiveCell.Column: If col1 = 1 Then Exit Sub
  col2 = col1 + 3
  For lig = 3 To dlg
    If IsEmpty(Cells(lig, col1)) And IsEmpty(Cells(lig, col2)) Then
      If plg Is Nothing Then
        Set plg = Rows(lig)
      Else
        Set plg = Union(plg, Rows(lig))
      End If
    End If
  Next lig
  If plg Is Nothing Then Exit Sub
  Application.ScreenUpdating = 0
  plg.EntireRow.Hidden = -1
End Sub

soan