Comment simplifier userform initialize

**keygen08** · 09/10/2012, 10h44

Bonjour
Nouveaux sur le forum, je débute en VB et je tiens a remercier devellopez.net
pour les idées et solutions qu'il me procure.
Voila mon souci
j'ai un petit userform initailize qui me rempli 6 listbox avec des données provenant de plusieurs feuilles.
j'ai réécri plusieurs fois le code, toutes les méthode fonctionne trés bien MAIS
je le trouve lourd, pataud, moche.
Donc si une bonne âme pouvait me relire et me montrer comment simplifier ce petit bout de code, cela me deboucherai peut etre les neurones.

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
Private Sub UserForm_Initialize()
Dim cell As Range
Feuil25.Unprotect Password:=("8571")
Feuil27.Unprotect Password:=("8571")
Feuil60.Unprotect Password:=("8571")
 
    With cboxanim
        num = Feuil02.Range("c14").End(xlDown).Row
        For Each cell In Feuil02.Range("c14:c" & num)
        cboxanim.AddItem cell
        Next
    End With
 
    With cboxvacancier
        num = Feuil09.Range("c65000").End(xlUp).Row
        For Each cell In Feuil02.Range("c30:c" & num)
        cboxvacancier.AddItem cell
        Next
    End With
 
    With jourd
        num = Feuil80.Range("f1").End(xlDown).Row
        For Each cell In Feuil02.Range("f1:f" & num)
        jourd.AddItem cell
        Next
        jourd.Value = Format(Now(), "dd-mmm")
    End With
 
    With jourr
        num = Feuil80.Range("f1").End(xlDown).Row
        For Each cell In Feuil02.Range("f1:f" & num)
        jourd.AddItem cell
        Next
        jourr.Value = Format(Now(), "dd-mmm")
    End With
 
    With Heured
        num = Feuil80.Range("g1").End(xlDown).Row
        For Each cell In Feuil02.Range("g1:g" & num)
        jourd.AddItem cell
        Next
        Heured.Value = Format(Now(), "dd-mmm")
    End With
 
    With heurer
        num = Feuil80.Range("f1").End(xlDown).Row
        For Each cell In Feuil02.Range("f1:f" & num)
        jourd.AddItem cell
        Next
        heurer.Value = Format(Now(), "dd-mmm")
    End With
 
'num = Feuil09.Range("c65000").End(xlUp).Row
'cboxvacancier.RowSource = ("csv!c30:c" & num)
 
'num = Feuil80.Range("f1").End(xlDown).Row
'jourd.RowSource = ("comptheure!f1:f" & num)
'jourd.Value = Format(Now(), "dd-mmm")
 
'num = Feuil80.Range("g1").End(xlDown).Row
'Heured.RowSource = ("comptheure!g1:g" & num)
'Heured.Value = Format(Now(), "hh:mm")
 
'num = Feuil80.Range("f1").End(xlDown).Row
'jourr.RowSource = ("comptheure!f1:f" & num)
'jourr.Value = Format(Now(), "dd-mmm")
 
'num = Feuil80.Range("g1").End(xlDown).Row
'heurer.RowSource = ("comptheure!g1:g" & num)
'heurer.Value = Format(Now(), "hh:mm")
End Sub

**Daniel.C** · 09/10/2012, 11h15

Bonjour,

Peu de choses à modifier (regarde ci-dessous). Toutefois, tu alimentes "jourd" et "jourr" à partir de la même plage. Je pense que c'est un copier coller à tort, non ? sinon, tu peux les alimenter dans la même boucle. Pareil dans la booucle commençant par la ligne :

Code :

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

With Heured

tu alimentes "jourd".
Je n'ai rien modifié quand j'ai pensé qu'il pouvait y avoir une erreur. Sinon, regarde l'usage de la commande "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
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
Private Sub UserForm_Initialize()
    Dim cell As Range, Num As Long
    Feuil25.Unprotect Password:=("8571")
    Feuil27.Unprotect Password:=("8571")
    Feuil60.Unprotect Password:=("8571")
 
    With cboxanim
        Num = Feuil02.Range("c14").End(xlDown).Row
        For Each cell In Feuil02.Range("c14:c" & Num)
            .AddItem cell
        Next
    End With
 
    With cboxvacancier
        Num = Feuil09.Range("c65000").End(xlUp).Row
        For Each cell In Feuil02.Range("c30:c" & Num)
            .AddItem cell
        Next
    End With
 
    With jourd
        Num = Feuil80.Range("f1").End(xlDown).Row
        For Each cell In Feuil02.Range("f1:f" & Num)
            .AddItem cell
        Next
        .Value = Format(Now(), "dd-mmm")
    End With
 
    With jourr
        Num = Feuil80.Range("f1").End(xlDown).Row
        For Each cell In Feuil02.Range("f1:f" & Num)
