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:
Merci d'avance
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 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
Partager