Afficher resultat autofilter dans listview

M

MichelXld

XLDnaute Barbatruc

• 6 Novembre 2005

• #2

bonsoir

ci joint un exemple qui affiche uniquement les données visibles de la Feuil2.


Private Sub UserForm_Initialize()
Dim Cell As Range
Dim X As Byte, m As Byte
Dim k As Integer

k = Sheets('feuil2').Range('A65536').End(xlUp).Row

With ListView1
With .ColumnHeaders
.Clear
.Add , , 'Nom', 70
.Add , , 'Prenom', 70
.Add , , 'Adresse', 100
.Add , , 'C.P.', 40
.Add , , 'Ville', 80
.Add , , 'Telephone', 80
.Add , , 'portable', 80
.Add , , 'fax', 80
.Add , , 'mail', 70
.Add , , 'Naissance', 60
End With

For Each Cell In Sheets('Feuil2').Range('A2:A' & k)

If Sheets('feuil2').Rows(Cell.Row).Hidden = False Then
X = X + 1
.ListItems.Add , , Cell
For m = 1 To 9
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, m)
Next m
End If

Next
End With
End Sub



bonne soiree
MichelXld

Message édité par: michelxld, à: 06/11/2005 22:18

 

Vote positif 0 Vote négatif

B

Baboune

Guest

• 7 Novembre 2005

• #3

Bonsoir MichelXld et le Forum,

Je te remercie beaucoup pour ce bout de code qui fonctionne tres bien.

Je peux poser une autre question sur les ListView ?

Comment récupérer les éléments d'une ligne de la ListView lorsqu'elle est sélectionnée ?

Cordialement.
Baboune

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 7 Novembre 2005

• #4

Salut Baboune
bonsoir Michel

ma modeste contribution
si cela peut aider
il y a d'autres façons

bonne fin de Soirée [file name=ListView.zip size=15435]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ListView.zip[/file]

Message édité par: Chti160, à: 07/11/2005 22:56

 

Pièces jointes

• ListView.zip

  21.6 KB · Affichages: 283
• ListView.zip

  21.6 KB · Affichages: 271
• ListView.zip

  21.6 KB · Affichages: 278

Vote positif 0 Vote négatif

B

Baboune

Guest

• 8 Novembre 2005

• #5

Bonsoir le forum,

Merci ChTi160, ton code m'a aidé.
Il n'y a pas de modeste contribution, chaque aide, même minime, peut débloquer un gros programme.

Bonne soirée.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 8 Novembre 2005

• #6

re
Ok
bonne Soirée

 

Vote positif 0 Vote négatif