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

Version imprimable

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

deja j'avais fait une petite erreur change ses evenement dans la classe

Code:

1
2
3
4
5
6
7
8
Private Sub Ocheck_Click()
    If Oopt.Value = True Then x = 5 Else x = 8
    usf.ListBox2.AddItem Sheets(1).Cells(x, Val(Ocheck.Tag)).Text
End Sub
Private Sub Ocheckbis_Click()
    If Oopt.Value = True Then x = 6 Else x = 9
    usf.ListBox2.AddItem Sheets(1).Cells(x, Val(Ocheck.Tag)).Text
End Sub

03/04/2018, 08h25
Transitoire

Superbe!!!:roll:
Et en plus, les deux ou trois versions envoyés avec leurs rectificatifs permettent une compréhension accrue du travail effectué. Ca va me permettre de progresser infiniment plus vite. Pour quelqu'un qui cherche à comprendre c'est terriblement difficile. Le moindre changement permet de multiplier par dix la compréhension.:D
Merci!!!
Cordialement 8-)
03/04/2018, 11h45
Bono1664

Re

Bonjour Patrick,

j'arrive un peu tard (je suis au boulot).

J'ai appliqué les correctifs et je commence à comprendre, mais pas encore tout le développement :calim2:

Une chose qui ne va pas : le choix du Bouton T n'affiche pas le texte dans le ListBox1.

Encore merci !
03/04/2018, 12h33
Bono1664

Re

Encore une autre remarque :oops: j'aurais du m'en rendre compte plus tôt :

- la colonne AX (OB89) est rattachée à la catégorie suivante : "Aptitudes relationnelles et fonctions cognitives"

Bono1664

Bonjour Bono1664
Ca faisait ça aussi, J'ai rajouté la ligne en rouge et ça marche!

Code:

1
2
3
4
5
6
Private Sub ooptbis_Click()
    Ocheck.Caption = Sheets(1).Cells(8, Val(Ooptbis.Tag)).Text
    Ocheckbis.Caption = Sheets(1).Cells(9, Val(Ooptbis.Tag)).Text
    usf.ListBox1.AddItem Sheets(1).Cells(7, Val(Ooptbis.Tag)).Text  'Test
    'MsgBox Sheets(1).Cells(8, Val(Ooptbis.Tag)).Text & vbCrLf & Sheets(1).Cells(9, Val(Ooptbis.Tag)).Text
End Sub

Ne pas oublier les modifs de Patrick hier a 21h33.
8-)

03/04/2018, 16h31
Bono1664

Re
GENIAL !

Le simple fait de déplacer la colonne sur la Feuille corrige le problème d'affichage !

Il y a vraiment beaucoup à apprendre dans le module de classe.

Je commence à comprendre : j'ai aussi corrigé le choix du Bouton T ne s'affichait pas le texte dans le ListBox1.

J'arrive également à effacer les ListBox et les ChekBox avec
Code:

1 2 3 4 5 Private Sub CmdEFFACER_Click() ListBox1.Clear ListBox2.Clear cl.init_interface Me End Sub
mais cela produit un "fantome transitoire" d'affichage dans le coin supérieur gauche du multipage :?
03/04/2018, 17h19
patricktoulon

re

Bonjour bono
uf.repaint pourrait eventuellement corriger les phantom d'affichage
03/04/2018, 17h57
Bono1664

Re

Bonjour Patrick,

"Us.Repaint" n'empêche pas ce "fantôme", pas plus que "Application.ScreenUpdating = False".

Je suis emm***ant, mais y a t-il moyen de modifier l'aspect des onglets de catégorie ? par curiosité... :?

mais ce n'est pas important, le résultat est SUPER ! :applo: :applo: :applo:

Merci infiniment

Le problème est résolu ! :merci: :merci: :merci:
03/04/2018, 21h16
patricktoulon

re

re

Citation:

mais y a t-il moyen de modifier l'aspect des onglets de catégorie ?

?????????

je vois que tu a cliquer resolu
j'avais envisager autre chose pour tes listboxs
les suppression au cas ou tu changerais d'avis(R/T)

mais bon si ca te conviens vacance youpi!!

oulah!!!

Code:

1
2
3
4
5
Private Sub CmdEFFACER_Click()
    ListBox1.Clear
    ListBox2.Clear
    cl.init_interface Me'!!!!!!!!!!! pourquoi ? c'est pas la peine!!!!!!il vienne de la tes FANTOMAS!!!!
End Sub

03/04/2018, 21h45
Transitoire

1 pièce(s) jointe(s)

Bonsoir,
Moi aussi quand j'utilise le système de Bono pour effacer, j'ai bien l'effacement des listes mais les 7 onglets sont doublés si j'efface une autre fois ils sont triplés

Citation:

Private Sub CmdEFFACER_Click()
ListBox1.Clear
ListBox2.Clear
cl.init_interface Me
End Sub

Pièce jointe 366876
Par ailleurs, j'ai un vrai problème pour récupérer les lignes des deux listes, j'ai déjà essayé plusieurs trucs mais ça marche pas. si Patrick avait l'amabilité de me donner une direction, je pense que je mettrais moins de temps
Ca serait sympa.
Merci d'avance 8-)
03/04/2018, 21h51
patricktoulon

re

pour les fantomes et doubles onglet etc... j'ai repondu il ne faut pas réinstacier la classe et ses sous classes c'est pas la peine
donc dans le clear des list supprimer la ligne init_interface...
et plus de probleme
c'est parcequ'on vide les listes que les instances de la classe sont detruites, elles sont toujours la
elles peuvent etre detruites soit par vba soit en fermant le userform tout simplement

