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.

 

[castor30]

Bonjour phlaurent55
Je te remercie de m'avoir répondu, cependant ça ne répond pas tout à fait à ma demande; excuse-moi.
Je voudrais pouvoir me passer des boutons et avoir la date en regard du "x".
Est-il possible de modifier le code en ce sens.
En te remerciant.

 

[castor30]

Je viens de voir ces codes qui fonctionnent :
Sub SpinButton1_SpinUp() 'OKOK
Application.ScreenUpdating = False
For i = 2 To Range("A30").End(xlUp).Row
If UCase(Cells(i, 5)) <> "X" Then
Rows(i).Hidden = True
Else
i = i + 1
End If
Next i
Application.ScreenUpdating = ttrue
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Mettre X colonne Sel OKOK
If Target.Row / 2 = Int(Target.Row / 2) Then
Target = "X"
Target.Offset(0, 1) = Format(Date, "dd/mm/yyyy")
End If
End Sub

Tous mes remerciements chaleureux.

 

[phlaurent55]

Re,

e te remercie de m'avoir répondu, cependant ça ne répond pas tout à fait à ma demande; excuse-moi.
Je voudrais pouvoir me passer des boutons

Voir fichier joint (uniquement pour cette demande)

à+
Philippe

 

[castor30]

Bonjour,
Tous mes remerciements phlaurent, vraiment sympa de ta part.
A+