Simplification et harmonisation d'un code répétitif

Version imprimable

Voir 40 message(s) de cette discussion en une page

01/04/2018, 23h19
Bono1664

Re

Merci Transitoire d'avoir bien résumé le problème.

mais encore une fois les listes n'ont pas besoin de se correspondre puisque sur le formulaire définitif les deux listes seront superposées et qu'il est également possible de supprimer des lignes.

Merci à tous pour votre aide
02/04/2018, 00h11
Bono1664

Re

Dans la copie d'écran de Transitoire, si la cellule A1 correspond bien aux cellules A3, A4 et A5, des la colonne B, ça ne correspond plus.

En fait il faudrait chaque fois ou laisser une cellule vide sur deux dans la ligne 1 ou dupliquer chaque cellule pour conserver la correspondance comme dans le classeur2 que j'avais envoyé.

Bonne nuit.
02/04/2018, 08h49
Transitoire

1 pièce(s) jointe(s)

Bonjour,
Je suis bien conscient du fait que les colonnes ne se correspondent pas. Le document envoyé par Patrick Toulon, permet de choisir directement entre Relatif ou absolu, ce qui rend inutile les optionsButtons, le choix étant fait implicitement par la phrase elle même. C'est une sorte de simplification qui a comme inconvénient de doubler la liste qui apparait dans le formulaire.
Si toutefois vous voulez conserver les OB il faudra mieux mettre les lignes l'une sous l'autre ( voir document ci-dessous)
Pièce jointe 366473
Cordialement 8-)
02/04/2018, 09h39
patricktoulon

re

re
Bonjour
ca part en vrille la les gards la feuille qui m'a servi de model c'est celle que le demandeur a fourni

les option bouton obsolete??? pas du tout !! si c'est le "R" c'est relatif si c'est le "T" c'est total

c'est sur que si le demandeur change de strategie a chaque fois que l'on avance d'un pas on est pas pret d'arriver

bref j'ai passer une heure hier pour rien quoi

comme je l'ai dis des le depart l'utilisation d'option bouton n'est pas forcement indiqué j'aurais mis des checkbox histoire de pouvoir jouer avec le true/false et pouvoir aller et venir en ce qui concerne le remplissage des liste
c'est du n'importe quoi

pour la peine je ferait un exemple full dynamique aussi mais avec que des checkboxs ce qui me permetra de pouvoir ajouter /supprimer dans les liste 1/2
et n'en montrarais qu'une capture d'ecran

si j'ai un conseil c'est celui la:
prendre une feuille et un crayon
et mettre a plat le projet complet etape par etape le demandeur devrait y voir plus clair

Bonne continuation
02/04/2018, 09h46
Bono1664

1 pièce(s) jointe(s)

Re

Bonjour Transitoire,

Bien sûr ça simplifie et c'était l'objet de ma demande d'aide. J'admire le travail de Patrick Toulon et j'apprécie infiniment sa disponibilité, mais j'ai du mal à me débarrasser de mon ancienne disposition (en pièce-jointe) qui structure l'ensemble en 7 catégories.

Cordialement
02/04/2018, 10h05
Transitoire

Re bonjour Patrick , :oops:
Mon désir n'était pas d'importuner. Je faisait simplement remarquer que si la phrase proposée est "Incapacité relative à maintenir un équilibre debout stable", ça rend inutile un choix (relatif ou absolu) puisque la ligne en dessous est "Incapacité absolue à maintenir un équilibre debout stable" . On peut donc se contenter pour sélectionner, du choix d'une des deux cases à cocher qui sélectionnera d'une part la phrase contenant le relatif ou l'absolu et d'autre part celle du choix coché. (j'espère être clair)
De toutes les manières Votre travail est remarquable et ne met en rien en cause votre participation. Il constitue une fabuleuse base que "Bono" devra ensuite adapter à ses besoins spécifiques. Mon intervention était plutôt tourné vers ce qui lui reste a faire pour l'adapter. Depuis que j'interviens sur ce Forum, je ne cesse de conseiller à ceux qui commence, de passer du temps sur un cahier des charges et un schéma structurel de leur programme à venir. Ca leur permettra de gagner du temps à eux, mais surtout à ceux qui voudront les aider.
Cordialement 8-)
02/04/2018, 10h08
patricktoulon

