Bonsoir Coco, bonsoir le forum,
Supprime la valeur de la propriété [RowSource] et utilise le code ci-dessous :
Private Sub UserForm_Initialize()
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
TC = Sheets("Cumul").Range("Listbox_cro") 'définit la tableau de cellules TC
Me.ListBox1.ColumnCount = UBound(TC, 2) 'définit le nombre de colonnes de la ListBox1
For I = 1 To UBound(TC, 1) 'boucle 1 : sur toutes les ligne du tableau tc
With Me.ListBox1 'prend en compte la ListBox1
.AddItem TC(I, 1) 'ajoute la valeur de la colonne 1 (=A) de la ligne
For j = 1 To UBound(TC, 2) - 1 'boucle 2 : sur toutes les colonnes de TC
'ajoute à la colonne J de la ListBox1 la valeur en colonne J + 1 du tableau TC au format "h:mm:ss"
.Column(j, .ListCount - 1) = Format(TC(I, j + 1), "h:mm:ss")
Next j 'prochaine colonne de la boucle 2
End With 'fin de la prise en compte de la ListBox1
Next I 'prochaine ligne d ela boucle 1
End Sub
Pour la couleur, tu n'as pas précisé si tu la voulais dans la ListBox1 ou dans le tableau ?
• Pour la ListBox1 je ne sais pas faire
• pour le tableau une Mise en Forme Conditionnelle devrait faire l'affaire... Honte à moi, je n'ai pas retrouvé où on le faisait car je le fait rarement et je suis depuis peu sous Excel 2013.