Re,
En faisant du pas à pas, vous pourriez voir que vous repassez par la case InitListe()
Au moment de modifier la valeur du TexteBox2
Vous devez donc mettre un flag de passage pour éviter de lancer cette procédure
Private Sub ListView1_DblClick()
Dim Ind As Long
' Mettre le Flag de sortie à vrai
FlgExit = True
' Avec la liste
With Me.ListView1
Ind = .SelectedItem.Index
TextBox1.Value = .SelectedItem.Text
TextBox2.Value = .SelectedItem.ListSubItems(1).Text
TextBox3.Value = .SelectedItem.ListSubItems(2).Text
TextBox4.Value = .SelectedItem.ListSubItems(3).Text
ComboBox1.Value = .SelectedItem.ListSubItems(3)
TextBox5.Value = .SelectedItem.ListSubItems(4)
End With
Correctifs.Visible = False
Correctifs2.Visible = True
' Remettre le flag à Faux
FlgExit = False
End Sub
Et dans
Private Sub TextBox2_Change()
If FlgExit = False then Call InitListe(TextBox2.Value, 2)
End Sub
A+