Problème avec deux zones de liste

Version imprimable

1 pièce(s) jointe(s)

bonjour

voilà j'ai 2 zones de liste dans mon userform
La première fonctionne correctement mais la deuxième n'affiche aucun élément quant je clique dessus.
Si une personne sympa pouvait me donner un coup de main.
Merci d'avance

Ci-dessous mon code

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
Private Sub nouveau_Click()
Dim i As Integer
If nouveauclient.nomduclient = "" Or nouveauclient.nomagence = "" Or nouveauclient.nomdomaineconcerné <> "" Then
MsgBox "merci de remplir les champs"
Else
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 1).Offset(1, 0).Select
i = i + 1
Loop
ActiveCell.Value = nouveauclient.nomduclient.Value
ActiveCell.Offset(0, 1).Value = nouveauclient.nomagence.Value
ActiveCell.Offset(0, 2).Value = nouveauclient.nomdomaineconcerné.Value
Unload nouveauclient
End If
End Sub
Private Sub annuler_Click()
nouveauclient.Hide
End Sub
Private Sub UserForm_Click()
End Sub
Private Sub UserForm_Initialize()
Dim i As Integer
i = 1
Do While Worksheets("agences").Cells(i, 1) <> ""
nomagence.AddItem Worksheets("agences").Cells(i, 1)
i = i + 1
Loop
End Sub
Private Sub UserForm1_Click()
End Sub
Private Sub UserForm1_Initialize()
Dim i As Integer
i = 1
Do While Worksheets("domaines").Cells(i, 1) <> ""
nomdomaineconcerné.AddItem Worksheets("domaines").Cells(i, 1)
i = i + 2
Loop
End Sub

jean marc

UserForm_Initialize est un événement valide dans un formulaire.

UserForm1_Initialize n'est pas un événement valide. Il n'existe pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub UserForm_Initialize()
Dim i As Integer
i = 1
Do While Worksheets("agences").Cells(i, 1) <> ""
nomagence.AddItem Worksheets("agences").Cells(i, 1)
i = i + 1
Loop
 
i = 1
Do While Worksheets("domaines").Cells(i, 1) <> ""
nomdomaineconcerné.AddItem Worksheets("domaines").Cells(i, 1)
i = i + 2
Loop
 
'type de demandes nomtypededemande
i = 1
Do While Worksheets("type de demandes").Cells(i, 1) <> ""
nomtypededemande.AddItem Worksheets("type de demandes").Cells(i, 1)
i = i + 2
Loop
 
End Sub

10/09/2013, 12h48
orcinus

re

bonjour
merci beaucoup pour la réponse apporté
sa fonctionne nickel:ccool:

jean marc