encore besoin aide

Bonjour Sylvain,

Essaie ceci : à copier dans un module standard et tu doit adapter le nom des feuilles selon ton application.

Feuil1 = Feuille des données
Feuil2 = Feuille où sont copiées les données

'------------------------------
Sub Filtre_Copier_Effacer()

Dim Rg As Range, Rg1 As Range, Dest As Range
Dim LaDate As Long, LeFormat As String
LaDate = Date 'aujourd'hui

With Worksheets("Feuil2")
Set Dest = .Range("A" & .Range("a65536").End(xlUp)(2).Row)
End With
Application.ScreenUpdating = False
With Worksheets("Feuil1")
Set Rg = .Range("P4:P" & .Range("P65536").End(xlUp).Row)
LeFormat = Rg(2).NumberFormat
Rg.NumberFormat = "General"
Rg.AutoFilter Field:=1, Criteria1:=LaDate
Set Rg1 = .Range(Rg.Address).Offset(, -15).Resize(Rg.Rows.Count - 1, 15) _
.SpecialCells(xlCellTypeVisible)
Rg1.Copy Dest
Set Rg1 = .Range(Rg.Address).Offset(, -7).Resize(Rg.Rows.Count - 1, 3) _
.SpecialCells(xlCellTypeVisible)
Rg1.ClearContents
Set Rg1 = .Range(Rg.Address).Offset(, -3).Resize(Rg.Rows.Count - 1, 2) _
.SpecialCells(xlCellTypeVisible)
Rg1.ClearContents
Rg.AutoFilter
Rg.NumberFormat = LeFormat
End With
Set Rg = Nothing: Set Rg1 = Nothing: Set Dest = Nothing

End Sub
'-----------------------------


Salutations!




"Srogeau" <srogeau@aol.com> a écrit dans le message de news:20030630182611.08691.00001170@mb-m15.aol.com...
bonsoir a tous
qq peut il m'aider: dans 1 feuill de saisie je voudrais faire une recherche
dans la colonne 'P' a partir de P4 qui contient des dates rentrees manuellement
si la cellule =aujourdhui() je selectionne toutes les valeurs de la ligne
correspondante (de A a O )et je les transfers vers feuille2 apres la derniere
ligne enregistrer;
ensuite j'efface le contenu des cellules I,J,K,M,etN sur la feuill1 de la ligne
que je viens de transferer afin d'y saisir de nlles donnees
certaines de ces donnees sont inscrites avec 'outils/validation/liste
merci de votre aide
sylvain