Discussion :

[laeti78]

bonjour,

je suis en école d'ingénieur et j'ai un projet de cours à réaliser, j'ai commencer pas faire mon userform


et commencer à écrire le code le voici

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
Private Sub UserForm_Activate() 'A l'ativation de ma feuille je réalise
 
'je vide la liste dans un premier temps
 
        Case11.Clear ' correspond à une combobox
 
'je remplis la liste avec les valeurs
 
        Case11.AddItem "1"
        Case11.AddItem "2"
        Case11.AddItem "3"
        Case11.AddItem "4"
        Case11.AddItem "5"
        Case11.AddItem "6"
        Case11.AddItem "7"
        Case11.AddItem "8"
        Case11.AddItem "9"
 
' je dit au autre combobox qu'elle doit prendre la même liste
 
Case12.List = Case11.List
Case13.List = Case11.List
Case14.List = Case11.List
Case15.List = Case11.List
Case16.List = Case11.List
Case17.List = Case11.List
Case18.List = Case11.List
Case19.List = Case11.List
 
...
 
Case99.List = Case11.List
 
End Sub

sauf que je me suis rendu compte que mon code aller faire trop de ligne donc j'ai penser à ca :

Code :

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

1
2
3
4
5
6
7
8
9
For i = 1 To 9
 
    For j = 1 To 9
 
      Caseij.Value = Case11.Value
 
   Next j
 
Next i

mais sa ne fonctionne pas pouvez vous me donner un coup de main

merci à l'avance

[pijaku]

Bonjour,
Peut être plus simplement comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Initialize()
Dim i As Byte
 
For i = 1 To 9
    Case11.AddItem i
Next
For i = 12 To 99
    Me.Controls("Case" & i).List = Case11.List
Next
End Sub

[laeti78]

merci de votre aide