Faire un filtre personnalisé en VBA

[Tophe2]

Bonjour le forum
Voilà ci joint un fichier ou mes essais sont incorrectes je m'explique j'aimerai filtrer tous les lignes ou se trouve le mot lundi mais je n'y arrive pas.
Voir le fichier pour mieux comprendre.
Cordialement.

 

[Pierrot93]

Re : Faire un filtre personnalisé en VBA

Bonjour Tophe

essaye peut être comme ci dessous :

  [A5].AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"

bon après midi
@+

 

[Tophe2]

Re : Faire un filtre personnalisé en VBA

Bonjour pierrot
Merci cela fonctionne correctement.
Christophe.
Bon a-m à toi aussi

 

[Tophe2]

Re : Faire un filtre personnalisé en VBA

Re
Voici mon PB lorsque j'ai copié le code de pierrot pour essai aucun PB mais si je le met dans la feuille final il ne me filtre pas à partir de la ligne demandé c'est à dire la ligne 2 (celle où se trouve les en tête).
Je comprends pas ??
Merci de votre aide ci joint le ficiher.
cordialement christophe.

 

[Pierrot93]

Re : Faire un filtre personnalisé en VBA

Re

essaye en modifian ton code comme suit :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'On Error Resume Next
'*** Catégorie
If Not Intersect(Target, Range("B1:F1")) Is Nothing And _
Target.Value <> "" Then
    Cancel = True
    [B]If ActiveSheet.AutoFilterMode = False Then Range("A2:V2").AutoFilter[/B]
    Range("Jours").Font.Bold = False
      [A2].AutoFilter Field:=1, Criteria1:="=*" & Target.Value & "*"
    '[A5].AutoFilter Field:=1, Criteria1:=Target.Value
    Target.Font.Bold = True
End If
If Not Intersect(Target, Range("A1")) Is Nothing Then
    Cancel = True
    Range("Jours").Font.Bold = False
    ActiveSheet.AutoFilterMode = False
End If
Cancel = True 'evite le mode édition lié au double-clic
If Not Application.Intersect(Target, Range("H3:O10,H18:O25")) Is Nothing Then
'If Target.Column = 8 Or 9 Or 10 Or 11 Or 12 Or 15 Then
If Target.Value = "" Then 'condition : si la céllule est vide
Target.Value = "X" 'place une croix (un X majuscule) dans la cellule
Target.HorizontalAlignment = xlCenter 'allignement centré
Target.VerticalAlignment = xlCenter 'allignement centré
Target.Font.Bold = True 'gras
Selection.Font.Size = 16


ElseIf Target.Value = "X" Then Target.Value = ""   '''''.Clear 'si la cellule contient une croix (un X majuscule), efface
End If 'fin de la condition
End If
End Sub

en gras la ligne de code rajoutée qui force le filtre sur 2ème ligne, par défaut il est placé sur la 1ère

bonne soirée
@+

 

[Tophe2]

Re : Faire un filtre personnalisé en VBA

Re Pierrot
Encore merci cela fonctionne
Christophe.