Discussion :

[MayaCL]

Bonjour à tous,

Je reviens vers vous aujourd'hui pour une demande particulière.

En effet, j'ai besoin de créer un userform, dont j'ai une idée assez précise. Malheureusement, je ne suis pas certaine que cela soit réalisable.
Ci dessous un schéma de ce que je souhaiterais programmer.


Je souhaiterais donc que, à l'ouverture du mon userform, il n'apparaisse que les "Etage .." ainsi que les "Feuille ..". L'idée serait que chaque "étage" soit un volet, qui lorsqu'on clique dessus (les petites flèches sur mon schema), des données apparaissent ainsi que les checkbox correspondantes.
Les données en question sont stockés dans un autre fichier. Ces données sont susceptibles de changer quotidiennement, tout doit donc être programmé en dynamique.

Mon problème étant que je trouve pas de contrôle correspondant à cela. Les seuls volets que j'ai pu trouver sont des volets déroulants, mais cela ne réponds pas à mon besoin.

Si cela n'est pas possible, je réfléchis à faire ouvrir un autre userform lorsque l'on clique sur la flèche, ou bien à utiliser les contrôles d'onglets.

J'attends vos retour à ce sujet. J'avoue que je m'étonne que ce que je veuille faire n'existe pas en VBA mais je commence à le croire ^^
J'espère avoir été claire dans mes explications.

Merci beaucoup,
Maya

[Invité]

Bonjour,

J'aurais plutôt vu un truc comme ça avec des ListBox multiselect :

Pièce jointe 566726

[Transitoire]

Bonjour, plusieurs possibilités:
Un UserForm multipage
Plusieurs Userform
Un Userform qui s'agrandit et se modifie voir exemple ci dessous. il s'agit d'un seul UF qui modifie sa taille, sa forme, suivant les choix de cases d'options ou autres.




Cordialement

[MayaCL]

Bonjour à tous les deux,

Merci beaucoup pour vos propositions.

J'ai réussi pour le moment à obtenir ceci via un treeview.


Malheureusement, ce que j'obtiens pour le moment est limité car je n'arrive pas à inclure mes différentes feuilles (et donc plusieurs checkboxs).

Je pense que la solution de Eric pourrait me convenir et être assez simple d'organisation.
Je vais essayer de reproduire cela et je vous tient au courant.

Merci,
Maya

[Invité]

Une adresse à connaître, Boisgontierjacques, choisir Formulaires (menus en cascade).

[MayaCL]

Bonjour Eric,

Je me permets de revenir vers vous car je bloque sur une progra.

Voici ce que j'ai réussi à obtenir :


J'ai rajouté des checkbox à votre proposition pour pouvoir sélectionner plusieurs étages à la fois.
Mais je ne trouve pas l'écriture pour exploiter ces cases cochés et faire apparaître dans mon listbox "Chambres à attribués" les chambres correspondantes.
Auriez-vous de quoi éclairer ma lanterne ?

Pour info, voici où j'en suis :

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
Private Sub UserForm_Initialize()
 
 
Dim VDerniereligne As Integer
Dim VColEtage As Integer
 
        Windows("Nouvelle feuille de route").Activate
        Sheets("Consignes").Select
 
        VDerniereligne = Range("D" & Rows.Count).End(xlUp).Row
 
        Ligne = 2
        For i = Ligne To VDerniereligne
            If Cells(Ligne, 4) = "Présent" Then
                ListBox_FDC.AddItem (Cells(Ligne, 3).Value)
                Ligne = Ligne + 1
            Else
                Ligne = Ligne + 1
            End If
        Next i
 
        Windows("Statut").Activate
        Sheets("Traité").Select
 
        VDerniereligne = Range("A" & Rows.Count).End(xlUp).Row
        VColEtage = [Étage].Column
 
        For i = 1 To 8
            a = Application.CountIf(Range(Cells(2, VColEtage), Cells(VDerniereligne, VColEtage)), i)
            ListBox_Etages.AddItem ("Etage" & " " & i & " " & "(" & a & ")")
        Next i
 
End Sub

Merci,
Maya

[Invité]

Un exemple dans le fichier joint.
Dans le textbox taper : E1 E3 pour voir (les étages séparés par un blanc), ou dans la listbox étages, sélectionner les étages et cliquer sur Filtrer.