Discussion :

[kbj_ihma]

Bonjour,
J'ai fait un filtre personnalisé pour faire une "zone de recherche" dans un document excel, seulement j'aurai aimé rajouté le fait que lorsqu'on tape le texte à rechercher dans ma cellule C3 et que l'on appuie sur entré : que l'on ne se retrouve pas dans cellule juste en bas.

Je voudrai que seulement dans la cellule C3, à la suite de l'appuie sur la touche Entrée : qu'on reste au même endroit.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Dim Crit As String
 
     Crit = Sheets("BIBLIOTHEQUE").Range("C3").Value
     'Si cellule vide tout afficher
     If Crit = "" Then
     Sheets("BIBLIOTHEQUE").Range("A5:F83").AutoFilter Field:=3
 
 
     End If
     'Si cellule pleine : filtre personnalisé
     If Crit <> "" Then
     Sheets("BIBLIOTHEQUE").Range("A5:F83").AutoFilter Field:=3, Criteria1:="*" & Crit & "*"
     End If
 
End Sub

Je pensais à la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Mais j'avoue que je ne sais pas comment faire.
Merci d'avance de votre aide.

[Nicopilami]

rajoute juste à la fin de ta sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("BIBLIOTHEQUE").Range("C3").select

pour revenir à ta cellule, si c'est ce que tu souhaites

bye
nico

[ctac_]

Bonjour,

Ceci devrais suffire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C3")) Is Nothing Then
         Range("A5:F83").AutoFilter Field:=3, Criteria1:="*" & Target & "*"
    End If
End Sub

ctac

[kbj_ihma]

bonsoir ctac et nicopilami,
Merci pour votre aide;
J'ai raccourci mon code en mettant ce que tu m'as proposé ctac et rajouté la ligne de nicopilami.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("C3")) Is Nothing Then
         Range("A5:F83").AutoFilter Field:=3, Criteria1:="*" & Target & "*"
         Sheets("BIBLIOTHEQUE").Range("C3").Select
    End If
End Sub

et c'est parfait, c'est exactement ce que je voulais.
Merci encore
bonne soirée