Besion aide pour suppression ligne (Listbox)

[flycyber]

bonjour,
je me permet de soliciter votre aide pour un petit probleme
j'utilise une UserForm avec une list box pour faire apparaitre les valeur de la page NOTE donc j'utilise ce code

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3
ListBox1.List = Sheets("NOTE").Range("H7:J20").Value
End Sub

de la j'aimerais pouvoir effacer n'importe quel ligne de la listbox avec un commandeButton mais j'aimerais que cela efface aussi les valeur sur la feuille de calcule NOTE donc j'utilise

Private Sub CommandButton3_Click()
Dim Indexlist
'Détermination de la ligne dans la feuille de base
Indexlist = ListBox1.ListIndex + 2
If Indexlist < 2 Then Exit Sub
Sheets("NOTE").Rows(Indexlist).Delete
Application.ScreenUpdating = False
Unload UserForm1
UserForm1.Show
End Sub

mais cela efface les valeurs de la listbox mais pas les valeur de la feuille et quand je rouvre l'UserForm elle ne se renitialise pas est ne fais plus aparaitre les valeur non effacer sur la feuille
merci de votre aide
respectueusement flycyber

 

[Cousinhub]

Re : Besion aide pour suppression ligne (Listbox)

Bonsoir,
essaie en changeant ton code par ce code :

Private Sub CommandButton1_Click()
Dim Indexlist
'Détermination de la ligne dans la feuille de base
With ListBox1
Indexlist = .ListIndex + 2
    If Indexlist < 2 Then Exit Sub
    Sheets("NOTE").Rows(Indexlist + 5).Delete
    .Clear
    .List = Sheets("NOTE").Range("H7:J20").Value
End With
Application.ScreenUpdating = False
End Sub

 

[flycyber]

Re : Besion aide pour suppression ligne (Listbox)

merci de ton soutien
mais malheureuse ca efface les valeurs de la listbox mais pas celle de la feuille ca les decales par le haut .
donc je bloque grave je vais essayer deux trois idée et je vous tien au courant
mais si une idée vient elle sera la bienvenue
respectueusement flycyber

 

[flycyber]

Re : Besion aide pour suppression ligne (Listbox)

re
merci de ton aide je revient sur le message precedent
ca fonction trés bien merci
j'avais simplement changer les cellule de reception ca ne pouvait pas fonctionner etourdissement du certainement a ma fatigue
mais pour etre sur comme je l'ai assez dit ces dernier temps

indexlist+5 ces le decalage pour la supression de celule donc si je commence le stockage a A10 il faut je indexlist +8 ces ca si j'ai bien saisi le code

ENCOR MERCI AVOUS ET A EXD
respectueusement flycyber