marc.gilliand
XLDnaute Occasionnel
Bonjour,
j'ai ce bout de code :
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
' Range("A2:A24").Interior.ColorIndex = 2
ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 2 To 24
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(ligne, 1).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, 1)
End If
Next
End If
End Sub
j'aimerai que dans mon UF, Xl me remonte toutes les valeurs. Lorsque je taperai P, il me remonterait que les types de pièce commencant par P et ainsi de suite.....
j'ai ce bout de code :
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
' Range("A2:A24").Interior.ColorIndex = 2
ListBox1.Clear
If TextBox1 <> "" Then
For ligne = 2 To 24
If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
Cells(ligne, 1).Interior.ColorIndex = 43
ListBox1.AddItem Cells(ligne, 1)
End If
Next
End If
End Sub
j'aimerai que dans mon UF, Xl me remonte toutes les valeurs. Lorsque je taperai P, il me remonterait que les types de pièce commencant par P et ainsi de suite.....
Dernière modification par un modérateur: