Comment simplifier userform initialize

Version imprimable

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:

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

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:

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:

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

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:

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

09/10/2012, 21h03
Daniel.C

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

Code:

With cboxanim

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

Code:

cboxanim.AddItem cell

mets simplement :

Code:

.AddItem cell

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

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:

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:

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.

30/01/2013, 10h07
keygen08

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