Remplir une listview à partir d'une feuille de calcul ou de textbox

Bjr,
Dans un formulaire j'ai 1 combobox, 1 Listbox et 1listview. Si je selectionne SEPT dans le combobox il alimente ma listBox via une plage nommée et j'aimerais alimenté ma listview par une range par exemple [C18:I20] ou la valeur de textboxs d'un autre formulaire. Je sais remplir les lignes en définissant le contenu grace à ce code:

Code:

---

1 2 3

'Remplissage des colonnes 2 et 3 dans la 1ere ligne .ListItems(1).ListSubItems.Add , , "TOTO" .ListItems(1).ListSubItems.Add , , 30

---

mais ce que je voudrais faire c un truc de ce genre:

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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

Private Sub Cbo3_Change() Application.ScreenUpdating = False If Cbo3.Value = "SEPT" Then ListBox1.RowSource = "Noms2" Load Rapportform Rapportform.Controls("Cbo2").Value = "SEPT" With ListView1 'Remplissage des colonnes 2 à 8 dans la 1ere ligne .ListItems(1).ListSubItems.= Rapportform.Controls("TextBox1").Value .ListItems(1).ListSubItems = Rapportform.Controls("TextBox2").Value .ListItems(1).ListSubItems = Rapportform.Controls("TextBox3").Value .ListItems(1).ListSubItems = Rapportform.Controls("TextBox4").Value .ListItems(1).ListSubItems = Rapportform.Controls("TextBox5").Value .ListItems(1).ListSubItems = Rapportform.Controls("TextBox6").Value .ListItems(1).ListSubItems = Rapportform.Controls("TextBox7").Value 'Remplissage des colonnes 2 à 8 dans la 2eme ligne .ListItems(2).ListSubItems = Rapportform.Controls("TextBox8").Value .ListItems(2).ListSubItems = Rapportform.Controls("TextBox9").Value .ListItems(2).ListSubItems = Rapportform.Controls("TextBox10").Value .ListItems(2).ListSubItems = Rapportform.Controls("TextBox11").Value .ListItems(2).ListSubItems = Rapportform.Controls("TextBox12").Value .ListItems(2).ListSubItems = Rapportform.Controls("TextBox13").Value .ListItems(2).ListSubItems = Rapportform.Controls("TextBox14").Value 'Remplissage des colonnes 2 à 8 dans la 3eme ligne .ListItems(3).ListSubItems = Rapportform.Controls("TextBox15").Value .ListItems(3).ListSubItems = Rapportform.Controls("TextBox16").Value .ListItems(3).ListSubItems = Rapportform.Controls("TextBox17").Value .ListItems(3).ListSubItems = Rapportform.Controls("TextBox18").Value .ListItems(3).ListSubItems = Rapportform.Controls("TextBox19").Value .ListItems(3).ListSubItems = Rapportform.Controls("TextBox20").Value .ListItems(3).ListSubItems = Rapportform.Controls("TextBox21").Value End With ElseIf Cbo3.Value = "OCT" Then ListBox1.RowSource = "Noms3" Load Rapportform Rapportform.Controls("Cbo2").Value = "OCT" With ListView1 'Remplissage des colonnes 2 à 8 dans la 1ere ligne .ListItems(1).ListSubItems.= Rapportform.Controls("TextBox1").Value End With 'ETC ....... End If End Sub

---

je sais c un peu long mais c la première fois que j'utilise une listview. Comme vous vous en doutez cette ligne n'est pas bonne:

Code:

---

.ListItems(1).ListSubItems.= Rapportform.Controls("TextBox1").Value

---

Que faire? merci d'avance de votre aide

Re,
apres de nombreuses recherches et mures réflexion j'ai fini par comprendre comment remplir ma listview soit par plage ou encore par formulaire (textbox).

j'ai choisi d'utiliser les textboxs d'un de mes formulaires:

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 30 31 32 33 34 35

Private Sub Cbo3_Change() Dim i, vval As Long   Application.ScreenUpdating = False     If Cbo3.Value = "SEPT" Then ListBox1.RowSource = "Noms2"   Load Rapportform Rapportform.Controls("Cbo2").Value = "SEPT" vval = 1   For i = 1 To 4   With ListView1.ListItems(i).ListSubItems For vval = vval To vval   'Remplissage des colonnes 2 à 8 dans la 1ere ligne .Add , , Rapportform.Controls("TextBox" & vval).Value .Add , , Rapportform.Controls("TextBox" & vval + 1).Value .Add , , Rapportform.Controls("TextBox" & vval + 2).Value .Add , , Rapportform.Controls("TextBox" & vval + 3).Value .Add , , Rapportform.Controls("TextBox" & vval + 4).Value .Add , , Rapportform.Controls("TextBox" & vval + 5).Value .Add , , Rapportform.Controls("TextBox" & vval + 6).Value vval = vval + 6 Next vval   End With Next i   ElseIf Cbo3.Value = "OCT" Then ' 'ETC...

---