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
Hervé
Bonjour J&B,
Tout dépand de ce que tu veux réaliser mais en récupérant le résultat du tri sur une autre feuille et travailler dessus peut être ?
Sub Recup() Dim Plage As Range Dim Feuille As Worksheet Set Feuille = Worksheets("Feuil1") With Feuille Set Plage = .Range(.[A2], .[A65536].End(xlUp)) Plage.AutoFilter 1, .[A1] .AutoFilter.Range.Copy Worksheets("Feuil2").[A1] Plage.AutoFilter End With 'Ici ton code pour traiter les résultats situés 'maintenant en feuille "Feuil2" '... Set Feuille = Nothing Set Plage = Nothing End Sub
Hervé.
"J&B" a écrit dans le message de news: 48e87e5d$0$13978$
Bonjour,
Je souhaite appliquer une macro mais uniquement sur les lignes filtrées. Est ce possible et Comment ? Merci pour votre aide
Bonjour J&B,
Tout dépand de ce que tu veux réaliser mais en récupérant le résultat du tri
sur une autre feuille et travailler dessus peut être ?
Sub Recup()
Dim Plage As Range
Dim Feuille As Worksheet
Set Feuille = Worksheets("Feuil1")
With Feuille
Set Plage = .Range(.[A2], .[A65536].End(xlUp))
Plage.AutoFilter 1, .[A1]
.AutoFilter.Range.Copy Worksheets("Feuil2").[A1]
Plage.AutoFilter
End With
'Ici ton code pour traiter les résultats situés
'maintenant en feuille "Feuil2"
'...
Set Feuille = Nothing
Set Plage = Nothing
End Sub
Hervé.
"J&B" <jb@free.fr> a écrit dans le message de news:
48e87e5d$0$13978$426a74cc@news.free.fr...
Bonjour,
Je souhaite appliquer une macro mais uniquement sur les lignes filtrées.
Est ce possible et Comment ?
Merci pour votre aide
Tout dépand de ce que tu veux réaliser mais en récupérant le résultat du tri sur une autre feuille et travailler dessus peut être ?
Sub Recup() Dim Plage As Range Dim Feuille As Worksheet Set Feuille = Worksheets("Feuil1") With Feuille Set Plage = .Range(.[A2], .[A65536].End(xlUp)) Plage.AutoFilter 1, .[A1] .AutoFilter.Range.Copy Worksheets("Feuil2").[A1] Plage.AutoFilter End With 'Ici ton code pour traiter les résultats situés 'maintenant en feuille "Feuil2" '... Set Feuille = Nothing Set Plage = Nothing End Sub
Hervé.
"J&B" a écrit dans le message de news: 48e87e5d$0$13978$
Bonjour,
Je souhaite appliquer une macro mais uniquement sur les lignes filtrées. Est ce possible et Comment ? Merci pour votre aide
FdeCourt
Salut,
Ne sachant ce que tu veux faire, peut être en utilisant la propriété hidden:
If Rows(2).Hidden = False Then MsgBox 1
Cordialement,
F
Salut,
Ne sachant ce que tu veux faire, peut être en utilisant la propriété
hidden: