Bonjour, Le forum
J’utilise les macros dans le fichier ci-joint que j’ai trouvé sur le net grâce à tauthem. J’ai fait quelques modifications pour l’adapter à mon fichier et le tous est impeccable mais je souhaite ajouter un autre bouton pour supprimer une ligne sélectionnée dans listbox et du tableau dans la feuille « Histo ».
J'ai testé beaucoup de macros mais ne fonctionnent pas sur mon projet, alors je me suis retourné à vous, espérant avoir une idée.
Merci par avance !
https://www.cjoint.com/c/JGcm4TPkSVF
Private Sub Bt_SUPPRIM_Click()
Dim LI As Integer 'déclare la variable LI (LIgne)
Dim I As Long
If Me.ListBox1.ListIndex = -1 Then Exit Sub 'si aucun élément de la ListBox1 n'est sélectionné, sort de la procédure
LI = ListBox1.Column(0, ListBox1.ListIndex) 'récupère le numéro de lígne de l'élément sélectionné
O1.Rows(LI).Delete
For I = 1 To 6 'boucle sur les 6 TextBoxes
Me.Controls("TExtBox" & I + 2).Value = ""
Next I 'prochaine TextBox de la boucle
Me.ListBox1.Clear
Call ComboBox1_Change
End Sub
