Un formulaire particulier...

Question

Bonjour à tous !
Je suis complètement novice en matière de VBA et j'ai un petit problème.
Je veux créer un formulaire un peu particulier : il faut que l'on puisse dans ce dernier selectionner des otpions, qui permettrons de générer ensuite une feuille excel.
Le problème c'est qu'il y a une douzaine d'option, avec une douzaines de sous-option par option, et encore une douzaine de sous-sous-option par sous-option, ça donne tout de suite une arborescance assez complexe... Du coup, il m'est imposssible de faire un formulaire ou l'on selectionne ses options avec des cases à cocher, il y en aurait beaucoup trop.
Ma question est donc simple : peut-on mettre en place un sytème d'arborescance ?
Je pensais particulièrement à ce que l'on trouve dans certains logiciels ou l'on peut tout selectionner d'un coup en cochant une section, et ou l'on peut seulement selectionner une sous-option en développant la section (et à ce moment-la l'option du dessu est cochée en gris).
J'espere que certains d'entre vous vont comprendre mon charabia et pouvoir m'aider, en tout cas merci d'avance !

NHenry · Answer

Bonjour

Le controle TreeView te serait peut être utile, mais je ne sais pas si il est accessible en VBA.

Sinon, pour un premier message, c'est plutot bien, dans la bonne catégorie, une énociation clair du problème, ... c'est pas tout le temps comme ça un premier post.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site

supertoms · Answer

Merci NHenry !
J'ai trouvé ce code sur les TreeView, il parait qu'il fonctionne mais je n'arrive pas à le lancer, pouvez-vous m'aider ?

Public Sub getSubFamilies(ByVal Nde As Node, ByRef subfamlist As String)
'retrieve the number of the sub families of the current node in the family tree


Dim TV1cpy As TreeView
Set TV1cpy = Form_CGDdbBrowser.TV1.Object


Dim i As Integer
If Nde.Children > 0 Then
'continue exploration only if the current node has subnodes
For i = Nde.Child.Index To Nde.Child.Index + Nde.Children - 1
'browse each subnodes
subfamlist = subfamlist & Replace(TV1cpy.Nodes.Item(i).Key, "O", "") & ", "
getSubFamilies TV1cpy.Nodes(i), subfamlist
Next i
End If
Set TV1cpy = Nothing


End Sub

NHenry · Answer

Bonjour

D'où sors-tu ce code ?

Je suis completement paumé, je ne sais pas à quoi sert cette sub, ce que signifie subfamlist (penses à mettre quelques majuscule pour une lecture facilité).

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site

supertoms · Answer

D'un forum, je ne comprends rien non plus 
Avez-vous plus d'informations concernant ces Treeview ?

NHenry · Answer

Bonjour

Essaye de poursuivre tes recherches (je n'ai pas internet le WE et je n'ai pas spécialement le temps de tout t'expliquer dans le détail (je n'ai internet qu'au boulot). Dsl.

Le fer à souder a besoin d'une panne pour fonctionner.
VB (6, .NET1&2), C++, C#.Net1
Mon site

cs_MPi · Answer

Pour pouvoir t'aider, il faudrait savoir d'où proviennent ces options et sous-options pour pouvoir charger ce TreeView, si c'est là le problème (?).

Sinon, explique quel est le problème exactement, si tu utilises ou veux utiliser le TreeView.

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Un formulaire particulier...

6 réponses

Votre réponse

Discussions similaires