Une nouvelle proposition où, tout comme @Staple1600, j'utilise un filtre automatique.Bonsoir Marcel
Oui c'est ça mais il est très lourd
For ligne = 2 To 365
If Cells(ligne, 3) Like "*" & TextBox1 & "*" Then
ActiveSheet.Range("A" & ligne).EntireRow.Hidden = False
Else
ActiveSheet.Range("A" & ligne).EntireRow.Hidden = True
End If
Next
Bonsoir MarcelBonjour,
Peut-être comme ça :
VB:For ligne = 2 To 365 If Cells(ligne, 3) Like "*" & TextBox1 & "*" Then ActiveSheet.Range("A" & ligne).EntireRow.Hidden = False Else ActiveSheet.Range("A" & ligne).EntireRow.Hidden = True End If Next
Option Compare Text
Private Sub Textbox1_Change() 'Recherche
Application.ScreenUpdating = False
Range("c2:c365").Interior.ColorIndex = 2
If TextBox1 <> "" Then
For ligne = 2 To 365
If Cells(ligne, 3) Like "*" & TextBox1 & "*" Then
Cells(ligne, 3).Interior.ColorIndex = 37
ActiveSheet.Range("C" & ligne).EntireRow.Hidden = False
Else
ActiveSheet.Range("C" & ligne).EntireRow.Hidden = True
End If
Next
End If
End Sub
Private Sub TextBox1_Change()
If Len(TextBox1) = 10 Then
ActiveSheet.Columns(3).AutoFilter Field:=1, Criteria1:="=" & CDate(TextBox1.Value), Operator:=xlAnd
ActiveSheet.AutoFilter.Range.Interior.ColorIndex = 37
Else
On Error Resume Next
ActiveSheet.AutoFilterMode = False
ActiveSheet.Columns(3).Interior.ColorIndex = 2
End If
End Sub
Oups... pas vu. Désolé.Marcel32
C'était déjà dans le fil d'origine
Bonsoir JMMarcel32
C'était déjà dans le fil d'origine
Sinon pour reprendre l'idée du filtre automatique
VB:Private Sub TextBox1_Change() If Len(TextBox1) = 10 Then ActiveSheet.Columns(3).AutoFilter Field:=1, Criteria1:="=" & CDate(TextBox1.Value), Operator:=xlAnd ActiveSheet.AutoFilter.Range.Interior.ColorIndex = 37 Else On Error Resume Next ActiveSheet.AutoFilterMode = False ActiveSheet.Columns(3).Interior.ColorIndex = 2 End If End Sub
Oui, je viens de le trouver. Merci.Voici le fil en question
OK, je comprends.Je voulais juste dire qu'en théorie, on avait quitté la boucle
Mais apparemment, on y retourne
Une nouvelle proposition où, tout comme @Staple1600, j'utilise un filtre automatique.Bonsoir Marcel
Oui c'est ça mais il est très lourd