Discussion :

[alex311278]

Bonjour à tous,

Je cherche à remplir un tableau via un formulaire avec listbox dont j'ai activé la propriété multiselection.

Mon problème est le suivant :
Après avoir trouvé une première ligne sélectionnée (et réagis comme attendu), la listbox est visiblement réinitialisée sans aucune sélection
Conséquence seule une ligne est complétée.

Mon code tiens en quelques lignes

---

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CmbValider_Click()
Dim i As Long
 
For i = 1 To ListPrevision.ListCount
    If ListPrevision.Selected(i) = True Then
        MsgBox ListPrevision.List(i)
        Range("E" & i + 1).Offset(0, 1) = ListPrevision.List(i, 4)
        Range("H" & i + 1).Offset(0, 1) = ListPrevision.List(i, 7)
    End If
Next i
 
End Sub

---

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Activate()
Dim NbreLigne As Long
 
'Alimentation de la listbox
NbreLigne = Range("Feuil1!A1").CurrentRegion.Rows.Count
ListPrevision.RowSource = "Feuil1!A1:J" & NbreLigne
ListPrevision.ListIndex = 0
End Sub

---

Pouvez vous m'indiquer où est mon erreur svp ?

[joe.levrai]

Bonjour,

Est-ce que ceci corrige ton problème ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CmbValider_Click()
Dim i As Long
 
For i = 0 To ListPrevision.ListCount - 1
    If ListPrevision.Selected(i) = True Then
        MsgBox ListPrevision.List(i, 0)
        Range("E" & i + 1).Offset(0, 1) = ListPrevision.List(i, 3)
        Range("H" & i + 1).Offset(0, 1) = ListPrevision.List(i, 6)
    End If
 
Next i
 
End Sub

j'ai volontairement modifié le départ et la fin de ton i ainsi que le numéro de colonne que tu utilises dans ton traitement, car le premier élément de ta liste est List(0,0) et pas List(1,1)

[joe.levrai]

Je reposte plutôt qu'éditer mon message


désolé, j'ai mal effectué mon test, ce qui a biaisé mon constat

en fait tes items se désélectionnent quand tu commences à écrire dans ton classeur

donc je te propose de stocker les index d'items sélectionnés dans une première boucle
ensuite on fait une seconde boucle avec ces index pour effectuer les écritures

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
Private Sub CmbValider_Click()
Dim i As Long
Dim ListeSelection
 
ReDim ListeSelection(0)
For i = 0 To ListPrevision.ListCount - 1
    If ListPrevision.Selected(i) = True Then
        If ListeSelection(0) = "" Then
            ListeSelection(0) = i
        Else
            ReDim Preserve ListeSelection(UBound(ListeSelection) + 1)
            ListeSelection(UBound(ListeSelection)) = i
        End If
    End If
Next i
 
For i = LBound(ListeSelection) To UBound(ListeSelection)
        MsgBox ListPrevision.List(ListeSelection(i), 0)
        Range("E" & ListeSelection(i) + 1).Offset(0, 1) = ListPrevision.List(ListeSelection(i), 3) & " TOTO"
        Range("H" & ListeSelection(i) + 1).Offset(0, 1) = ListPrevision.List(ListeSelection(i), 6) & " TOTO"
Next i
 
End Sub

je sais pas si y'a plus adapté, et je serai curieux/ravi de voir une méthode un peu moins brute que celle là !

[alex311278]

Bonjour Joe,

Merci pour ta réponse,


Pour l'instant ton code ne fonctionne pas correctement :
Il enregistre ne nombre de sélection effectué et non l'index de la sélection.
Je ne connais pas les commandes que tu as utilisées... je m'y penche..... merci de ton aide

[joe.levrai]

reprend bien mon dernier code, ce n'est plus l'indice "i" qu'on utilise dans la seconde boucle

c'est l'indice ListeSelection(i) qu'on utilise



pour bien comprend, voici la démarche :

- chaque items sélectionné possède un index : 0 = le premier élément de la listbox || Listcount - 1 = le dernier élément

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = 0 To ListPrevision.ListCount - 1

- on met tous les index d'items sélectionnés dans un tableau : ListeSelection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
If ListPrevision.Selected(i) = True Then
        If ListeSelection(0) = "" Then
            ListeSelection(0) = i
        Else
            ReDim Preserve ListeSelection(UBound(ListeSelection) + 1)
            ListeSelection(UBound(ListeSelection)) = i
        End If
    End If

- on boucle sur chaque élément de ListeSelection : donc on boucle sur chaque index d'item sélectionné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For i = LBound(ListeSelection) To UBound(ListeSelection)

- pour bien récupérer la valeur de ton item, on a besoin de son index ... qui est situé dans ListeSelection
donc on prend l'item(i) , où i est en fait ListeSelection(i)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox ListPrevision.List(ListeSelection(i), 0)

[alex311278]

çà fonctionne

Merci Joe

Je suis tout de même curieux de savoir pourquoi mo premier essai ne fonctionne pas :
Pourquoi cette perte de sélection après 1 tour de boucle......

En tout cas ta solution, bien que plus compliqée, fonctionne