2 pièce(s) jointe(s)

re
re
probleme selon le classeur old
affichage
1. chez moi le userform est trop grand voir capture si le fichier est utiliser sur plusieur PCs on va bien rigoler
2. les liste en 2d colonne on a les deux solution dans une meme cellule ce qui ajoute encore du code pour les checkboxs
3. et plein d'autre detail
Pièce jointe 366499

la feuille que j'ai pris en premier etait tres bien faite au contraire
ce qui n'est pas clair c'est la demande
si maintenant on a 7 categorie alors la demande initiale etait incomplete on est pas arrivé

appercu de la feuille que j'ai elle n'a rien de compliqué
Pièce jointe 366508

si tu veux 7 categories separe les moi dans la feuille par une colonne vide !!!! ce sera deja plus clair
02/04/2018, 10h16
patricktoulon

re

t'inquiet transitoire je rale un peu et ca passe

que le demandeur separe les categorie sur la feuille par une colonne vide
je ferais le reste
et il n'y aura plus q"un seul option bouton puisqu' en effet dans les texte des cellules ligne 2 c'est explicite sauf que je mettrais des checkbox et non des optionsbutton
l'utilisateur aur la possibilité de cocher decocher et ca metra les liste a jour dynamiquement
je part en inter ce matin donc a toute a l'heure
@le demandeur au boulot!!!
02/04/2018, 11h29
Bono1664

1 pièce(s) jointe(s)

Re

:pastaper:

Bonjour patrick :oops::oops::oops:

C'est vrai que le UserForm est grand, mais d'une part il correspond aux écrans sur lesquels il est utilisé, d'autre part il correspond aussi au 17 autres Useform du projet et enfin je crois qu'on ne peut imprimer d'un userform que ce qu'on voit à l'écran et l'impression se fait sur feuilles A4 parce qu'il y a aussi d'autres renseignements administratifs à faire apparaître sur la même feuille.

A moins qu'il y ait un moyen de l'afficher à la taille de l'écran ?

Ci joint le fichier avec en ligne 2 les noms des différents groupes correspondant aux Frames de mon projet initial.

Encore merci pour ton expertise et ta patience
02/04/2018, 15h35
patricktoulon

1 pièce(s) jointe(s)

re

