Discussion :

[sincenono]

Bonjour,

J'ai un tableau de données dont je dois tracer un graphe.
J'aimerais que l'utilisateur est la possibilité avant que le graphe soit tracer de pouvoir sélectionner les données qu'il souhaite.

J'aimerais qu'un UserForm apparaisse avec la liste des données et que l'utlisateur coche les données qu'il souhaite voir sur le graphe.

J'ai aucune idée de la faisabilité et de comment faire ?

Si vous avez des idées je suis preneur.

Merci d'avance,
Arnaud.

[ouskel'n'or]

Utilise "Application.inputBox("", type:=8)"
Tu as un exemple ici
Bonne soirée

[sincenono]

C'est pas exactement ce que je souhaiterais faire ou alors j'ai pas très bien compris comment cela marche.

Dans mon tableau chaque série a un nom et je voudrais que lorsque je trace mon graphe un UserForm apparaisse avec les noms de toutes les séries et l'utilisateur n'a qu'à cocher les données qu'il veut voir apparaitre.

Arnaud.

[ouskel'n'or]

Tes séries sont tes entêtes de colonnes, non ? Si oui, utilise une listbox renseignée avec tes entêtes. Une méthode parmi celles qui existent

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Activate()
Dim NoCol As Variant
    For NoCol = 1 To Range(Split(Worksheets("feuil1").UsedRange.Address, "$")(3) & "1").Column
        ListBox1.AddItem Cells(1, NoCol)
    Next
End Sub

Si ce n'est pas ça c'est que j'ai mal compris
Bonne nuit

[sincenono]

Tes séries sont tes entêtes de colonnes, non ? Si oui, utilise une listbox renseignée avec tes entêtes. Une méthode parmi celles qui existent

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Activate()
Dim NoCol As Variant
    For NoCol = 1 To Range(Split(Worksheets("feuil1").UsedRange.Address, "$")(3) & "1").Column
        ListBox1.AddItem Cells(1, NoCol)
    Next
End Sub

Si ce n'est pas ça c'est que j'ai mal compris
Bonne nuit

J'ai essayé d'adapter cette méthode mais j'ai pas très bien compris à quoi servait cette ligne de code

Code :

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

Range(Split(Worksheets("feuil1").UsedRange.Address, "$")(3) & "1").Column

Je joins un fichier Excel pour mieux décrire ma demande.
Je voudrais que la list box liste les noms qui sont dans la première ligne et en fonction du choix tracer le graphe correspondant.

C'est la première fois que j'utilise une list box donc je suis pas du tout familier avec cela.

Merci d'avance,
Arnaud.

[ouskel'n'or]

J'ai essayé d'adapter cette méthode mais j'ai pas très bien compris à quoi servait cette ligne de code

A trouver le N° de la dernière colonne renseignée de ta feuille de calculs pour avoir toutes les entêtes.
Tu peux racourcir le code si tu la connais en remplaçant "tout ça" par le N° de la dernière colonne

Pour récupérer la sélection dans une listbox ne comportant qu'une colonne, tu peux utiliser trois méthodes :

Code :

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

1
2
3
Result = ListBox1.text
Result = ListBox1.value
Result = ListBox1.List(ListBox1.Listindex)