Aucune action suite à la Touche Entrée

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:

---

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:

---

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.

rajoute juste à la fin de ta sub

Code:

---

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

---

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

bye
nico

Bonjour,

Ceci devrais suffire.

Code:

---

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

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:

---

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