RESOLU par phlaurent55 - Filtre ligne par 2

castor30

XLDnaute Occasionnel
Bonjour,
Le filtre permet de filtrer ligne par ligne, mais peut-on filtrer 2 lignes à la fois ?
ex : Ligne 2 colonne E si un "X" se trouve sur les lignes 2, 16 et 22 en colonne "F"
Je voudrais que le filtre me sélectionne les lignes 2 et 3 ; 16 et 17 ; 22 et 23
Toujours la ligne ou se trouve un "X" avec la ligne immédiatement en dessous.
Peut être par Vba mais là je ne sais pas faire.
En vous remerciant.
 

Si...

XLDnaute Barbatruc
Salut

Philippe :D, pour un Bouton Bascule (ToggleButton) nommé BB, on aurait plutôt

VB:
Private Sub BB_Click()
  BB.Caption = IIf(BB, 5, 6)  ‘font Webdings
  Application.ScreenUpdating = 0
  If BB Then [Plage].Rows.Hidden = 0  'True : tout
  If Not BB Then                                      'False : filtre
    For i = 1 To [Plage].Rows.Count
      If UCase(Cells(i, 5)) <> "X" Then Rows(i).Hidden = 1 Else i = i + 1
    Next
  End If
End Sub
 

Pièces jointes

  • Bouton Bascule.xlsm
    21.9 KB · Affichages: 59

castor30

XLDnaute Occasionnel
Bonsoir Si...
Est-il possible dans ce code que :
Private Sub BB_Click()
BB.Caption = IIf(BB, 5, 6) ‘font Webdings
Application.ScreenUpdating = 0
If BB Then [Plage].Rows.Hidden = 0 'True : tout
If Not BB Then 'False : filtre
For i = 1 To [Plage].Rows.Count
If UCase(Cells(i, 5)) <> "X" Then Rows(i).Hidden = 1 Else i = i + 1
Next
End If
End
Sub
Lorsque l'on enlève le filtre, ça efface la sélection effectuée de E2 a Exxx
Que lorsque l'on met un X ça inscrive la date du lendemain en colonne F
En te remerciant.
 
Dernière édition:

Si...

XLDnaute Barbatruc
Re

L’ayant vu dans le titre, j’ai évité l’outil Tableau.
Dans ces cas, j’utilise volontiers les plages nommées.

Tu n’as peut-être pas fait attention mais, avec cela, tu ne dois pas avoir de problèmes de version.

Pour supprimer les pointillés de la sélection sur la feuille, il suffit d’appuyer sur la touche « Echap ».

Pour ajouter la date du lendemain, cela peut se faire :

-avec une formule du genre, en Fn (formatée en date) : =SI(En="X";AUJOURDHUI()+1;"")
-une autre macro (évènementielle) variable selon le nombre de dates à ajouter (chaque X ou seulement le nouveau ?).
 

Pièces jointes

  • Bouton Bascule2.xlsm
    148 KB · Affichages: 58

castor30

XLDnaute Occasionnel
Bonsoir Si,
C
Je préférerai une modification de ta macro pour que :
1 efface en colonne E2:E... lorsque l'on quitte la sélection
2 qui me mettre la date du jour lors de la saisie d'un X
je pense que le code que tu m'a gentiment fourni peut être modifié en ce sens
 

Discussions similaires