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