Re : Listview à partir d'une selection
Bonjour
Formidable ! C'est exactement ce que je voulais. Merci infiniment à toi jp 14 !
J'ai encore quelques questions cependant:
comment faire pour que les infos de la listview soient au même format que dans le classeur ? Comment définir la largeur des colones de la listview ?
existe t-il une fonction pour que la largeur des colones s'adaptent à la taille de leur contenu?
et enfin: comment transférer les données de la ligne active dans le USF ?
Merci d'avance.
Pour modifier la largeur il faut indiquer une valeur
par exemple
.Add , , Sheets(nomfeuille).Cells(2, 1), 30 ' 30 largeur colonne
Pour formater les données, il faut modifier la macro
Private Sub Initlistview1()
For j = 2 To 10
data1 = Sheets(nomfeuille).Cells(i, j)
If j = 8 Then
data1 = Format(Sheets(nomfeuille).Cells(i, j), "## ## ## ## ##")
End If
.ListItems(.ListItems.Count).ListSubItems.Add , , data1
Next j
A tester, pour ma part j(ai une erreur de compilation.
Concernant le transfert la variable publique ligne1 contient le numéro de la ligne du nom sélectionné dans la listview.
JP