'********************** c'est bien jourd ?
            jourd.AddItem cell
'**********************
        Next
        .Value = Format(Now(), "dd-mmm")
    End With
 
    With Heured
        Num = Feuil80.Range("g1").End(xlDown).Row
        For Each cell In Feuil02.Range("g1:g" & Num)
            jourd.AddItem cell
        Next
        .Value = Format(Now(), "dd-mmm")
    End With
 
    With heurer
    Num = Feuil80.Range("f1").End(xlDown).Row
    For Each cell In Feuil02.Range("f1:f" & Num)
    jourd.AddItem cell
    Next
    .Value = Format(Now(), "dd-mmm")
    End With
 
    'num = Feuil09.Range("c65000").End(xlUp).Row
    'cboxvacancier.RowSource = ("csv!c30:c" & num)
 
    'num = Feuil80.Range("f1").End(xlDown).Row
    'jourd.RowSource = ("comptheure!f1:f" & num)
    'jourd.Value = Format(Now(), "dd-mmm")
 
    'num = Feuil80.Range("g1").End(xlDown).Row
    'Heured.RowSource = ("comptheure!g1:g" & num)
    'Heured.Value = Format(Now(), "hh:mm")
 
    'num = Feuil80.Range("f1").End(xlDown).Row
    'jourr.RowSource = ("comptheure!f1:f" & num)
    'jourr.Value = Format(Now(), "dd-mmm")
 
    'num = Feuil80.Range("g1").End(xlDown).Row
    'heurer.RowSource = ("comptheure!g1:g" & num)
    'heurer.Value = Format(Now(), "hh:mm")
End Sub

**keygen08** · 09/10/2012, 19h09

Effectivement, j'ai trouvé le moyen de réduire de la facon suivante, j'ai encore un peu de ma avec les boucles.
Merci de m'avoir consacré un peu de temps

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
Private Sub UserForm_Initialize()
Dim cell As Range
Feuil25.Unprotect Password:=("8571")
Feuil27.Unprotect Password:=("8571")
Feuil60.Unprotect Password:=("8571")
 
    With cboxanim
        num = Feuil02.Range("c14").End(xlDown).Row
        For Each cell In Feuil02.Range("c14:c" & num)
        cboxanim.AddItem cell
        Next
    End With
 
    With cboxvacancier
        num = Feuil09.Range("c65000").End(xlUp).Row
        For Each cell In Feuil02.Range("c30:c" & num)
        cboxvacancier.AddItem cell
        Next
    End With
 
    With jourd
        num = Feuil80.Range("f1").End(xlDown).Row
        For Each cell In Feuil80.Range("f1:f" & num)
        jourd.AddItem cell
        jourr.AddItem cell
        Next
        jourd.Value = Format(Now(), "dd-mmm")
        jourr.Value = Format(Now(), "dd-mmm")
 
    End With
 
    With Heured
        num = Feuil80.Range("g1").End(xlDown).Row
        For Each cell In Feuil80.Range("g1:g" & num)
        Heured.AddItem cell
        heurer.AddItem cell
 
        Next
        Heured.Value = Format(Now(), "hh:mm")
        heurer.Value = Format(Now(), "hh:mm")
    End With
 
End Sub

**Daniel.C** · 09/10/2012, 21h03

Tu manques aussi de pratique avec les "with". Si tu mets :

Code :

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

 With cboxanim

pas la peine de répéter "cboxanim". Au lieu de :

Code :

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

cboxanim.AddItem cell

mets simplement :

Code :

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

.AddItem cell

c'est la raison d'être de "with".

**rvtoulon** · 11/10/2012, 17h04

Bonjour,
je viens un peu tard, mais tu peux éviter les boucles pour remplir tes listbox en utilisant la propriété "List":
par exemple au lieu de :

Code :

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

1
2
3
4
5
6
With cboxanim
        num = Feuil02.Range("c14").End(xlDown).Row
        For Each cell In Feuil02.Range("c14:c" & num)
        cboxanim.AddItem cell
        Next
    End With

essai :

Code :

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

1
2
3
4
5
With cboxanim
    num = Feuil02.Range("c14").End(xlDown).Row
    malist = Feuil02.Range("c14:c" & num)
    .List = malist
End With

tu évites les boucles et donc tu vas plus vite.

**keygen08** · 30/01/2013, 10h07

Un grand merci à tous pour le temps que vous avez bien voulu me consacrer

Comment simplifier userform initialize [XL-2003]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager