Supprimer ligne selectionné listbox et feuille.
Résolu
Utilisateur anonyme
-
Utilisateur anonyme -
Utilisateur anonyme -
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
L'expérience est une lanterne attachée dans notre dos, qui n'éclaire que le chemin parcouru. Confucius
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
L'expérience est une lanterne attachée dans notre dos, qui n'éclaire que le chemin parcouru. Confucius
2 réponses
-
Bonjour
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
Cdlmnt -
