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

Version imprimable

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

re
j'ai fourni un dernier exemplaire qui fait deja tout ca
je sais plus trop ce que tu veux la ?
si tu parle de la suppression dans list1 si aucun option selectionné c'est dans les eveneme checkbox qu il faut tripatouiller

se serait un truc du genre dans les 2 evenement checkboxs de la classe
Code:

1 2 3 4 5 6 7 if ocheck.value=false and ocheckbis.value=false then oopt.value=false:ooptbis.value=false with usf.listbox2 for i= 0 to .listcount-1 if .list(i)=split(oopt.tag,":")(0)then .removeitem i:exit for next end with
peut etrte meme les mettre a false le Oopt.... histoire que le visuel soit cohérent
autrement dis si les deux checkbox de la ligne son false l'orsqu'on clique sur l'un des deux on suprime la ligne correspondante dans liste1

c'est compris ?;)
simple non?

2 pièce(s) jointe(s)

OU BIEN !!! on sert du click droit et on ajoute un evenement click droit pour Oopt ezt Ooptbis dans le classe voili voilou

demonstration du resultat
Pièce jointe 367562

code evenement click droit à ajouter dans la 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
Private Sub Oopt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim i, a
    If Button = 2 And Oopt.ForeColor = vbRed = True Then
        Oopt.Value = False: Oopt.ForeColor = &H800000
        With usf.ListBox1
            For i = 0 To .ListCount - 1
                If .List(i) = Sheets(1).Range(Split(Oopt.Tag, ":")(0)).Text Then .RemoveItem i: Exit For
            Next
        End With
        With usf.ListBox2
            If .ListCount <> 0 Then
                For a = 1 To 2
                    For i = 0 To .ListCount - 1
                        If .List(i) = Ocheck.Caption Or .List(i) = Ocheckbis.Caption Then .RemoveItem i: Exit For
                    Next
                Next
            End If
        End With
    End If
Ocheck.Value = False: Ocheck.Caption = "": Ocheckbis.Value = False: Ocheckbis.Caption = ""
End Sub
Private Sub Ooptbis_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Dim i, a
    If Button = 2 And Ooptbis.ForeColor = vbRed Then
        Ooptbis.Value = False: Ooptbis.ForeColor = &H800000
        With usf.ListBox1
            For i = 0 To .ListCount - 1
                If .List(i) = Sheets(1).Range(Split(Ooptbis.Tag, ":")(0)).Text Then .RemoveItem i: Exit For
            Next
        End With
        With usf.ListBox2
            If .ListCount <> 0 Then
                For a = 1 To 2
                    For i = 0 To .ListCount - 1
                        If .List(i) = Ocheck.Caption Or .List(i) = Ocheckbis.Caption Then .RemoveItem i: Exit For
                    Next
                Next
            End If
        End With
    End If
Ocheck.Value = False: Ocheck.Caption = "": Ocheckbis.Value = False: Ocheckbis.Caption = ""
End Sub

allez cadeau Version 3.05 en piece jointe
vous l'avez compris si vous cliquez avec le boutons droite de la souris sur un optionbutton vous supprimez dans la liste1 le R ou le T et les 2 check dans la liste2
et ca vous les met a false et bleu et ca vide les check box bref ca remet la ligne a zero quoi

c'est bon la ? car il me semble que cette discution a été taguée résolue;)

05/04/2018, 17h55
Bono1664

Re

Patrick

Je répondais à ton dernier message de hier après-midi : "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".

C'était ce que faisait ma dernière proposition car ça me semble très utile et ça supprime aussi les lignes du ListBox1. Le seul problème était qu'il fallait d'abord mettre le focus ailleurs puisqu'on ne peut pas cliquer deux fois de suite sur le même OptionButton.

Je pensais qu'on pouvait après avoir cliqué sur un OptionButton le mettre à False dans la foulée et garder simplement la couleur rouge, ce qui permettrai de cliquer à nouveau immédiatement dessus si on s'est trompé. Est-ce possible ?
05/04/2018, 18h06
Bono1664

Re

Nos deux messages se sont croisés au même instant...

La dernière version est PARFAITE !

Je vais me pencher dessus pour voir comment tu as résolu le problème du second click sur le même bouton et tout le reste aussi.

C'est génial :D je vais pouvoir le mettre en application dans mon projet et remplacer les 900 lignes de code :bravo: :bravo: :bravo:

Et un grand :merci:
05/04/2018, 18h10
patricktoulon

re

re
essaie la version 3.0.5 c'est nickel tout tes soucis de conception sont désormais réglés
de rien
pour tout autre demande ouvre un autre post car la on c'est eloigné du sujet initial meme si on parle toujours du meme userform

bonne etude et dit a transitoire que j'ai des aspro pour lui :mouarf:
05/04/2018, 18h32
Transitoire

Cher Patrick,
Les aspro, ça marche pas, mais j'ai réussi avec ce code la:

Citation:

Sub migraine()
Set Douleur = Range("Aie1").Doliprane.1000mmg ' :lol:
Set Douleur = nothing
End sub

Je progresse, NON?:P
Cordialement 8-)
05/04/2018, 18h59
patricktoulon

re

re
a oui !!! l'eleve depasse le maitre la :ptdr:
07/04/2018, 15h53
Bono1664

Re
Bonjour Patrick,

