Supprimer ligne selectionné listbox et feuille.

Résolu/Fermé

Utilisateur anonyme - Modifié le 2 juil. 2020 à 15:03
Utilisateur anonyme - 2 juil. 2020 à 16:08

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

A voir également:

Supprimer ligne selectionné listbox et feuille.
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Hors ligne instagram - Guide
Aller à la ligne excel - Guide
Vente en ligne particulier - Guide

2 réponses

Réponse 1 / 2

ccm81 Messages postés 10851 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 16 avril 2024 2 404
2 juil. 2020 à 15:49

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

Réponse 2 / 2

Utilisateur anonyme
2 juil. 2020 à 16:08

bonjour ccm81
merci infiniment
ça marche top

Discussions similaires

Que veut dire "correspondant occupé" lors d'un appel ?

Statut « en ligne » alors que non

Discussions similaires

Newsletters