Forums XLPages

Excel & VBA Forum principal [résolu] Supprimer une ligne depuis une ListBox après une recherche

Supprimer une ligne depuis une ListBox après une recherche
#1
manwe24
Débutant XLPages

Inscription: 05/12/2010

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010
Posté le : 17-02-2011 15h26
Bonjour à tous,

J'arrive à supprimer une ligne depuis une ListBox avec ce code :

NumLig = 2 + Me.lstFiltre.ListIndex + 2
  lstFiltre.RemoveItem (lstFiltre.ListIndex)
Sheets("Feuil1").Rows(NumLig).EntireRow.Delete
mais je souhaiterais aussi supprimer la ligne après une recherche comme dans le fichier ci-joint développé par MyDearFriend.

Par exemple : mon code supprime bien la ligne "BERNARD" dans la liste, mais si je recherche "DUPONT", il me supprime aussi très logiquement la ligne "BERNARD"

Je ne trouve pas la solution pour qu'il supprime la ligne correspond à la recherche.

Pourriez-vous m'aidez ?

Merci d'avance.



Pièce jointe:
xls PourTeus.xls   [ Taille: 50.00 Ko - Téléchargements: 661 ]
Hors Ligne
 Rapport   Haut 

Re: Supprimer une ligne depuis une ListBox après une recherche
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 18-02-2011 01h08
Bonsoir manwe24,

Il te suffisait d'observer la procédure suivante (un peu plus haut dans le code) :
Private Sub lstFiltre_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With lstFiltre
        ActiveSheet.Rows(.List(.ListIndex, 5) + 3).Select
        Unload Me
    End With
End Sub
... et de reprendre le même principe.

Le code dont tu as besoin devient :
   With lstFiltre
        Sheets("Feuil1").Rows(.List(.ListIndex, 5) + 3).EntireRow.Delete
    End With
comme dans la pièce jointe en retour.

Cordialement,
Pièce jointe:
zip PourManwe24.zip   [ Taille: 18.67 Ko - Téléchargements: 915 ]
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Supprimer une ligne depuis une ListBox après une recherche
#3
manwe24
Débutant XLPages

Inscription: 05/12/2010

Messages: 14

Système d'exploitation:
PC
Version Excel utilisée:
2003,2007,2010
Posté le : 18-02-2011 10h15
Bonjour,

tu as raison, j'aurais du mieux observer, je me complique vraiment à chaque fois.

Je te remercie de m'avoir éclairé (encore).

Bonne journée.
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes