Supprimer ligne selectionné listbox et feuille. [Résolu]

Signaler
Messages postés
185
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
6 octobre 2020
-
Messages postés
185
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
6 octobre 2020
-
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

2 réponses

Messages postés
9579
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 octobre 2020
1 926
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
Messages postés
185
Date d'inscription
mercredi 26 janvier 2011
Statut
Membre
Dernière intervention
6 octobre 2020
3
bonjour ccm81
merci infiniment
ça marche top