[progamation]

Le
issorp
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #18405011
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
'-----------------------------------





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
Publicité
Poster une réponse
Anonyme