[VBA-E] Remplir une listbox à l'ouverture d'un formulaire
bonjour,
A partir d'un bouquin, j'ai réalisé un formulaire (excel 2003) destiné à la saisie des employés.
Mon problème est le suivant:
Une listbox est remplie par des données placées sur une feuille.
Lors de l'ouverture du formulaire la listbox ne se remplie pas.
Par contre lors de l'entrée d'un nouveau salarié elle s'affiche.
Quelqu'un à une idée ?
Voici le 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
| Private Sub UserFrom_Initialize()
Dim rng As Range
Dim cell As Range
'Affichage de la liste des employés
Affiche_Employes
lstEmployes.ListIndex = 0
'Nouvel employé par défaut
bNouveau = True
End Sub
##########################
Private Sub Affiche_Employes()
Dim rng As Range
Dim ligne As Range
'Affichage de la liste des employés
With ThisWorkbook.Worksheets("Planning")
Activate
Set rng = .Range("B18").CurrentRegion
Set rng = .Range("C19:E" & rng.Rows.Count + 18)
lstEmployes.Clear
For Each ligne In rng.Rows
If Cells(ligne.Row, 3) <> "" Then
lstEmployes.AddItem Cells(ligne.Row, 3) & " " & Cells(ligne.Row, 4)
Else
Exit For
End If
Next ligne
End With
End Sub |
Merci d'avance