désolé de revenir vers toi, mais chaque fois que je veux appliquer ton code à mon projet, j'ai le message bien connu "Erreur définie par l'application pu par l'objet" avec en jaune la ligne d'initialisation : :(
Code:

1 2 3 Private Sub UserForm_Activate() cl.init_interface Me End Sub
j'ai bien ajouté le module et le module de classe, et même sans ajouter quoi que ce soit à l'initialisation, je n'avance pas depuis 2 jours :arf:
07/04/2018, 19h02
patricktoulon

re
bonjour bono
sans ton fichier je peux pas faire grand chose je peux pas deviner
verifie bien le nom du multipage au cas ou
sinon il me faut le fichier
au moins le module userform que tu peux exporter en fichier (click droit sur le nom de l'userform en haut a gauche dans VBE et exporter)
10/04/2018, 00h49
Bono1664

Re

Bonjour Patrick,

j'en ai :mur: mais j'ai trouvé : une simple erreur de n°feuille :cfou:

Merci pour ta disponibilité !

A+

Bono
10/04/2018, 02h00
patricktoulon

re

re
OK
pour le fun j'ai progressé je travaille sur la version 4.x.x
je fait tout avec le click gauche et j'ai encore diminuer le code de presque moitié:mouarf:
je te le montrerais une fois fini
20/04/2018, 11h10
Bono1664

Re

Bonjour Patrick,

J'avais bien intégré la version 3.0.5 dans mon projet, mais je suis impatient de voir la version 4 :salive:

je te souhaites une belle journée ;)

Bono
20/04/2018, 11h14
patricktoulon

re

re
salut
ok comme tu n'etais pas revenu j'avais mis ca de cote je m'en occupe dans la soirée
20/04/2018, 11h37
patricktoulon

1 pièce(s) jointe(s)

re

et puis non tient 5 minutes
tout ce que tu fait avec click droit et gauche maintenant tu le fait avec seulement le click gauche
;)
20/04/2018, 13h01
Bono1664

Re

Merci Patrick

ça fonctionne nickel ! :D

Juste un détail déjà présent dans la version 3.0.5 : si je vais sur le formulaire d'évaluation avec la commande EVALUATION et que je veux revenir vers BILAN, les 7 catégories s'affichent en plus à la suite des précédentes en haut du multipage. J'ai pourtant pris soin de ne pas fermer ni cacher le formulaire BILAN, mais d'ouvrir EVALUATION par dessus et lorsque je reviens vers bilan, je me contente de seulement fermer EVALUATION. il semblerait que BILAN se réinitialise à nouveau. Dans ce cas la commande EFFACER n'efface que le ListBox1 en bas du BILAN.

Ce n'est pas capital et et ce formulaire bilan s'intègre parfaitement à mon programme.

Merci encore :merci:
20/04/2018, 13h32
patricktoulon

re
ben oui la bonne blague forcement que les page se double quand tu change d'userform et que tu reviens la classification se fait dans le "activate" :mouarf:

allez change
Code:

1 2 3 Private Sub UserForm_Activate() cl.init_interface Me End Sub
pour ca
Code:

1 2 3 Private Sub UserForm_Initialize() cl.init_interface Me End Sub
explication
l'evenement initialize se fait au load du userform
l'evenement activate se fait a chaque fois que le userform devient actif
et voila ;)
20/04/2018, 14h40
Bono1664

Re

J'aurais dû y penser :marteau:

Bonne soirée

Bono
21/04/2018, 20h12
Bono1664

Re
Bonsoir Patrick,

Désolé, c'est encore moi :oops:

Je cherchais à indiquer sur les onglets du multipage un raccourci du contenu :
Apt. Physique
Charge de Travail
Apt. Sensorielle
Apt. Motrice
Tol. Ambiance
Tol. Contraintes
Relation - Cogito

J'ai essayé de mettre dans le module de classe
Code:

1 2 3 4 5 6 With uf.MultiPage1 For i = 1 To 7 'Me("uf.MultiPage1.pages" & i).Caption = Sheets("BILAN").Cells(i, 10) 'Next i End With
mais ça ne marche pas :( et quand je veux utiliser

Code:

Me.controls("uf.MultiPage1.Pages" & i).Caption = Sheets("BILAN").Cells(i, 10)

il ne reconnait pas : "membre de méthode ou de donnée introuvable" :( :(
La définition de chaque onglet séparément ne fonctionne pas d'avantage : il n'accepte que le nom du 1er onglet
Code:

1 2 uf.MultiPage1.pages0.Caption = "Apt. Physique"
et après ça buggue.

merci si tu peux encore une fois m'aider :oops: ?
21/04/2018, 21h18
Transitoire
Bonsoir,
dans les deux lignes de code ci dessous, que s'indique le nom des onglets!
Code:

1 2 3 4 5 6 Function init_interface(uf) ......'Code avant Set page = uf.MultiPage1.Pages.Add i = i + 1: page.Caption = "categorie" & i ..... 'Code après
Je pense qu'il faudra rajouter une ligne avec les raccourcis pour pouvoir afficher les cellules correspondantes. Mais j'imagine que Patrick doit avoir une solution sans problème.
Cordialement 8-)
21/04/2018, 21h28
patricktoulon

1 pièce(s) jointe(s)

re

re
si je comprends bien tu veux le tritre des categories comme caption pour les pages

cela
Pièce jointe 372012

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