Afficher une liste box

"ca ne marche pas"

ca, ce sont les infos dont on a besoin !!!

phil_232,

comme je te l'ai deja dis sur une autre discussion, je n'ai pas besoin de tes remarques..

Alors pour rester courtois et ne pas dire de bétise (que je ne regreterai pas avec toi il va s'en dire...), je te demande de passer mes discussions...

Autant en VB je ne suis pas un caid mais autant je pense que dans beaucoup d'autre matière tu ne m'arive pas à la cheville (j'aimerai just savoir de quelle ecole tu sors histoire que je rigole!!!)

sur ce, continue bioen ta vie!!

cordialement.

Bonjour

N'empêche que, sur le fons, phil_232 n' a pas tort. Même sans être un caïd en VB, tu dois bien comprendre qu'il nous faut d'autres éléments qu'un simple 'ça ne marche pas' pour pouvoir t'aider. Un extrait de ton script par exemple...

Quant aux remarques de phil_232, si elles ne te plaisent pas, ignore les, ne réponds pas par des remarques plus ridicules sur vos supposés niveaux respectifs.

Bonjour,

J'avoue je me suis laissé allé mais de bon matin lire cela...

Mon code est faut..
Car je veux qu'en appuyant sur le bouton afficher tout il m'affiche dans la listbox deja déssinée tout les nom des feuille excel du doc...

le code que j'ai essaye de modifié est le suivant :

Sub ListBox()
'
' ListBox Macro
' Macro enregistrée le 30/01/2008 par boukemiche-ali
'
Dim wbk As Workbook
Dim Sh As Object
.Clear
For Each Sh In wbk.Sheets
.AddItem Sh.Name
.List(.ListCount - 1, 1) = IIf(Sh.Visible, "", Mask)
Next Sh
.ListIndex = wbk.ActiveSheet.Index - 1

'
End Sub

il faut dire que je n'ai pas compris ce code... il n'y aurait pas un moyen plus simple???

merci d'avance

Bonjour

Je te propose un code très voisin du tien

Il faut créer un UserForm avec une ListBox dedans. Le code de ton bouton afficher doit être User1.show
Voici le code à mettre dans le UserForm ( pas dans un module ni dans ThisWorkBook ni dans celui d'une feuille)

Option Explicit

Private Sub ListBox1_Click()
  ThisWorkbook.Sheets(ListBox1.Value).Activate ' active la feuille sélectionnée
  Unload Me
End Sub

Private Sub UserForm_Initialize()
  Dim sh As Worksheet
  With Me.ListBox1
    For Each sh In ThisWorkbook.Sheets ' parcourt la liste des feuilles
      ListBox1.AddItem sh.Name
    Next sh
  End With

End Sub

Merci pour ta réponse...

Le problème (que j'ai eu en ayant un code similaire au tient), c'est que lorsque je clique sur le "bouton1", j'ai erreur de compilation : variable non définie (pour listbox1)

d'ou peut venir cette erreur??

(merci encore pour ta rep :))

Avant de denigrer et de juger les personnes regarde d'ou tu viens....
Pour info je suis de X paris...

Je ne suis pas digne d'aider une super tête comme toi. Excuse-moi, je ne t'importunerai plus.

c'est marrant quand même dès que l'on dit que l'on vient de X Paris, comme beaucoup de gens peuvent en être jaloux...
C'est pas grave pour ce probleme je ne suis pas loin de le réglé seul je le mettrai sur le forum pour des gens comme moi qui n'ont pas de temps à perdre avec de fausse programmation de ce genre...

Vous me faite doucement rire, comme quoi, l'idée qu'on a des programmeur n'est pas si fausse que ca..

Messieur sur ce, je ne vous remercie pas bien bien entendu, comme il se doit, je vous em......

Pas de cordialement (histoire de faire le gosse comme vous :D)

je suis "awfully sorry", M l'ingénieur future. :))
j'ai fait Copy/Paste. mea culpa, mea maxima culpa. votre servant vous promet de ne plus jamais oser une chose pareille.