Bonjour,

J'ai un USF avec combobox et listbox ou j'ai un petit souci quand je veut modifier une ligne en passant par la combobox je n'ai aucun problème. Si je passe la listbox sa ne modifie rien?

Ci joint mon code


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
Private Sub CommandButtonModifierleclient_Click()
  Dim Lig As Long
  ' modifications
 If Me.ListBox1.ListIndex > -1 Then
    Lig = 3 + Me.ListBox1.ListIndex
  Else
    Lig = 3 + Me.ComboBox1.ListIndex
  End If
  With Sheets("Adm.")
    .Range("B" & Lig).Value = Me.ComboBox2
    .Range("D" & Lig).Value = Me.TextBox4 ' Ne pas inverser l'ordre des TextBox 4, 5, 3
    .Range("E" & Lig).Value = Me.TextBox5  'Ne pas inverser l'ordre des TextBox 4, 5, 3
    .Range("C" & Lig).Value = Me.TextBox3  'Ne pas inverser l'ordre des TextBox 4, 5, 3
    .Range("J" & Lig).Value = Me.TextBox9
    .Range("K" & Lig).Value = Me.TextBox10
    .Range("F" & Lig).Value = Me.TextBox6
    ' Etc ...
 End With
 
End Sub
Cordialement

Max