Sélection d'une feuille excel avec une listbox

Bonjour à tous,
je suis une très grande débutant en VB et je dois réaliser pour le boulot une petite application. Et dans cette application, j'ai créé une listbox et je voudrais qu'en double-cliquant sur une des lignes de la listbox soit sélectionné une feuille d'un fichier Excel déjà ouvert.
Voici ce que j'ai réalisé (et qui ne marche pas!!!)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

'Création de la listBox Private Sub UserForm_Initialize() ListBox1.Clear ListBox1.AddItem "Janvier" ListBox1.AddItem "Février" ListBox1.AddItem "Mars" ListBox1.AddItem "Avril" ListBox1.AddItem "Mai" End Sub   'Action du double click : Récupération du numéro d'index de la listbox et ouverture du programme de selection de la feuille Sub ListBox1_DoubleClick() Dim N As Integer N = ListBox1.SelectedIndex Windows("Fichier.xls").Activate Call Selectionfeuille End Sub   'Programme de selection de la feuille Sub Selectionfeuille() Dim N As Integer If N = 0 Then Sheets("Janvier").Selected ActiveWindow.SelectedSheets End If If N = 1 Then Sheets("Février").Selected ActiveWindow.SelectedSheets End If If N = 2 Then Sheets("Mars").Selected End If If N = 3 Then Sheets("Avril").Selected End If If N = 4 Then Sheets("Mai").Selected End If End Sub

---

Pourriez vous me dire pourquoi ça ne fonctionne pas et comment puis-je corriger cela. Merci d'avances!
Attention n'oubliez pas je suis une novice, ne soyez pas trop techniques dans vos réponses!


Merci mille fois!

ca ne marche pas car tu ne passes pas le paramètre N

De plus, c'est Select qu'il faut utiliser pas selected.

Donc plutôt

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim N As Integer   N = Me.ListBox1.ListIndex Application.Workbooks("fichier.xls").Activate Call Selectionfeuille(N) End Sub   Sub Selectionfeuille(ByVal N As Integer) Select Case N Case 0 ActiveWorkbook.Worksheets("feuil1").Select Case 1 ActiveWorkbook.Worksheets("feuil2").Select Case 2 ActiveWorkbook.Worksheets("feuil3").Select End Select End Sub

---

Je vous remercie beaucoup ça marche!
bonne journée!

Citation:

---

Envoyé par bidou

ca ne marche pas car tu ne passes pas le paramètre N

De plus, c'est Select qu'il faut utiliser pas selected.

Donc plutôt

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim N As Integer   N = Me.ListBox1.ListIndex Application.Workbooks("fichier.xls").Activate Call Selectionfeuille(N) End Sub   Sub Selectionfeuille(ByVal N As Integer) Select Case N Case 0 ActiveWorkbook.Worksheets("feuil1").Select Case 1 ActiveWorkbook.Worksheets("feuil2").Select Case 2 ActiveWorkbook.Worksheets("feuil3").Select End Select End Sub

---

---

Bonsoir membres du forum,
Je voudrais adapter ce code à ma recherche mais voici comment il s'affiche dans le module privé:

Pièce jointe 622896
Pièce jointe 622895

J'aimerais savoir pourquoi ?
Ensuite la présentation de cette ligne de code:

Code:

---

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

---

Cordialement.

Bonjour,
Vous vous compliquez la vie inutilement.
Ce n'est pas la première fois que je vous le signale mais sans un apprentissage minimum et sérieux du VBA, vous allez droit dans le mur.
Je trouve étonnant qu'un enseignant, si je me réfère à votre profil, continue à progresser de la sorte sans un minimum de lecture de tutoriels.

Cette seule ligne placée dans la procédure événementielle Click du contrôle ListBox nommé lst_Sheet est suffisante pour sélectionner la feuille

Code:

---

1 2 3

Private Sub lst_Sheet_Click() Sheets(Me.lst_Sheet.ListIndex + 1).Select End Sub

---

Explication
Tout objet de même nature fait partie d'une collection donc l'objet Sheet fait partie de la collection Sheets. L'élément d'une collection est invoqué soit par son n° d'indice, soit par son nom.
Pour la collection Sheets et Worksheets l'indice 1 est la première feuille à gauche.
La propriété ListIndex d'un objet ListBox renvoie le n° de la ligne sélectionnée, le premier élément commençant à 0 et en supposant que la feuille se trouvant tout en haut et la dernière tout en bas de la liste il suffit donc d'effectuer une simple addition de 1 par rapport à la valeur de ListIndex pour avoir le bon indice pour la feuille


Illustration

Pièce jointe 622899

Dans mon exemple, la liste du ListBox est alimentée par

Code:

---

1 2 3

Private Sub UserForm_Activate() Me.lst_Sheet.List = GetSheetList End Sub

---

Code de la procédure GetSheetList qui peut être placée dans un module Standard ou dans le module du UserForm

Code:

---

1 2 3 4 5 6 7 8 9 10

Function GetSheetList() As Variant ' Renvoie la liste des feuilles (objet Sheet) Dim tbl As Variant ReDim tbl(0 To Sheets.Count - 1) Dim s As Integer For s = 0 To Sheets.Count - 1 tbl(s) = Sheets(s + 1).Name Next GetSheetList = tbl End Function

---

Bonsoir Professeur Philippe Tulliez,
Vous m'avez les premières clefs, je ne suis qu'un apprenant.
Désolé pour mon bricole. Permettez moi d'avancer petit à petit.
Merci infiniment.
Cordialement.