Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Besion aide pour suppression ligne (Listbox)

  • Initiateur de la discussion Initiateur de la discussion flycyber
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

flycyber

XLDnaute Nouveau
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
 
Re : Besion aide pour suppression ligne (Listbox)

Bonsoir,
essaie en changeant ton code par ce code :

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
 
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
 
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
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…