lise les feuilles d'un classeur
si dans les 5 premi=E8res cellules d'une ligne d'une feuille il y a un
"X"
alors on copie la ligne enti=E8re dans une feuille r=E9capitulative.
voila
je suis clair ?
merci =E0 tous de votre aide
!ss0rp
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
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 '-----------------------------------
a écrit dans le message de groupe de discussion :
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
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
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 '-----------------------------------
a écrit dans le message de groupe de discussion :
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