Microsoft 365 Zone texte filtre

  • Initiateur de la discussion Initiateur de la discussion clausen
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Solution
Par contre, c'est faisable avec une TextBox, peut être cela vous irait il, avec :
VB:
Private Sub TextBox1_Change()
    ActiveSheet.ListObjects("Tableau32").Range.AutoFilter Field:=2, _
    Criteria1:="=" & TextBox1.Value & "*", Operator:=xlAnd
End Sub
Bonjour Clauser,
Un essai avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C2]) Is Nothing Then
         Application.ScreenUpdating = False
         ActiveSheet.ListObjects("Tableau32").Range.AutoFilter Field:=2, _
         Criteria1:="=" & Target & "*", Operator:=xlAnd
    End If
Fin:
End Sub
 

Pièces jointes

Bonjour Clauser,
Un essai avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C2]) Is Nothing Then
         Application.ScreenUpdating = False
         ActiveSheet.ListObjects("Tableau32").Range.AutoFilter Field:=2, _
         Criteria1:="=" & Target & "*", Operator:=xlAnd
    End If
Fin:
End Sub
Merci mais est ce pas possible sans que l'on type enter ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
45
Réponses
16
Affichages
786
Réponses
13
Affichages
134
Retour