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 :

effacer mémoire 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
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut effacer mémoire listbox
    Bonjour,

    j'ai créé un bouton "sommaire" sur chaque page de mon classeur qui m'ouvre une fenêtre useform et qui me permet de sélectionner la feuille que je souhaite dans mon classeur. Le problème que je rencontre est que lorsque je sélectionne par exemple la feuil1 de mon classeur dans la liste, il me la garde en mémoire et donc quand je clique à nouveau sur mon bouton "sommaire" que ce soit sur n'importe quelle feuille de mon classeur je ne peux plus sélectionner la "feuil1". Je dois refermer ma fenêtre useform et la ré ouvrir.
    J'espère que l'explication est assez claire et je vous remercie de vos réponses.

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Au lieu tu metsje suppose

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut
    voilà le code que j'ai :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    Private Sub ListBox1_Click()
    Worksheets(ListBox1.Text).Select
    Me.Hide
     
     
     
    End Sub
     
    Private Sub UserForm_Initialize()
     
    Dim sh As Worksheet
     
    For Each sh In ThisWorkbook.Worksheets
     
        ListBox1.AddItem sh.Name
     
    Next
     
     
    End Sub

    Quelle ligne dois je changer?? merci de ta réponse

  4. #4
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    au lieu de metsparce que tu ne faisais que cacher ton userform
    c'est pourquoi tu avais toujours l'item sélectionné auparavant

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Septembre 2009
    Messages
    83
    Détails du profil
    Informations personnelles :
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations forums :
    Inscription : Septembre 2009
    Messages : 83
    Par défaut
    Merci beaucoup de ta réponse cela fonctionne à merveille merci encore

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

Discussions similaires

  1. [Débutant] Effacer éléments listbox
    Par kanoe82 dans le forum VB.NET
    Réponses: 6
    Dernier message: 16/12/2011, 10h44
  2. binding : Effacer contenu listbox
    Par toss.net dans le forum Windows Presentation Foundation
    Réponses: 4
    Dernier message: 24/09/2011, 16h07
  3. Effacer un item dans un Listbox
    Par PimpW dans le forum Delphi
    Réponses: 9
    Dernier message: 04/08/2006, 16h14
  4. [VB6] Effacer une listbox lors d'un clic.
    Par Chocapic dans le forum VB 6 et antérieur
    Réponses: 13
    Dernier message: 02/06/2006, 11h55

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