Listbox

Jean-Paul · 5 Septembre 2004

Bonjour a tous,je fais appel a votre aide encore une fois
parce que je suis débutant et j'ai beaucoup de misère

J'envoie un classeur,j'aimerais mettre les feuilles 2 3 4 5 6
dans un listbox dans la feuille qui se nomme mapage

J'ai beaucoup apris avec les macro.Maintenant c'est une autre étape
les listbox j'ai essayer mais sans résultat.

Merci de bien vouloir m'aider

@+Thierry · 5 Septembre 2004

Bonsoir Jean Paul, le Forum

Pas vraiment sûr d'avoir saisi ta question complètement, j'ai interprété que tu souhaitais avoir une Listbox de navigation répertoriant tes feuilles...

Ceci me donne l'occasion de faire un petit coucou à toute l'équipe d'XLD en te donnant une petite démo.

Bonne Soirée
@+Thierry

Jean-Paul · 5 Septembre 2004

Merci Thierry pour ta réponse,ce que tu as fait c'est exactement ce que je veux,mais si c'est possible pourrait tu m'expliquer comment proceder pour créer la listbox,comment faire pour mettre les pages dedans.

Merci beaucoup pour ton aide

@+Thierry · 6 Septembre 2004

re Bonsoir Jean Paul, le Forum

Tout est dans la macro "ListBoxAddItems" du module1.... La revoici commentée :

Sub ListBoxAddItems()
Dim WS As Worksheet 'déclaration de variable|/i]

   For Each WS In Worksheets 'démarrage de boucle
      If Sheets("MaPage").CheckBox1 = False Then'condition sur la checkbox
        If Not WS.Name = "MaPage" Then'condition sur le nom de feuille
          Sheets("MaPage").ListBox1.AddItem WS.Name'Action d'ajouter les noms de feuilles
        End If'fin de condition sur le nom de feuille
      Else'si la checkbox est cochée
      Sheets("MaPage").ListBox1.AddItem WS.Name'Action d'ajouter les noms de feuilles
      End If'fin de condition sur la CheckBox
   Next WS'Passage en boucle sur la feuille suivante
End Sub

Bonne nuit
@+Thierry

@+Thierry · 6 Septembre 2004

oups petit plantage dans la mise en page !!

Sub ListBoxAddItems()
Dim WS As Worksheet 'déclaration de variable

   For Each WS In Worksheets 'démarrage de boucle

      If Sheets("MaPage").CheckBox1 = False Then'condition sur la checkbox
          If Not WS.Name = "MaPage" Then'condition sur le nom de feuille
            Sheets("MaPage").ListBox1.AddItem WS.Name'Action d'ajouter les noms de feuilles
          End If'fin de condition sur le nom de feuille
      Else'si la checkbox est cochée
       Sheets("MaPage").ListBox1.AddItem WS.Name'Action d'ajouter les noms de feuilles
      End If'fin de condition sur la CheckBox

   Next WS'Passage en boucle sur la feuille suivante
End Sub

J'espère que ce sera plus lisible
@+Thierry

Jean-Paul · 6 Septembre 2004

Merci beaucoup Thierry pour tes renseignements
avec ça je vais pouvoir poursuivre

chao

Jean-Paul · 6 Septembre 2004

Salut Thierry,j'essais de faire ma listbox moi même
j'ai copier coller ,j'ai fais 2 boutons
et j'ai une erreur
j'envoie mon fichier pourrais tu svp me dire ce que j'ai manquer.
c'est sur que je peut utiliser ce que tu m'a envoyer mais j'aimerais le faire moi même question d'apprendre.

Merci de ton aide.

salim · 6 Septembre 2004

Bonjour Jean-Paul, @+Thierry, et le Forum

Jean-Paul la première erreurs c'est qu'il manque une CheckBox sur ta feuille la ligne en gras dans le code de @+Thierry et aussi j'ai remarquer que tu avais copier coller le code ci dessous dans l'evenement Click de la ListBox il faut mettre ce code d'en un module et appeler la Sub dans l'évenement Click du bouton placer sur la feuille voila une petite aide avant que @+Thierry ne repasse et corrige nos interventions de manière compléte et explicit.

Sub ListBoxAddItems()
Dim WS As Worksheet 'déclaration de variable|/i]

For Each WS In Worksheets 'démarrage de boucle
If Sheets("MaPage").CheckBox1 = False Then'condition sur la checkbox
If Not WS.Name = "MaPage" Then'condition sur le nom de feuille
Sheets("MaPage").ListBox1.AddItem WS.Name'Action d'ajouter les noms de feuilles
End If'fin de condition sur le nom de feuille
Else'si la checkbox est cochée
Sheets("MaPage").ListBox1.AddItem WS.Name'Action d'ajouter les noms de feuilles
End If'fin de condition sur la CheckBox
Next WS'Passage en boucle sur la feuille suivante
End Sub

Salim

Jean-Paul · 7 Septembre 2004

Merci Salim pour avoir répondu si rapidement

@+Thierry · 7 Septembre 2004

Bonjour Salim, Jean Paul, le Forum

Je ne fais que passer vite fait, juste pour remercier Salim d'avoir pris le relais et pour confirmer à Jean Paul que ces lignes là suffisent à incrémenter les noms de feuilles dans une ListBox :

Sub ListBoxAddItems()
Dim WS As Worksheet 'déclaration de variable

  For Each WS In Worksheets 'démarrage de boucle
     Sheets("MaPage").ListBox1.AddItem WS.Name'Action d'ajouter les noms de feuilles
  Next WS'Passage en boucle sur la feuille suivante
End Sub

bonne journée
@+Thierry

Jean-Paul · 7 Septembre 2004

Salut a tous,Thierry et Salim m'ont beaucoup aider pour ma listbox
J'ai réusi a faire une partie mais il me manque une chose,
je voudrais quand je clique sur une page dans ma listbox pouvoir aller directement sur cette page.

Merci d'aider un débutant encore une fois

Ps: Grace a vous tous je progresse rapidement

Jean-Paul · 7 Septembre 2004

Je M'excuse j'ai oublié mon ficher le voila

Jean-Paul · 7 Septembre 2004

Voici mon fichier

Mille excuses

CHti160 · 7 Septembre 2004

Salut " Jean-Paul "
re le "FORUM" quizz zzzzzzzzzzzzzzzzzzzzzzz
un petit fichier pour voir et améliorer
A+++
Jean Marie

Jean-Paul · 7 Septembre 2004

Merci Jean Marie
pour répondre si rapidement
c'est très bien ce que tu as fait

Listbox

Jean-Paul

Guest

@+Thierry

Guest

Pièces jointes

Jean-Paul

Guest

@+Thierry

Guest

@+Thierry

Guest

Jean-Paul

Guest

Jean-Paul

Guest

Pièces jointes

salim

Guest

Jean-Paul

Guest

@+Thierry

Guest

Jean-Paul

Guest

Jean-Paul

Guest

Jean-Paul

Guest

Pièces jointes

CHti160

Guest

Pièces jointes

Jean-Paul

Guest

Discussions similaires