Discussion :

[mimicor15]

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.

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 :

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