[progamation]

Copie les données de la feuil1 vers la feuille 2
si en A:E il y a un x

'-----------------------------------
Sub test()
Dim Rg As Range, DerLig As Long, Adr As String
Dim Trouve As Range, C As Range, F As String
With Feuil1
DerLig = .Range("A:E").Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
Set Rg = .Range("A1:E" & DerLig)
End With
Application.ScreenUpdating = False
F = ActiveSheet.Name
With Rg
.Parent.Select
Set Trouve = .Find("x", , xlValues, xlWhole, xlByRows)
If Not Trouve Is Nothing Then
Adr = Trouve.Address
Do
With Feuil2
If Application.CountA(.Range("1:1")) = 0 Then
Set C = .Range("a1")
Else
Set C = .Range("A" & .Range("A65536").End(xlUp)(2).Row)
End If
End With
Trouve.EntireRow.Copy C
Set Trouve = .FindNext(Trouve)
Loop Until Trouve Is Nothing Or Trouve.Address = Adr
End If
End With
Sheets(F).Activate
End Sub
'-----------------------------------




<issorp@gmail.com> a écrit dans le message de groupe de discussion :
3d9da841-e362-46e2-806a-641b07e1dece@z28g2000prd.googlegroups.com...
Bonjour,

Je cherche une macro qui

lise les feuilles d'un classeur
si dans les 5 premières cellules d'une ligne d'une feuille il y a un
"X"
alors on copie la ligne entière dans une feuille récapitulative.

voila
je suis clair ?
merci à tous de votre aide
!ss0rp