Ajout ListView

Re : Ajout ListView

Bonsoir,
Pas simple à comprendre ton message !
Dans le module du userform2
A+
kjin

Re : Ajout ListView

Bonsoir Kjin et le forum

Merci ,c'est bien ce que je voulais et si je veux mettre une 2° listView avec une page supplementaire (Suite_1) suffit il de recopier la macro que tu m'as fait en changeant le nom de la ListView ( ListView3) et la nouvelle page Suite_1 et de la recopier dans UserForm2 au bout de la macro que tu as fait ?
Merci de ton aide

Re : Ajout ListView

Re,
Pourrais tu faire un effort dans la rédaction de tes messages.
Tu veux rajouter une listview où ?
Si c'est dans le formulaire2, oui tu peux adapter le même code et le mettre à la suite dans l'initialisation du formulaire.
A+
kjin

Re : Ajout ListView

Bonsoir Kjin et le forum

L' ajout de la ListView3 était bien dans l'Userform2 J'ai essayé et tout fonctionne correctement.
Encore merci pour ton aide et je te souhaite une bonne semaine .

Re : Ajout ListView

Bonjour à tous
Je croyais que je pouvais rechercher dans ma 2 ° ListView suivant Numeros et Lettres dans la Feuille "Suite".
C'est à dire quand je clique sur la ligne de ma ListView pour choisir une ligne bien precise je voudrais que ma 2° ListView fasse le meme choix .
dans le fichier joint je recupere toute la feuille "Suite"
J'ai essayé ceci mais cela ne fonctionne pas:

Private Sub UserForm_Initialize()
With ListView2
With .ColumnHeaders
.Add , , "Numeros", 40
.Add , , "Lettre", 40
.Add , , "Let_1", 50
.Add , , "Let_2", 50
.Add , , "Let_3", 50
.Add , , "Let_4", 50
End With
.View = 3
End With
With Sheets("Suite")
For i = 2 To .Range("A65000").End(xlUp).Row
If .Cells(i, 1) = CInt(ComboBox1) Then
x = ListView1.ListItems.Count + 1
ListView2.ListItems.Add , , .Cells(i, 1)
ListView2.ListItems(i - 1).ListSubItems.Add , , .Cells(i, 2)
ListView2.ListItems(i - 1).ListSubItems.Add , , .Cells(i, 3)
ListView2.ListItems(i - 1).ListSubItems.Add , , .Cells(i, 4)
ListView2.ListItems(i - 1).ListSubItems.Add , , .Cells(i, 5)
ListView2.ListItems(i - 1).ListSubItems.Add , , .Cells(i, 6)
Next
End With
End Sub


Je vous remercie de votre aide