Private Sub ListBox1_Change() LC = UserForm1.ListBox1.ListCount Debug.Print LC UserForm1.ComboBox1.Clear For i = 0 To LC - 1 valSelected = UserForm1.ListBox1.List(i) If ListBox1.Selected(i) Then UserForm1.ComboBox1.AddItem valSelected End If Next End Sub
Private Sub ListBox4_Change()
LC = Copi_rap.ListBox4.ListCount
Debug.Print LC
Copi_rap.ComboBox4.Clear
For i = 0 To LC - 1
valSelected = Copi_rap.ListBox4.List(i)
If ListBox4.Selected(i) Then
Copi_rap.ComboBox4.AddItem valSelected
End If
Next
End Sub
Mais ça ne fonctionne pas, lorsque je sélectionne les noms dans la ListBox, il ne se passe rien dans le ComboBox...Tu as cliqué dans ta ComboBox pour voir si des valeurs ne s'y étaient pas mises ?
Private Sub ListView1_Click() Dim i As Integer Dim valSelected as String '---------------------------------------------- 'RAZ de la combo avant mise à jour '---------------------------------------------- Copi_rap.ComboBox1.Clear '---------------------------------------------- 'Récupération des éléments sélectionnés '---------------------------------------------- LI = ListView1.ListItems.Count Debug.Print "Nb Elmts in ListeViw : " & LI For i = 1 To LI If ListView1.ListItems(i).Checked = True Then valSelected = ListView1.ListItems(i).Text Debug.Print valSelected Copi_rap.ComboBox1.AddItem valSelected End If Next End Sub
sur mon projet RapHebdo si tu te souviens,Non désolé... je vois tellement de messages et de projets (sans parler des miens) que je ne peux pas me souvenir de tous.. ;-)
Private Sub ListBox1_Change() LC = Copi_rap.ListBox1.ListCount Debug.Print LC Copi_rap.ComboBox1.Clear For i = 0 To LC - 1 valSelected = Copi_rap.ListBox1.List(i) If Copi_rap.ListBox1.Selected(i) Then Copi_rap.ComboBox1.AddItem valSelected ' ***** Optionnel : **************************** ' Affiche la valeur ajoutée dans le combo... Copi_rap.ComboBox1.Value = valSelected '**************************************************** End If Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionQuand ,dans ma ListBox, je cochais les noms des intervenants, il n'apparaissaient pas ligne par ligne mais se remplacaient .Heu... ce n'est pas possible....