Supprimer ligne selectionné listbox et feuille.
Résolu
A voir également:
- Supprimer ligne selectionné listbox et feuille.
- Supprimer rond bleu whatsapp - Guide
- Comment supprimer une feuille sur word - Guide
- Partager photos en ligne - Guide
- Supprimer pub youtube - Accueil - Streaming
- Mètre en ligne - Guide
2 réponses
Bonjour
Cdlmnt
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