Discussion :

[revemane]

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

[jfontaine]

Bonjour,

Un exemple de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Krovax]

Bonjour
sans plus d'info voici un code générique qu'il te faudra adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[revemane]

merci pour vos reponses j'ai réussi à me débrouiller avec vos codes

[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.

[MarcelG]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jamital]

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+

[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.

[jamital]

Mfoxy : Un peu plus de détails sur le sujet.
A+

[mfoxy]

Jamital,

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

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