Discussion :

[bilbin]

Bonjour à tous !

Je viens vers vous aujourd'hui car je n'arrive pas à trouver solution à mon problème qui parait pourtant si simple.

J'ai crée sur une feuille excel un système 'd'onglets' qui permet à l'utilisateur d'aller en cliquant sur les boutons "options" là où il veut (voir capture d'écrans). Pour chacune de ces options, il y a une ListBox qui présente des phrases que l'utilisateur viendra sélectionner pour ensuite les exporter vers un document Word via le Bouton "exporter".

J'ai pensé en premier lieu à créer plusieurs ListBox (pour chaque onglets) ainsi que plusieurs boutons Exporter. Mais au vue du nombre d'onglets que j'ai sur le fichier excel de mon projet, je me suis dit que qu'il était plus judicieux d'avoir une seule ListBox et un seul bouton Exporter.

J'ai donc changer la propriété de ces deux composants en "ne pas déplacer ou dimensionner avec les cellules".

Sauf que le problème maintenant, c'est que je ne vois pas comment remplir la ListBox avec les données qui correspondent à l'onglet choisi (ces données se trouvent sur la deuxième feuille du classeur ci-joint).

Je n'arrive pas à trouver l'instruction en VBA qui dirait : si tu as cliquer sur l'onglet 'option1' ou si le sub Option1_cliquer est réalisé, remplit la ListBox avec les lignes de B4 à B7 de la feuille Données
Si tu as cliqué sur l'onglet 'option2', remplit la ListBox avec les lignes de B11 à B13 de la feuille Données etc ...

J'ai pourtant essayé : If Option1_cliquer = True then mais je pense que je n'ai pas compris comment utiliser cette propriété.

Quelqu'un pourrait-il m'éclairer ?

Merci à tous ceux qui se pencheront sur mon problème

[FredR92]

Bonjour Bilbin,

Tout d'abord, il est préférable quand tu inities un nouveau sujet de ne pas poster un fichier mais de fournir directement les lignes de codes qui posent problèmes.

Je procèderais personnellement en utilisant l'instruction Select Case:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case MulitiPages.Value
 
Case 0 '---> Option 1
    ' Ton code pour remplir la listbox avec les données de l'option 1
 
Case 1 '---> Option 2
    ' Ton code pour remplir la listbox avec les données de l'option 2
 
Case 2 '---> Option 3
    ' Ton code pour remplir la listbox avec les données de l'option 3
 
End Select

Bonne fin de journée.

Frédéric

[bilbin]

Bonjour Fred92,

Tout d'abord merci pour ta réponse et je prend note de la remarque que tu m'as faite dans le début de ton message.

Concernant la solution que tu me proposes, je ne pense pas que je puisse la retenir car tu utilises la propriété Mutlipages. Or, dans mon fichier excel, je n'ai pas utilisé ceci. Pour le système d'onglet, il s'agit juste d'une macro où je viens cacher/afficher certaines colonnes comme tu peux le voir dans le code suivant:

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
Sub Option1_Cliquer()
ActiveSheet.Shapes("Option1").Fill.ForeColor.RGB = RGB(90, 155, 230)
ActiveSheet.Shapes("Option2").Fill.ForeColor.RGB = RGB(189, 215, 238)
ActiveSheet.Shapes("Option3").Fill.ForeColor.RGB = RGB(189, 215, 238)
 
ActiveSheet.Columns("A:K").EntireColumn.Hidden = False
ActiveSheet.Columns("L:AE").EntireColumn.Hidden = True
End Sub
 
Sub Option2_Cliquer()
ActiveSheet.Shapes("Option1").Fill.ForeColor.RGB = RGB(189, 215, 238)
ActiveSheet.Shapes("Option2").Fill.ForeColor.RGB = RGB(90, 155, 230)
ActiveSheet.Shapes("Option3").Fill.ForeColor.RGB = RGB(189, 215, 238)
 
ActiveSheet.Columns("B:K").EntireColumn.Hidden = True
ActiveSheet.Columns("L:U").EntireColumn.Hidden = False
ActiveSheet.Columns("V:AE").EntireColumn.Hidden = True
End Sub
 
Sub Option3_Cliquer()
ActiveSheet.Shapes("Option1").Fill.ForeColor.RGB = RGB(189, 215, 238)
ActiveSheet.Shapes("Option2").Fill.ForeColor.RGB = RGB(189, 215, 238)
ActiveSheet.Shapes("Option3").Fill.ForeColor.RGB = RGB(90, 155, 230)
 
ActiveSheet.Columns("B:U").EntireColumn.Hidden = True
ActiveSheet.Columns("V:AE").EntireColumn.Hidden = False
 
End Sub

Je ne pense donc pas que je puisse utiliser la trame du code que tu m'as proposé à moins que je me trompe ...

[Philippe Tulliez]

Bonjour,
Je ne sais pas comment sont organisées vos données puisque vous ne l'avez pas affiché mais en créant un tableau structuré unique avec en première colonne le titre (par exemple Option 1 mais évidemment il serait préférable d'être plus explicite) et en seconde les textes à afficher et ensuite au clic sur l'onglet enclencher le filtre sur le titre en utilisant soit les filtres avancés d'excel (méthode AdvancedFilter) par exportation soit à l'aide de Power Query
Faire alors référence à la table exportée dans le ListBox

[bilbin]

Bonjour à tous,

La ligne de code à entrer dans le sub concerné est :

Code :

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

[ListBox1].ListFillRange = [Tableau15].ListObject.DataBodyRange.Address(External:=True)

Merci de votre réponse Philippe. Il faudrait en effet que je m'intéresse de plus près aux filtres avancés d'Excel ou encore PowerQuery.

Merci encore à vous et bonne continuation.