RESOLU par phlaurent55 - Filtre ligne par 2

[castor30]

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.

 

[phlaurent55]

Bonjour Castor,

Pour ce cas précis, il faudra passer par une macro

à+
Philippe

 

[phlaurent55]

Re,

voir fichier joint

à+
Philippe

 

[castor30]

Bonjour phlaurent55
Je te remercie c'est exactement ce que je voulais
Bon week-end

 

[phlaurent55]

Re,

pour le fun , avec un ToggleButton

à+
Philippe

 

[Si...]

Salut

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

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

 

[castor30]

Bonjour,
Je suis sous Excel 2003 et le code ne fonctionne pas
Je vous remercie

 

[castor30]

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.

 

[Si...]

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 ?).

 

[castor30]

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

 

[castor30]

Dans ce code, ça ne passe pas (ligne en jaune)

 

[Si...]

salut

Tu filtres 1 colonne donc Field :=1.

Pour les autres demandes, il est difficile de répondre exactement quand on n’a pas un reflet précis de la situation.

 

[castor30]

merci beaucoup Si,
il ne me reste plus que ce problème :
mettre la date du jour en colonne F lors de la saisie d'un X en colonne E

 

[castor30]

Bonjour à tous,
Je reviens vers vous car problème persiste
Je vous mets un fichier avec ce que je souhaiterai
En vous remerciant

ps: code sans bouton souhaité

 

[phlaurent55]

Re-Bonjour

Je n'ai pas pris la peine de relire toutes les interventions mais uniquement les 2 dernières
Voir fichier joint

à+
Philippe