suppression d'une ligne depuis une listbox

Version imprimable

02/09/2009, 11h47
revemane

suppression d'une ligne depuis une listbox

Bonjour

A partir d'un formulaire dans lequel j'ai une listbox contenant des données d'une feuille excel ( Feuil1), je souhaite, lorsque je sélectionne une ligne dans la listbox, pouvoir supprimer dans la feuille excel, avec un bouton supprimer, la ligne sélectionnée ( exemple ligne 5) et non la cellule ou sont les données.

Merci d'avance pour votre aide

Bonjour,

Un exemple de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
 
Private Sub CommandButton1_Click()
 
Dim i As Long
 
i = 1
 
Do While Sheets("Feuil1").Range("A" & i).Value <> ""
 
    If Sheets("Feuil1").Range("A" & i).Value = ListBox1.Text Then
        Sheets("Feuil1").Rows(i).Delete
    End If
 
    i = i + 1
 
Loop
 
End Sub

02/09/2009, 12h12
Krovax
Bonjour
sans plus d'info voici un code générique qu'il te faudra adapter
Code:

1 2 3 Private Sub CommandButton1_Click() Rows(ListBox1.ListIndex + 1).Delete End Sub
remplace le +1 par le décalage entre les ligne de la feuille et celle de la box
(la première ligne de la box est 0)

Edit : Bonjour Jérome le code de Jérome est aussi bien pratique, je suis parti du principe que la box était rempli par une plage de cellule
03/09/2009, 11h24
revemane

merci pour vos reponses j'ai réussi à me débrouiller avec vos codes
17/03/2020, 10h52
jamital

Bonjour , bien que le sujet est résolue et remonte à loin .J'aimerais que bien que l'intervenant au lieu de dire "Merci je me suis débrouillé tout seul" aura au moins l'obligeance
d’émettre la solution sur le post, moi par exemple je veux bien profiter.
Salut.

Bonjour à vous, Bonjour au Forum,

Je salue JFontaine qui m'a bien aidé lorsque j'étais un petit novice ;)

Au demeurant, je suis sceptique quant à sa proposition.
En effet
Si l'on teste ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Option Explicit Private Sub test_suppression() Dim i As Long i = 1 Do While Sheets("Feuil1").Range("A" & i).Value <> "" If Sheets("Feuil1").Range("A" & i).Value = "panpan" Then Sheets("Feuil1").Rows(i).Delete End If i = i + 1 Loop End Sub
Si 2 cellules de lignes successives reportent "panpan", alors l'exécution du code n'en supprimera qu'une seule.
Ce qui est logique.

Pour une suppression de ce type, mieux vaut partir du bas de la feuille.

Mieux.
(Déjà proposé maintes fois sur le Forum )
Remplacer dans la plage de cellules "panpan" par ""
Supprimer, en une seule fois, les lignes entières des cellules spéciales blanches ainsi créées.

Je vous laisse traduire en VBA.

18/03/2020, 13h49
jamital

Code Testé

Bonjour ,J'ai testé le code ,ça ne marche . Mais que faut_il faire pour supprimer l'item sélectionné directement dans la listbox .

A+
18/03/2020, 16h41
mfoxy

Bonjour,

Encore mieux qu'une boucle les filtres élaborés, une petit recherche sur le nom de Philippe Tulliez, sur ce forum te donnerais une solution clef sur porte à ton problème.

De plus en 2020, il serait préférable de travailler avec des tableaux structurés.
18/03/2020, 22h29
jamital

Philippe Tulliez

Mfoxy : Un peu plus de détails sur le sujet.
A+
19/03/2020, 14h58
mfoxy

Jamital,

La lecture de ceci devrait répondre à tes attentes.

https://www.magicoffice.be/excel-vba...dvancedfilter/