Discussion :

[felibelle]

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 :

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
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!

[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 :

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
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

[felibelle]

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

[morobaboumar]

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 :

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
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é:




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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Cordialement.

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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



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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[morobaboumar]

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.