Discussion :

[orcinus]

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 :

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
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

[Docmarti]

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

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

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
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

[orcinus]

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

jean marc