bonjour le forum
j'ai encoire besoin d'aide
dans un listview quand je fais une sélection par la date (saisie à la main 01/10/2009)j'obtiens un message d'erreur
erreur 1004 pas de cellules correspondantes
je précise que tous les autres selections fonctionnent
Private Sub CmdSlection_Click()
Dim Plage As Range
Flag = False
RmfiltreSelection.Show
If Flag = False Then Exit Sub
ListView1.ListItems.Clear
With Sheets("TRANSFERT INDIRECT")
.AutoFilterMode = False
.Range("A1").AutoFilter Field:=Col, Criteria1:=Replace(Sel, ",", ".")
With .AutoFilter.Range
'''''''''''''''''''''''''''''''''''''''''''''
à la suite du message cette lifgne se met en jaune
Set Plage = .Offset(1, 0).Resize(.Rows.Count - 1, 1).SpecialCells(xlCellTypeVisible)
''''''''''''''''''''''''''''''''''''''''''''''''
For Each Cel In Plage
With ListView1
.ListItems.Add , , Cel
For i = 1 To 45
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Offset(0, i)
Next
.ListItems(.ListItems.Count).ListSubItems.Add , , Cel.Row
End With
Next
End With
End With
End Sub
certe j'ai fait une recherche sur le forum je n'ai pas trouvé de solution
merci pour votre aide