1 pièce(s) jointe(s)
problème listbox multi qui fonctionne à moitié
Bonjour
Dans mon programme j'ai plusieur combo, textbox et 3 listbox en cascade.
Le soucis vient de ma dernière listbox qui conditionne tout le programme, la boucle se fait sur le nombre d'item sélectionnés, mais le soucis c'est que la valeur renvoyer correspond uniquement au dernier item.Pièce jointe 242561
Sur la photo, la listbox à droite avec les 3 items en bleu, seul l'item "met en oeuvre les technique réglementairement est pris en compte et se colle dans les trois lignes. normalement je devrais avoir une ligne correspondant à caque item?
Si quelqu'un peut me dire ce que j'ai loupé dans le code, en vous remerciant
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
| Dim k As Byte ' boucle sur la listbox et transfert les données contenues dans les différents controls
For k = 0 To Me.Sequence_pédagogique.ListCount - 1
With Me.Sequence_pédagogique
If Me.Sequence_pédagogique.Selected(k) = True Then
ligne = ligne + 1
Range("a65536").End(xlUp).Offset(1, 0).Value = DateSaisie ' remplissage de la colonne date
Range("b65536").End(xlUp).Offset(1, 0).Value = VBA.format(DateSaisie, "mmmm") ' remplissage de la colonne mois
Range("c65536").End(xlUp).Offset(1, 0).Value = VBA.format(DateSaisie, "yyyy") ' remplissage de la colonne Année
Range("d65536").End(xlUp).Offset(1, 0).Value = Gpt ' remplissage de la colonne groupement
Range("e65536").End(xlUp).Offset(1, 0).Value = Zone ' remplissage de la colonne zone
Range("f65536").End(xlUp).Offset(1, 0).Value = Centre ' remplissage de la colonne centre
Range("g65536").End(xlUp).Offset(1, 0).Value = VBA.format(Equipe_garde, "0") * 1 ' remplissage de la colonne Equipe_garde
Range("h65536").End(xlUp).Offset(1, 0).Value = choix ' remplissage de la colonne nom
Range("i65536").End(xlUp).Offset(1, 0).Value = Grade ' remplissage de la colonne grade
Range("j65536").End(xlUp).Offset(1, 0).Value = Statut ' remplissage de la colonne statut
Range("k65536").End(xlUp).Offset(1, 0).Value = VBA.format(Equipe, "0") * 1 ' remplissage de la colonne equipe
Range("l65536").End(xlUp).Offset(1, 0).Value = Affectation ' remplissage de la colonne affectation
Range("q65536").End(xlUp).Offset(1, 0).Value = Temps.Value * 1 ' remplissage de la colonne temps
'Range("h65536").End(xlUp).Offset(1, 0).Value = choix
Range("n65536").End(xlUp).Offset(1, 0).Value = ListBox1
Range("o65536").End(xlUp).Offset(1, 0).Value = ListBox2
Range("p65536").End(xlUp).Offset(1, 0).Value = Sequence_pédagogique.List(.ListIndex - 1) 'boucle sur les items
End If
End With
Next k |
