[MichelXld]

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