Ok. Bon en regardant votre fichier, voici le code pour la suppression
Private Sub ADD_supprimer_Click()
Dim Ligne As String
Ligne = LST_ADD_UTI.ListIndex + 2
If LST_ADD_UTI.ListIndex = -1 Then
Exit Sub 's'il n'y a aucune sélection, on ne fait rien
ElseIf MsgBox(("Etes vous sur de vouloir supprimer l'utilisateur " & FRM_ADD_UTI.LST_ADD_UTI.Text & " ?"), vbYesNo + vbInformation, "Demande de confirmation") = vbYes Then
Feuil1.Cells(Ligne, 1).Delete
MsgBox ("l'utilisateur " & FRM_ADD_UTI.LST_ADD_UTI.Text & " a été supprimé !")
Call BTN_CANCEL_Click
End If
End Sub
Autre chose à faire dans votre fichier
1. Allez dans la feuille 1 et remplacez le code par celui ci
Private Sub BTN_ADD_UTI_Click()
FRM_ADD_UTI.Show
End Sub
2. Allez dans votre userform FRR-ADD-UTI et ajoutez ce code
Private Sub UserForm_Initialize()
'On déclare la variable derligne (dernière ligne de la liste colonne A de feuille 1
Dim derligne As Long
derligne = Worksheets("feuil1").Range("A65536").End(xlUp).Row
'On boucle de la ligne 2 à derligne
For i = 2 To derligne
With FRM_ADD_UTI.LST_ADD_UTI
.AddItem Worksheets("Feuil1").Cells(i, 1)
End With
Next i
End Sub
3. Toujours dans votre userform - code Private Sub BTN_CANCEL_Click(), remplacez la ligne FRM_ADD_UTI.Hide par ceci
Unload FRM_ADD_UTI
Hide est utilisé lorsque vous voulez cacher une userform mais elle reste à l'arrière plan...
Cordialement