Procédure trop longue

**kores33** · 22/12/2016, 11h40

Bonjour tout le monde,

J'ai dans un userform plusieurs case à cocher et en fonction de ça, une valeur est renvoyée dans telle ou telle cellule d'un tableau. Or il ne marque procédure trop longue.
Comme puis je simplifier tout ça. voici une partie du code
merci de votre aide
Cordialement

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
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
 
Private Sub CommandButton2_Click()
 
'chaine A
        'Dépal
            '6h 13h
If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox1 = True Then
Range("c6:d6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("c6") = TextBox1.Value
End If
If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox2 = True Then
Range("e6:f6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("E6") = TextBox1.Value
End If
If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox3 = True Then
Range("g6:h6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("G6") = TextBox1.Value
End If
If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox4 = True Then
Range("i6:j6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("I6") = TextBox1.Value
End If
If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox5 = True Then
Range("k6:l6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("K6") = TextBox1.Value
End If
        'Dépal
            '13h 20h
If OptionButton109 And OptionButton154 And OptionButton158 And CheckBox1 = True Then
Range("c6:d6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("d6") = TextBox1.Value
End If
If OptionButton109 And OptionButton154 And OptionButton158 And CheckBox2 = True Then
Range("e6:f6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("f6") = TextBox1.Value
End If
If OptionButton109 And OptionButton154 And OptionButton158 And CheckBox3 = True Then
Range("g6:h6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("h6") = TextBox1.Value
End If
If OptionButton109 And OptionButton154 And OptionButton158 And CheckBox4 = True Then
Range("i6:j6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("j6") = TextBox1.Value
End If
If OptionButton109 And OptionButton154 And OptionButton158 And CheckBox5 = True Then
Range("k6:l6").MergeCells = False ' Ne plus fusionner
Sheets("Feuil1").Range("l6") = TextBox1.Value
End If
        'Dépal
            'journée
If OptionButton123 And OptionButton154 And OptionButton158 And CheckBox1 = True Then
Range("c6:d6").MergeCells = True ' Fusionner des cellules
Range("c6").HorizontalAlignment = xlCenter
Sheets("Feuil1").Range("c6") = TextBox1.Value
End If
If OptionButton123 And OptionButton154 And OptionButton158 And CheckBox2 = True Then
Range("e6:f6").MergeCells = True ' Fusionner des cellules
Range("e6").HorizontalAlignment = xlCenter
Sheets("Feuil1").Range("E6") = TextBox1.Value
End If
If OptionButton123 And OptionButton154 And OptionButton158 And CheckBox3 = True Then
Range("g6:h6").MergeCells = True ' Fusionner des cellules
Range("g6").HorizontalAlignment = xlCenter
Sheets("Feuil1").Range("g6") = TextBox1.Value
End If
If OptionButton123 And OptionButton154 And OptionButton158 And CheckBox4 = True Then
Range("i6:j6").MergeCells = True ' Fusionner des cellules
Range("i6").HorizontalAlignment = xlCenter
Sheets("Feuil1").Range("i6") = TextBox1.Value
End If
If OptionButton123 And OptionButton154 And OptionButton158 And CheckBox5 = True Then
Range("k6:l6").MergeCells = True ' Fusionner des cellules
Range("k6").HorizontalAlignment = xlCenter
Sheets("Feuil1").Range("k6") = TextBox1.Value
End If

Invité · 24/12/2016, 05h07

Bonjour,

Vous pourriez décomposer ce code en 3 procédures dans le module de votre Userform.

Exemple :

Le bouton CommandButton2 ferait appel aux procédures Chaine_A_Depal_6h13h, Chaine_A_Depal_13h20h, Chaine_A_Depal_Journee. Chacune des procédures contiendrait le code qui lui revient.

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
34
35
36
37
38
 
 
Private Sub CommandButton2_Click()
 
        Chaine_A_Depal_6h13h
      ' Chaine_A_Depal_13h20h
      ' Chaine_A_Depal_Journee
 
End Sub
 
Sub Chaine_A_Depal_6h13h()
 
'chaine A
        'Dépal
            '6h 13h
 
        If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox1 = True Then
        Range("c6:d6").MergeCells = False ' Ne plus fusionner
        Sheets("Feuil1").Range("c6") = TextBox1.Value
        End If
        If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox2 = True Then
        Range("e6:f6").MergeCells = False ' Ne plus fusionner
        Sheets("Feuil1").Range("E6") = TextBox1.Value
        End If
        If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox3 = True Then
        Range("g6:h6").MergeCells = False ' Ne plus fusionner
        Sheets("Feuil1").Range("G6") = TextBox1.Value
        End If
        If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox4 = True Then
        Range("i6:j6").MergeCells = False ' Ne plus fusionner
        Sheets("Feuil1").Range("I6") = TextBox1.Value
        End If
        If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox5 = True Then
        Range("k6:l6").MergeCells = False ' Ne plus fusionner
        Sheets("Feuil1").Range("K6") = TextBox1.Value
        End If
 
End Sub

Cordialement.

**unparia** · 24/12/2016, 11h58

Bonjour
J'aimerais quant à moi, avant toute autre chose, que tu me traduises en langage naturel ce que tu veux exprimer par (par exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox1 = True then

En appelant ton attention sur le fait que si les 3 boutons d'option sont dans le même groupe, cette condition ne pourra en aucun cas être vérifiée !

**joe.levrai** · 24/12/2016, 12h02

Bonjour,

je pense que tes procédures sont longues car étant la conséquence d'un userform qui n'utilise pas les bon contrôles ou utilise des contrôles avec les mauvais outils.
par exemple, tes checkbox pourraient être remplacées par un jeu d'optionbutton dans un unique frame ou (mieux encore) par un listbox

suivant ce qui a été choisi, il suffirait d'interroger la "position" du choix fait (le .listindex du listbox) qui servirait de "numero" de décalage par rapport à la cellule C6

de même, tes autres jeux de contrôles pour les autres paramètres pourraient être simplifiés, par également une listbox, ou en utilisant leur "Tag" pour stocker une repère permettant de calculer la position de plage à affecter dans ta feuille

ainsi, en repensant à l'organisation de tes contrôles, tu pourrais probablement aboutir à une procédure qui ne dépasserait pas les 30 lignes de codes et se contenterait simplement d'interroger les valeurs choisies dans tes listbox et les Tag des optionbutton ayant la valeur True

**patricktoulon** · 26/12/2016, 13h00

Bonjour

tes procédures sont peut etre longues tout simplment parce qu'elles le sont c'est tout

quand je regarde ton code il y a des choses qui suatent au yeux tout de suite

tu a 3 conditions principales que je décompose comme suit tu constatera que j'ai dimer un array en début de macro, se sont tes address de cellules qui elles reste inchangé pour les 3 conditions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
[ Dim add, conditions
    add = Array("-", "c6:d6", "e6:f6", "g6:h6", "i6:j6", "k6:l6")
    If OptionButton108 = True And OptionButton154 = True And OptionButton158 = True Then conditions = 1
    If OptionButton109 = True And OptionButton154 = True And OptionButton158 = True Then conditions = 2
    If OptionButton123 = True And OptionButton154 = True And OptionButton158 = True Then conditions = 3

ces trois conditions détermineront si on Merge ou ou pas les cells

ensuite pour ces trois conditions tu en a 5 autre (subconditions ) basées sur les checkboxs qui elle sont identique aussi pour les 3 conditions parent (checkbox de 1 a 5
ces 5 sous conditions détermine quelle est la plage a modifier et si c'est la cellule 1 ou 2 de cette plage qui reçoit le textbox

cette sous conditions des checkbox je la décompose comme suit dans une boucle for...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
For i = 1 To 5
If Me.Controls("CheckBox" & i) = True Then
Range(add(i)).MergeCells = IIf(conditions < 3, False, True)
 Set cel = IIf(conditions <> 2, Range(add(i)).Cells(1), Range(add(i)).Cells(2))
  cel = TextBox1.Value
'le petit plus de la condition 3
If Condition = 3 Then Range(add(i)).Cells(1).HorizontalAlignment = xlCenter
Next

donc cette boucle par "i" determine quelle plage a merger par 'add(i)' et la conditions (si c'est plus petit que 3 c'est true sinon c'est false
par la conditions on détermine aussi si c'est la cellule1 ou 2 de la plage (add(i) qui va recevoir le textbox
et on a joute a la fin la petite modif unique pour la conditions 3 pour le xlcenter

conclusion ces deux code remplacent tout ton code
voila donc la macro évènementielle en entier ,j'ai cru comprendre que cela concernait le sheets ("feuil1")meme si tu ne le precise pas a chaque fois que tu modifie dans ton code de base je l'ai donc englobé dans un (with/end with)

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
Private Sub CommandButton2_Click()
    Dim add, conditions
    add = Array("-", "c6:d6", "e6:f6", "g6:h6", "i6:j6", "k6:l6")
    If OptionButton108 = True And OptionButton154 = True And OptionButton158 = True Then conditions = 1
    If OptionButton109 = True And OptionButton154 = True And OptionButton158 = True Then conditions = 2
    If OptionButton123 = True And OptionButton154 = True And OptionButton158 = True Then conditions = 3
    With Sheets("Feuil1")
        For i = 1 To 5
            If Me.Controls("CheckBox" & i) = True Then
               . Range(add(i)).MergeCells = IIf(conditions < 3, False, True)
                Set cel = IIf(conditions <> 2, .Range(add(i)).Cells(1), .Range(add(i)).Cells(2))
                cel = TextBox1.Value
                'le petit plus de la condition 3
                If Conditions = 3 Then .Range(add(i)).Cells(1).HorizontalAlignment = xlCenter
            Next
        End With
 
end sub

**unparia** · 26/12/2016, 19h56

Je répète donc (je l'ai déjà dit)
si (exemple) Les 3 boutons d'option concernés ne sont pas dans des groupes séparés, cette condition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If OptionButton108 = True And OptionButton154 = True And OptionButton158 = True Then conditions = 1

ne sera JAMAIS vérifiée et ne risquera JAMAIS de l'être !
Il n'y a d'ailleurs aucune différence entre cette ligne "corrigée" et la ligne originelle, qui était :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If OptionButton108 And OptionButton154 And OptionButton158 And CheckBox3 = True Then

les deux codes veulent dire rigoureusement la MEME CHOSE et aboutissent au MEME résultat (impossibilité si les 3 boutons d'option appartiennent au même groupe).
Je vais maintenant sortir de cette curieuse discussion.

**patricktoulon** · 26/12/2016, 21h37

re

et bien soit on dégroupe en groupant par a 1 chaque fois dans l'activate de l'USF
et comme l'action finale unload l'USF on peut les mettre tous a false au départ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub UserForm_Activate()
For Each ctrl In Me.Controls
If TypeName(ctrl) = "OptionButton" Then ctrl.GroupName = ctrl.Name: ctrl.Value = False
Next
End Sub

voila rien de bien compliqué

mais il est vrai que l'on aurait pu utiliser plutôt des checkboxs histoire de pouvoir changer d'avis en cours de route avec l'USF affiché

Procédure trop longue

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager