Macro copier lignes restantes apres filtre
Joungo
-
Joungo -
Joungo -
Bonjour,
Je cherche une solution à ma macro
J'ai des onglets possédant des tableaux de commande. Je veux créeer une macro qui filtre ces tableaux (selon un critère) copie colle en valeur les lignes visibles dans un autre onglet.
Mais ces tableaux doivent dynamique
voici ma macro que j'ai crée
Sheets("V").Select
Range("D68:T93").Select 'comment la rendre dynamique
Range("D68:T93").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("Criteria"), Unique:=False
Sheets("V").Range("D69:S" & Range("D65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
Sheets("Load").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("V").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Merci de votre aide
Je cherche une solution à ma macro
J'ai des onglets possédant des tableaux de commande. Je veux créeer une macro qui filtre ces tableaux (selon un critère) copie colle en valeur les lignes visibles dans un autre onglet.
Mais ces tableaux doivent dynamique
voici ma macro que j'ai crée
Sheets("V").Select
Range("D68:T93").Select 'comment la rendre dynamique
Range("D68:T93").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("Criteria"), Unique:=False
Sheets("V").Range("D69:S" & Range("D65536").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Select
Sheets("Load").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("V").Select
Application.CutCopyMode = False
ActiveSheet.ShowAllData
Merci de votre aide
A voir également:
- Macro copier lignes restantes apres filtre
- Photo filtre 7 gratuit - Télécharger - Retouche d'image
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
- Filtre whatsapp - Accueil - Messagerie instantanée