Supprimer ligne selectionné listbox et feuille.

Résolu
Utilisateur anonyme -  
 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:

2 réponses

Réponse 1 / 2
ccm81 Messages postés 10909 Date d'inscription   Statut Membre Dernière intervention   2 433
 
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
1
Réponse 2 / 2
Utilisateur anonyme
 
bonjour ccm81
merci infiniment
ça marche top
0

Discussions similaires

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

10 réponses
PIX
plart -
jordane45 -

1 réponse