voilà, j'ai fais les modifs au niveau de la taille de l'userform. Mais toujours pas de solution pour mon problème de "Modifier"
________________________________________________________________
bonjour speedtriple,
la boucle dans cette macro ne correspond pas au nombre de textbox du userform3
ListView1.ColumnHeaders.Count - 2 = ( 1,2,3,....10)
si i = 10
Controls("TextBox" & i + 1) ce textbox11 est innexistant
Private Sub Modifier_Click()
Dim Ligne As ListItem
On Error Resume Next
Set Ligne = ListView1.SelectedItem
On Error GoTo 0
If Ligne Is Nothing Then
MsgBox "Aucune ligne n'est sélectionnée."
Exit Sub
End If
UserForm4.Show
If FlagMdP = True Then
With UserForm3
.TextBox1 = ListView1.ListItems(ListView1.SelectedItem.Index).Text
For i = 1 To ListView1.ColumnHeaders.Count - 2
.Controls("TextBox" & i + 1) = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(i).Text
Next
.LblLigne = ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(10).Text
.Show
End With
End If