Bonjour. Où je me trouve, je ne peux télécharger par raison de sécurité …
Par contre, tu pourrais adapter le code suivant situé obligatoirement dans le module de la feuille des données à filtrer :
Code :
- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
- Etat = ThisWorkbook.Saved
- If Not Me.AutoFilterMode Then [B1:D1].AutoFilter
- If Target > "" And Not Intersect(Me.AutoFilter.Range, Target) Is Nothing Then
- Cancel = True
- If Target.Row = 1 Then
- If Me.FilterMode Then Me.ShowAllData
- [A1].Select
- Else
- P = InStr(Trim(Target), " " )
- P = IIf(Me.AutoFilter.Filters(Target.Column - 1).On Or P = 0, Len(Target), P - 1)
- Target.AutoFilter Target.Column - 1, Left(Target, P) & "*"
- End If
- ActiveWindow.ScrollRow = 2
- End If
- ThisWorkbook.Saved = Etat
- End Sub
|
Quelques explications :
- Ligne n°3 : s'il n'y a pas de filtre, ils sont automatiquement créés sur les colonnes B à D.
- Ligne n°5 : seul est géré le double clic pour une cellule non vide de ces colonnes.
- Ligne n°8 & 9 : si le double clic est dans la première ligne (celles des titres des colonnes) alors le filtrage est annulé.
- Ligne n°13 à 15 : filtre la colonne vis à vis de la cellule double cliquée en fonction du premier mot puis de l'intégralité de la cellule …
Aide pour une instruction particulière : positionner le curseur dessus puis appuyer sur la touche!
Message édité par Marc L le 17-05-2013 à 01:13:22