Patrick,

Là je ne comprends pas bien comment désélectionner les OptionButton et les CheckBox qui restent cochés après le clear des listes.

Transitoire,

Pour récupérer les listes et les placer sur le UsfEVALUATION en fonction des lignes sélectionnées sur le Formulaire BILAN, à partir de UsfEVALUATION (il faut afficher UsfEVALUATION Sans avoir fermé UsfBILAN) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'sélection des items dans UsfBILAN.ListBox1
        For i = 0 To UsfBILAN.ListBox1.ListCount - 1
             If UsfBILAN.ListBox1.Selected(i) = True Then
                  UsFEVALUATION.ListEva1.AddItem (UsfBILAN.ListBox1.List(i))
                  Text1 = Text1 & " , " & UssBILAN.ListBox1.List(i)
             End If
        Next i
        'sélection des items dans UsfBILAN.ListBox2
        For k = 0 To UsfBILAN.ListBox2.ListCount - 1
             If UssBILAN.ListBox2.Selected(k) = True Then
                  UsFEVALUATION.ListEva2.AddItem (UssBILAN.ListBox2.List(k))
                  Text2 = Text2 & " , " & UsfBILAN.ListBox2.List(k)
             End If
        Next k

Et voilà :)

04/04/2018, 11h58
patricktoulon

2 pièce(s) jointe(s)

re

Bonjour bono

voila comment je voyais les choses
regarde bien l'animation
Pièce jointe 366991
j'ai inclu le bouton effacer dans la classe qui a pour role de remettre tout a zero
j'ai legerement modifier ma strategie d'utilisation des données
j'ai ajouté le changement de couleur des option button comme ca quand tu change d'avis tu sais le quel a deja été selectionner pour la ligne
j'ai ajouté aussi la suppression simple de check 1 ou 2 si il est coché ou pas sans tenir compte de R ou de T
quand tu change R ou T les listes se mettent a jour
c'est a dire si tu a choisi R au depart et qu'apres avoir coché X option button tu revien sur une ligne et que tu change R pour T ou l'inverse la liste1 supprime l'ancienne selection et met la nouvelle
la liste2 supprime les ancien checkbox il ne te reste plus qu'a cliquer sur le check 1 ou 2 pour alimenter la liste 2
voila d'un coup tout ces petits soucis de conception se sont envolés ;)
fichier en piece jointe
transitoire va avoir mal a la tete :mouarf:
04/04/2018, 12h17
Bono1664

Re

Bonjour Patrick,

je ne sais comment te remercier : c'est bien plus que je n'osais espérer :D:D:D

Ce formulaire fait partie de mon outil de travail : je penserai souvent à ta formidable contribution.

Ca me fait aussi mesurer les progrès qu'il me reste à faire...

Infiniment MERCI !
04/04/2018, 12h25
patricktoulon

re

ya pas de quoi ca m'entraine moi aussi

il manque une seule chose c'est la supression d'une ligne totalement dans liste1 et ses checkbox dans liste 2 au cas ou tu changerais d'avis , j'ai deja trouvé comment faire je te laisse un peu chercher

ps: comme tu peux le voir les variables sont dimées est les modules sont en option explicit bref c'est propre
04/04/2018, 12h55
Transitoire

Cher Patrick,
Bien loin d'avoir mal à la tète, ça m'ouvre des perspectives fabuleuses. Les diverses versions vont nous faire progresser à pas de géant. En ce qui me concerne, c'est plus parlant que tous les tutoriels(au demeurant important). il n'y a plus qu'a bosser.:P
MERCI de l'aide apportée
Cordialement 8-)
04/04/2018, 21h29
Transitoire

Bonsoir, je ne me rappelle plus l'adresse de MS ou on peut trouver les spécificités d'Excel VBA . Concernant les évènements, les méthodes, etc etc.
Merci Patrick si tu peut me le rappeller.
Cordialement8-)

Bonjour Patrick,

J'ai mal à la tête :koi:, mais j'ai un début de code qui réinitialise l'OptionButton et supprime le texte du ListBox1.

Il faut cependant le faire en 2 temps : cliquer d'abord sur un autre OptionButton puis revenir au précédent.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub oopt_Click() Dim arguments, i, a arguments = Split(Oopt.Tag, ":") With usf.ListBox1 For i = 0 To .ListCount - 1 If Me.Oopt.ForeColor = vbRed Then Me.Oopt.Value = False: Me.Oopt.ForeColor = &H800000: .RemoveItem i: Exit Sub If .List(i) = Sheets(1).Range(Split(Ooptbis.Tag, ":")(0)).Text Then .RemoveItem i: Exit For If .List(i) = Sheets(1).Range(Split(Oopt.Tag, ":")(0)).Text Then .RemoveItem i: Exit For Next End With
Puisque je suis sorti du code, je ne peux pas supprimer le texte du ou des CheckBox. Je suppose qu'il y a une méthode plus élégante pour le même résultat.

Je continue à chercher :pc:

Re-bonjour Patrick,

ça avance : j'arrive aussi à supprimer les Caption des CheckBox, mais toujours en passant par un click sur un autre OptionButton :
Code:

1 2 3 4 5 With usf.ListBox1 For i = 0 To .ListCount - 1 If Me.Oopt.ForeColor = vbRed Then Me.Oopt.Value = False: Me.Oopt.ForeColor = &H800000: .RemoveItem i: _ Ocheck.Caption = "": Ocheckbis.Caption = "": Exit Sub

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