Bonsoir à tous,
Depuis la valeur d'une textbox d'un userform A ( valeur libérale ) je voudrais surligner la ligne contenant la phrase dans la listebox de l'Userform B, sachant qu'elles seront tristement identiques.
Je crée ma listebox dans mon userform B comme ceci :
Par exemple si la valeur de ma textbox userform A est : une double portion de rien je voudrais que la ligne dans la listebox userform B contenant : une double portion de rien soit sélectionnée.
Merci à vous tous pour vos aides
Depuis la valeur d'une textbox d'un userform A ( valeur libérale ) je voudrais surligner la ligne contenant la phrase dans la listebox de l'Userform B, sachant qu'elles seront tristement identiques.
Je crée ma listebox dans mon userform B comme ceci :
Code:
Private Sub UserForm_Activate()
Dim i As Byte
Dim tata As Integer
Application.ScreenUpdating = False
Feuil5.Select
u = Feuil5.Range("N65536").End(xlUp).Row
For i = 2 To u
If Feuil5.Range("O" & i).Interior.ColorIndex = 3 Then
UserForm3.ListBox1.ColumnWidths = "20;70;250;60;20;110;30"
ListBox1.AddItem
tata = ListBox1.ListCount - 1
ListBox1.List(tata, 0) = Feuil5.Range("A" & i).Value
ListBox1.List(tata, 1) = Feuil5.Range("B" & i).Value
ListBox1.List(tata, 2) = Feuil5.Range("C" & i).Value
ListBox1.List(tata, 3) = Feuil5.Range("H" & i).Value
ListBox1.List(tata, 4) = Feuil5.Range("I" & i).Value
ListBox1.List(tata, 5) = Feuil5.Range("J" & i).Value
ListBox1.List(tata, 6) = Feuil5.Range("P" & i).Value
End If
Next
Feuil1.Select
Application.ScreenUpdating = True
Label26 = u
End Sub
Par exemple si la valeur de ma textbox userform A est : une double portion de rien je voudrais que la ligne dans la listebox userform B contenant : une double portion de rien soit sélectionnée.
Merci à vous tous pour vos aides