modifier ligne aprés filtre listbox

[jtitin]

bonsoir à tous

je filtre avec une listbox une feuille pour ne faire apparaitre que les lignes avec un "X"
je cherche à modifier une ligne sélectionnée dans la listbox par double click
c'est à dire enlever le "X" de la ligne sélectionné par la listbox au double click
et réinitialiser l'userform pour que la ligne disparaisse de la liste

si cela est possible ??
merci pour votre aide

 

[kjin]

Re : modifier ligne aprés filtre listbox

Bonsoir,

je cherche à modifier une ligne sélectionnée dans la listbox par double click
c'est à dire enlever le "X" de la ligne sélectionné par la listbox au double click
et réinitialiser l'userform pour que la ligne disparaisse de la liste

Je ne comprends pas très bien pourquoi enlever le "x" pour ensuite supprimmer la ligne; dois ton modifier la feuille ?
Sinon inutile de réinitialiser

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem ListBox1.ListIndex

End Sub

A+
kjin

 

[alexga78]

Re : modifier ligne aprés filtre listbox

Bonsoir à Jtitin et au forum,
essaie ceci : sous réserve que le réference du fruit soit bien unique !

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Sheets("Feuil1").Range("E" & Application.Match(ListBox1.List(ListBox1.ListIndex, 1), Sheets("Feuil1").Range("B1:B65000"), False)).Clear
ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub

Bonne soirée à tous

PS: bonsoir Kjin
un petit détail, comment fait-on pour inserer le code dans un cadre ?

 

[ledzepfred]

Re : modifier ligne aprés filtre listbox

bonsoir jitin,

ajoutes ceci dans ton code usf:

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For i = 0 To 4
ref1 = ref1 & Me.ListBox1.List(ListBox1.ListIndex, i) 'je concatène les valeurs de la ligne pour retrouver la ligne dans le feuillet
Next
Me.ListBox1.RemoveItem ListBox1.ListIndex 'j'enlève la ligne dans la listbox
With Sheets("Feuil1")
    For j = 2 To .[A65000].End(xlUp).Row
        If .Cells(j, 5) = "X" Then 'si la cellule de la colonne E ="X"
            For x = 1 To 5
                ref2 = ref2 & .Cells(j, x) 'je concatène les valeurs des 5 colonnes
            Next
            If ref1 = ref2 Then .Cells(j, 5).ClearContents: Exit Sub 'si la concaténation de la ligne de listbox = celle de la ligne du fichier alors effacer X
            ref2 = "" 'avant le tour de boucle je vide la variable ref2
        End If
    Next
End With
End Sub

Ci-joint fichier modifié

EDIT : bonsoir kjin, alexga (poui mettre un code dans un cadre sélectionnes ton code et cliques sur # pour y insérer des balises
A+

 

[ledzepfred]

Re : modifier ligne aprés filtre listbox

RE...

Alexga, ton code est très bien (nettement plus simple que le mien😉), toutefois il ne tient pas compte de doublons éventuels au niveau des références dans le fichier de jitin. En conséquence,

Jitin : si tu n'as pas de doublons dans tes références, le code d'alexga est parfait

a+

edit : excuses alexga, je n'ai pas vu l'edit de ton msg

 

[kjin]

Re : modifier ligne aprés filtre listbox

Re,
Je me suis rallié à l'idée qu'il fallait aussi modifier la feuille
Solution avec une colonne masquée dans la listbox
A+
kjin

 

[jtitin]

Re : modifier ligne aprés filtre listbox

re bonsoir
merci ledzepfred
c'est tous à fait ce que je recherche
colonne "fruit" il y a des doublons
colonne "réf" pas de doublons
effacement du "x" et conservation de la ligne dans feuil1
OK super

merci encore

 

[ledzepfred]

Re : modifier ligne aprés filtre listbox

bravo kjin,

j'ai l'air malin avec mon usine à gaz!!!😉

a+