la grande valeur dans listbox

[zine pef]

bonjour le forum
dans mon usf il un comboBox et listbox
quand je demande la fonction du comboBox s'affiche dans listbox,bien
et a ce moment la je veux que s'affiche dans textbox et dans la cellule
la grande valeur de listbox

 

[bqtr]

Re : la grande valeur dans listbox

Bonjour zine pef,

Ta macro modifiée:

Private Sub ComboBox1_Change()

Dim m As Long, x As Long, I As Integer, k As Long, C As Range
I = 0
ListBox1.Clear
 For Each C In Range([a2], [a65000].End(xlUp))
 If C.Offset(0, 2) = ComboBox1 Or ComboBox1 = "*" Then
    ListBox1.AddItem
    ListBox1.List(I, 0) = C.Value
    ListBox1.List(I, 1) = C.Offset(0, 1).Value
    ListBox1.List(I, 2) = C.Offset(0, 2).Value
    ListBox1.List(I, 3) = C.Offset(0, 3).Value
    ListBox1.List(I, 4) = C.Offset(0, 4).Value
    ListBox1.List(I, 5) = C.Offset(0, 5).Value
    ListBox1.List(I, 6) = C.Offset(0, 6).Value
    I = I + 1
    End If
Next C

For k = 0 To ListBox1.ListCount - 1
  If Val(ListBox1.List(k, 3)) > x Then
     m = Val(ListBox1.List(k, 3))
     x = m
  End If
Next

TextBox1 = m
Range("F2") = m

End Sub

Bonne journée

 

[zine pef]

Re : la grande valeur dans listbox

Merci Mr bqtr pour votre aide
merci bonne soirée