Bonjour le forum,
gmb :A toi t'en inspirer pour le Usf2
C'est frusté et dépité que je me retourne vers vous,
Je n'arrive pas à adapter ces lignes (que m'a gentiment fournies gmb), à mon UserForm2.
If j = 1 Or j = 2 Then
.ListItems(i).ListSubItems.Add , , Format(rg.Offset(i, j), "hh:mm")
ElseIf j = 3 Then
.ListItems(i).ListSubItems.Add , , Format(rg.Offset(i, j) / 100, "0.00%")
ElseIf j = 4 Then
.ListItems(i).ListSubItems.Add , , rg.Offset(i, j)
End If
C'est la boucle qui me pose problème.
j = 1
Do Until IsEmpty(rg.Offset(0, j))
'Ajouter un sous-élément en spéciant la valeur seulement
.ListItems(i).ListSubItems.Add , , rg.Offset(i, j)
j = j + 1
Loop
i = i + 1
Loop
J'ai essayé de placer ces lignes à divers endroits de la boucle, mais je n'obtiens jamais le résultat escompté.
Au mieux je n'ai qu'une colonne au bon format,
Si une bonne âme charitable pouvait me montrer la voie,
Je vous remercie d'avance,
xorsankukai