re
pfiuuuu!!!!
c'est de pire en pire en fait
je fait quoi moi avec tes cellules?, qui va avec quoi ???
je met quoi au labels ? la ou les case sont vides (pourquoi elle le sont d'ailleurs ???) puisque tu garde la colonne
si tu avais mis les deux reponses a la suite de la precedente j'aurais compris mais la ca veux rien dire
tu sais ce que ca represente comme codage ? d'autant plus que c'est inutile

explique moi en detail du debut a la fin je commencerais a partir de ce moment ou se sera clair pas avant
sincerement l'exemple sur le quel je m'etait basé en premier etait plus simple
j'avais juste demandé une separation de categorie
bref pour classer tout ca dans une classe control on va pas s'ennuyer

une question est tu d'accords avec ca
Pièce jointe 366569
mille excuse le opt T ajoutera a la list 1
bien entendu les checkbox corespondant a R ou T seront ajouté a la list2
02/04/2018, 18h12
Bono1664

Re

Tu as tout compris : c'est exactement ce que je voulais obtenir !

- Il y a 7 catégories de handicap classées par couleur différente avec le titre de la catégorie en ligne 2.
- La ligne 3 correspond aux Label (une case sur 2 est vide puisqu"elle contient le même texte et qu'il arrive que ce texte fasse 2 lignes)
- Les lignes 4 et 5 aux incapacité (relatives ou totales)
- les lignes 6 et 7 aux préconisations

- Ensuite on lit verticalement les différentes possibilités ex. Aptitude à se tenir debout (label)
-> OptionButton R ou T selon l'incapacité Relative ou totale -> écrit la ligne dans le ListBox1 et montre 2 CheckBox
-> CheckBox 1 ou 2 ou les deux peuvent être cochés -> écrit leur Caption dans le ListBox2

Lorsque tous les handicaps observés ont été relevés ainsi que les propositions d'adaptation, on peut alors sélectionner les lignes des ListBox 1 et 2 que l'on veut transférer sur la fiche d'évaluation (j'avais dans mon exemple choisi un transfert global puisqu'il est toujours possible de supprimer des lignes dans les ListBox de la fiche d'avaluation et que les petits ListBox 1 et 2 en bas de page nécessitent l'usage de l'ascenseur pour tout lire (pire si l'écran est trop petit))
02/04/2018, 18h36
Bono1664

Re

Je vais essayer d'être plus clair

- Il y a 7 catégories de handicap classées par couleur différente avec le titre de la catégorie en ligne 2.
- La ligne 3 correspond aux Label (chez moi une case sur 2 était vide puisqu"elle contenait le même texte et qu'il arrive que ce texte fasse 2 lignes)
- Les lignes 4 et 8 aux incapacité (relatives ou totales) et le click sur l'une ou l'autre ligne rajoute le texte dans le ListBox1
- les lignes 5 et 6 correspondent aux préconisations en rapport avec l'incapacité Relative et rajoutent le texte (1 ou 2 lignes) dans le ListBox2
- les lignes 8 et 9 correspondent aux préconisations en rapport avec l'incapacité Totale et rajoutent le texte (1 ou 2 lignes) dans le ListBox2
- On peut donc transférer dans le ListBox2 et poutr chaque handicap les lignes 5 et/ou 6 ou les lignes 8 et/ou 9, mais pas 5 et 8, 5 et 9, etc.
- Tous les handicaps sont dans le ListBox1 et toutes les préconisations dans le ListBox2.

- On lit verticalement les différentes possibilités ex. Aptitude à se tenir debout (label)
-> OptionButton R ou T selon l'incapacité Relative ou totale -> écrit la ligne dans le ListBox1 et montre 2 CheckBox
-> CheckBox 1 ou 2 ou les deux peuvent être cochés -> écrit leur Caption dans le ListBox2

Lorsque tous les handicaps observés ont été relevés ainsi que les propositions d'adaptation, on peut alors sélectionner les lignes des ListBox 1 et 2 que l'on veut transférer sur la fiche d'évaluation (j'avais dans mon exemple choisi un transfert global puisqu'il est toujours possible de supprimer des lignes dans les ListBox de la fiche d'avaluation et que les petits ListBox 1 et 2 en bas de page nécessitent l'usage de l'ascenseur pour tout lire (pire si l'écran est trop petit))
02/04/2018, 19h10
Bono1664

Re

Bien sûr, la dernière réponse de 17h36 développée à partir de ta copie d'écran remplace et annule celle de 17h12 développée à partir de mon fichier.
02/04/2018, 19h37
Transitoire

Wouahh, ça devient une usine à gaz.:weird:
En ce qui me concerne,je pense que le document fourni par Patrick, avec un remplacement des deux OB devenu inutiles par une case à cocher, conviendrais très bien.(on pourrait idéalement, si c'est pas trop ardu griser la ligne devenue inutile(si on a choisi le relatif, l'absolu n'est plus possible, et vice versa). Pour le reste, ça me semble fonctionner bien.(sur mon document, la deuxième liste ne se remplissait pas avec les cases à cocher)
Parce que là on part dans une sorte de succession de UF pour chaque catégorie de handicap, un travail considérable. Je n'ai pas la compétence de Patrick, loin s'en faut! mais je comprend ses craintes!
Enfin moi ce que j'en dit?
Cordialement 8-)
02/04/2018, 19h57
patricktoulon

1 pièce(s) jointe(s)

re

re
Ok laisse moi le finir je suis au bout la
la oui les 2 optionbutton sont utile car on a pas deux fois la meme ligne dans le userform
je te l'ai fait par categorie dans un multipage et le tout dynamique SVP;)
et non ca n'est pas une usine a gaz quand on sait monter une classe control
un petit apercu de la ou j'en suis

Pièce jointe 366629
02/04/2018, 20h44
patricktoulon

1 pièce(s) jointe(s)

re

re
on est bien d'accords c'est ca
Pièce jointe 366632
02/04/2018, 21h09
Bono1664

Re

SUPER !!!

C'est tout à fait ça et ça ressemble comme 2 goutes d'eau à mon formulaire initial avec multipage. :bravo: :bravo:

Bono1664

1 pièce(s) jointe(s)

re
bon !!
les codes :

code userform(on change pas une equipe qui gagne)ca reste pareil

Code:

1
2
3
4
Dim cl As New interface
Private Sub UserForm_Activate()
cl.init_interface Me
End Sub

code module classe

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Public WithEvents Oopt As MSForms.OptionButton
Public WithEvents Ooptbis As MSForms.OptionButton
Public WithEvents Ocheck As MSForms.CheckBox
Public WithEvents Ocheckbis As MSForms.CheckBox
Public usf As Object
Dim cls(300) As New interface
 
Function init_interface(uf)
    Set plagetitre = Sheets(1).Range("A2", Cells(2, Columns.Count).End(xlToLeft))
    cat = ""
    For Each cel In plagetitre.Cells
        catg = cel.MergeArea.Cells(1).Text
        If catg <> cat And catg <> "" Then
            'Debug.Print cel.MergeArea.CurrentRegion.Address
            cat = catg
            Set Page = uf.MultiPage1.Pages.Add
            i = i + 1: Page.Caption = "categorie" & i
            With Page: .ControlTipText = catg: .Tag = cel.MergeArea.CurrentRegion.Address:
                Set labtitre = .Controls.Add("Forms.Label.1", "toto", True)
                With labtitre: .Caption = catg: .ForeColor = &H800000: .Width = Page.Parent.Width: .Font.Size = 12: .Font.Bold = True: .TextAlign = 2: End With '
                Set fram = .Controls.Add("Forms.Frame.1", "F" & .Caption, True)
                With fram: .Caption = "": .Width = Page.Parent.Width: .Height = Page.Parent.Height - 50: .Top = 30: .ScrollBars = 2: .BackColor = &HE0E0E0    '
                End With
            End With
        End If
    Next
    For Each p In uf.MultiPage1.Pages
        With p
            Set plage = Sheets(1).Range(.Tag)
            Set fram = uf.Controls("F" & .Caption)
            fram.ScrollHeight = (plage.Columns.Count * 40) + 5
            Debug.Print plage.Address
            AA = 0
            For c = plage.Column To plage.Column + plage.Columns.Count - 1
                AA = AA + 1
                li = (40 * (AA - 1)) + 5
                x = x + 1
                Set cls(x).usf = uf
                'Debug.Print Sheets(1).Cells(3, c).Text
                Set lab = fram.Controls.Add("Forms.Label.1", True)
                With lab: .BorderStyle = 0: .Caption = Sheets(1).Cells(3, c).Text: .ForeColor = &H800000: .Left = 2: .Width = 250: .Font.Size = 10: .Height = 35: .Top = li: End With '
                Set opt1 = fram.Controls.Add("Forms.optionbutton.1", "opti" & x, True): Set cls(x).Oopt = opt1
                With opt1: .Tag = c: .Caption = "R": .ForeColor = &H800000: .Left = 270: .Width = 30: .Font.Size = 12: .Top = lab.Top - 5: End With '
                Set check = fram.Controls.Add("Forms.checkbox.1", "check" & x, True): Set cls(x).Ocheck = check
                With check: .Tag = c: .Caption = "": .ForeColor = &H800000: .Left = 350: .Width = 250: .Font.Size = 12: .Top = lab.Top - 8: End With '
                Set checkbis = fram.Controls.Add("Forms.checkbox.1", "checkbis" & x, True): Set cls(x).Ocheckbis = checkbis
                With checkbis: .Tag = c: .Caption = "": .ForeColor = &H800000: .Left = 350: .Width = 250: .Font.Size = 12: .Top = lab.Top + 10: End With '
                Set opt2 = fram.Controls.Add("Forms.optionbutton.1", True): Set cls(x).Ooptbis = opt2:
                With opt2: .Tag = c: .Caption = "T": .ForeColor = &H800000: .Left = 300: .Width = 30: .Font.Size = 12: .Top = lab.Top - 5: End With '
 
                Set separ = fram.Controls.Add("Forms.Label.1", True)
                With separ: .Caption = "": .BorderStyle = 0: .BackColor = &HC0C0C0: .Left = 0: .Width = .Parent.Width: .Height = 2: .Top = li + 30: End With    '
 
 
            Next
        End With
    Next
End Function
Private Sub oopt_Click()
    Ocheck.Caption = Sheets(1).Cells(5, Val(Oopt.Tag)).Text
    Ocheckbis.Caption = Sheets(1).Cells(6, Val(Oopt.Tag)).Text
    usf.ListBox1.AddItem Sheets(1).Cells(4, Val(Oopt.Tag)).Text
    'MsgBox Sheets(1).Cells(5, Val(Oopt.Tag)).Text & vbCrLf & Sheets(1).Cells(6, Val(Oopt.Tag)).Text
End Sub
Private Sub ooptbis_Click()
    Ocheck.Caption = Sheets(1).Cells(8, Val(Ooptbis.Tag)).Text
    Ocheckbis.Caption = Sheets(1).Cells(9, Val(Ooptbis.Tag)).Text
    'MsgBox Sheets(1).Cells(8, Val(Ooptbis.Tag)).Text & vbCrLf & Sheets(1).Cells(9, Val(Ooptbis.Tag)).Text
End Sub
Private Sub Ocheck_Click()
    usf.ListBox2.AddItem Sheets(1).Cells(8, Val(Ocheck.Tag)).Text
End Sub
Private Sub Ocheckbis_Click()
    usf.ListBox2.AddItem Sheets(1).Cells(9, Val(Ocheck.Tag)).Text
End Sub

voila au depart on a un multipage absolument vide!! (pas pages pas de controls
tout est construit avec les données de la feuille

02/04/2018, 22h15
Bono1664

Re

C'est encore tout à fait ça !

Et quelle économie de moyens : il me fallait exactement 903 lignes de code pour arriver au même résultat !

Est-ce qu'il y aura la possibilité de faire un reset des Boutons et Checkbox en cas d'erreur de sélection ?
02/04/2018, 22h22
patricktoulon

re

re

Citation:

Est-ce qu'il y aura la possibilité de faire un reset des Boutons et Checkbox en cas d'erreur de sélection ?

et OUI !!! c'est un des problemes de ta conception et au passage c'est pareil pour le option buttons si tu choisi R mais que tu change d'avis tu te retrouve avec Ret T dans list1
je suis content que tu t'en rende compte

c'est pas irémediable il faut juste developper un les evenement "click" dans la classe et tripatouiller les listboxs je regarderais cela demain

essaie de pigé un peu le code

au passage j'ai fait en sorte que si demain tu ajopute ou enleve une categorie le code reste inchangé il fonctionnera quand meme ;)
il faudra bien sur le mettre au propre et dimer toute les variable en option explicit j'ai fait ca en moins d'une demie heure c'est pas propre a 100%

Voir 40 message(s) de cette discussion en une page