Bonjour,
Je ne me suis attardé que sur le code du bouton modifier parce que vous découvrirez par vous même que votre design ne sera probablement pas tenable sur le long terme :
Private Sub CommandButton5_Click()
L = Me.ComboBox1.ListIndex + 27 'Récupère la position de l'item sélectionné dans la liste et ajoute 27 (décalage du tableau +1)
With Worksheets("Gestion Mails")
.Cells(L, 1) = Me.TextBox_UtilNom
.Cells(L, 2) = Me.TextBox_UtilPrenom
.Cells(L, 3) = Me.TextBox_UtilMail
.Cells(L, 4) = Me.TextBox_UtilGroupe
End With
End Sub
Ce code ne fonctionnera qu'avec un combobox comme vous l'avez construit, c'est à dire sans suppression de doublon.
Sinon je vous laisse chercher mais :
- Une BDD contient normalement un ID unique. Ici vous avez des doublons de noms et la méthode que vous utilisez pour afficher les valeurs après selection dans la combobox n'affiche que la première ligne trouvé > utilisez l'exemple présenté pour charger correctement vos textbox au lieu d'utiliser la méthode .find si vous ne supprimez pas les doublons dans votre combobox
- Si vous n'insérez pas une colonne ID unique et que je modifie un nom, ça se passe comment pour retrouver les informations si on se base sur la méthode .find ?
Sinon, en l'état, le code proposé répond à la problématique posée.
Cdlt,