IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

suppression de données dans une listbox


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2008
    Messages
    66
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 66
    Par défaut suppression de données dans une listbox
    Bonjour tout le monde,

    J'essaie d'utiliser une commandbutton afin de supprimer la ligne que j'ai sélectionné dans la listbox qui s'appelle Listparois.

    J'ai essayé en adaptant le tutoriel par rapport à mon problème, mais quand, lors de l'application, je clique sur le bouton, vba affiche une erreur.

    Ma listbox comporte 3 colonnes si ça peut vous aider.

    Cordialement

    PS : Si vous avez besoin de plus d'informations, veuillez me prévenir, merci

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    On aurait besoin du code sur le bouton, car pour trouver , et de quel tutorial tu parles.

    Starec

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2008
    Messages
    66
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 66
    Par défaut
    Le voici :

    Supprimer un élément dans une ListBox.
    L'exemple ci-dessous enlève un Item lors du double clic sur la ligne.
    Vba


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Private Sub Listbox1_Dblclick(ByVal Cancel As MSForms.ReturnBoolean)
        'Remarque:
        'La propriété RowSource n'accepte pas cette méthode
        ListBox1.RemoveItem (ListBox1.ListIndex)
    End Sub

    J'espère que ça pourra t'aider, car en voulant adapter le code à mon problème, cette méthode n'a visiblement pas fonctionné

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    En attendant que je teste, as-tu essayé en créant ta liste avec List() ?
    A+

  5. #5
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Testé=>Ok !
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Private Sub CommandButton1_Click()
    ListBox1.RemoveItem (ListBox1.ListIndex)
    End Sub
     
    Private Sub UserForm_Initialize()
    Dim FL1 As Worksheet, tablo
    Set FL1 = Worksheets("feuil1")
    Tablo = FL1.Range("A1:j" & FL1.Range("A65536").End(xlUp).Row).Value
    ListBox1.List() = Tablo
    'ListBox1.ListIndex = ListBox1.ListCount - 1
    End Sub
    Tu dis

  6. #6
    Membre confirmé
    Profil pro
    Inscrit en
    Février 2008
    Messages
    66
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2008
    Messages : 66
    Par défaut
    En ce qui concerne la création de liste, ce n'est pas vraiment un problème. J'ai réussi à insérer des données avec d'autres listes ainsi qu'avec des textbox+Commandbutton.

    Mon problème est dans la suppression d'une ligne "erronée" sélectionnée avec une CommandButton

    Si tu as des idée, pourrais tu me les communiquer, merci

  7. #7
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    En ce qui concerne la création de liste, ce n'est pas vraiment un problème
    Si, puisqu'avec RowSource, tu ne peux pas utiliser RemoveItem (ce qui paraît logique) ton problème est bien la création de tes listes.
    Le code que je t'ai passé avec List() fonctionne (!)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] affichage de donnée dans une listbox ou textbox d'un userform
    Par revemane dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/05/2009, 20h13
  2. Réponses: 3
    Dernier message: 12/03/2009, 10h37
  3. Réponses: 3
    Dernier message: 03/07/2008, 14h32
  4. Réponses: 5
    Dernier message: 10/01/2008, 08h47
  5. Comment faire apparaitre des données dans une listbox
    Par nuans dans le forum Interfaces Graphiques
    Réponses: 3
    Dernier message: 14/05/2007, 15h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo