Discussion :

[scoubi77]

Bonjour à 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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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

[eric4459]

Bonjour,
En y pensant rapidement, pas testé, tu pourrais essayer quelque-chose dans ce genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With Sheets("Feuil5")
    NbDonnée1 = .Cells(.Rows.Count, 1).End(xlUp).Row - 1 ' On compte le nombre de données présentes en colonne A par exemple si les données de la listBox1 s'y trouvent
    NbDonnée2 = .Cells(.Rows.Count, 2).End(xlUp).Row - 1 ' On compte le nombre de données présentes en colonne B par exemple si les données de la listBox2 s'y trouvent
End With
 
For j=1 to NbDonnée1
       For k =1 to NbDonnée2
            If Userform1.textboxj.Value=Userform2.TextBoxk.Value Then
             'Ce que tu veux faire
            End if
      Next k
next j

Eric

[Quentin77170]

Ce que tu peux faire, serait quelque chose du genre :
Dans ton UserFormA :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub TextBox1_Change()
With UserFormB.ListBox1
    For i = 0 To .ListCount - 1
        If .List(i, [colonne éventuelle]) Like "*" & TextBox1.Text & "*" Then .Selected(i) = True 
    Next i
End With
End Sub

NOTA : si tu veux avoir plusieurs sélections dans ton UserFormB, active le MultiSelect dans les propriétés de la ListBox

NOTA 2 : Les astérisques "*" remplacent "toute chaine de caractères", donc si tu veux que ça commence par "je" tu écris XXX Like "je*", si tu veux que ça finisse par "je" : XXX Like "*je" ou dans le cas de ce que je t'ai écrit, si tu veux que ça contienne "je" : XXX Like "*je*"