• Initiateur de la discussion Initiateur de la discussion steph1605
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Bonjour steph1605

avec ces deux procédures, tu devrais t'en sortir.


Option Explicit
Private Sub ListBox1_Click()
ThisWorkbook.Sheets(ListBox1.Value).Activate
End Sub

Private Sub Worksheet_Activate()
       
Dim vrtFeuille                As Variant, Item                As Variant
       
       
With ListBox1
               
If Not .Value = Empty Then
                        .Selected(0) =
True
                       
Do While .ListCount > 0
                                .RemoveItem (.ListIndex)
                        Loop
               
Else
                       
For Each vrtFeuille In ThisWorkbook.Sheets
                                .AddItem vrtFeuille.Name
                       
Next vrtFeuille
               
End If
       
End With
        ThisWorkbook.Sheets(1).Activate
End Sub


[file name=classeur1_20050925211109.zip size=11151]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/classeur1_20050925211109.zip[/file]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
2
Affichages
216
Réponses
3
Affichages
454
Réponses
0
Affichages
151
Retour