Réponse acceptée !
salut Jeff
regarde ce code et il va faire ton bonheur
Function rand(lowerbound As Long, upperbound As Long) As Long
Randomize
rand = CLng((upperbound) * Rnd + lowerbound)
Debug.Print rand
End Function
Private Sub Form_Load()
Dim itm As MSComctlLib.ListItem
Dim subItm As MSComctlLib.ListSubItem
Dim arNom
arNom = Array("ALEX", "JEFF", "MARIE-FRANCE", "NATHALIE")
ListView1.ColumnHeaders.Add , , "Nom", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "Prénom", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "Age", ListView1.Width / 4, lvwColumnCenter
ListView1.ColumnHeaders.Add , , "Cp", ListView1.Width / 4, lvwColumnCenter
ListView1.View = lvwReport
For i = 1 To 20
Set itm = ListView1.ListItems.Add(, , arNom(rand(0, 3)))
itm.Bold = True
Set subItm = itm.ListSubItems.Add(, , arNom(rand(0, 3)))
subItm.ForeColor = vbGreen
subItm.Bold = True
Set subItm = itm.ListSubItems.Add(, , rand(18, 50))
subItm.ForeColor = vbRed
subItm.Bold = True
Set subItm = itm.ListSubItems.Add(, , rand(1, 95))
subItm.ForeColor = vbBlue
subItm.Bold = True
Next i
End Sub
la fonction rand n'est pas nessecaire pour toi
nirega
a+