Extraction données avec critères et extract sur feuil active
Fermé
57Mike57
Messages postés
2
Date d'inscription
mardi 27 janvier 2015
Statut
Membre
Dernière intervention
27 janvier 2015
-
27 janv. 2015 à 14:46
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 27 janv. 2015 à 19:03
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 27 janv. 2015 à 19:03
A voir également:
- Extraction données avec critères et extract sur feuil active
- Extraction video youtube - Guide
- Index equiv 2 critères - Forum Excel
- Extraction mp3 youtube - Guide
- Active partition manager - Télécharger - Stockage
- Pass telecom active - Forum Téléviseurs
3 réponses
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
27 janv. 2015 à 17:11
27 janv. 2015 à 17:11
Sub Extraction()
'
' Extraction Macro
Dim mavariable As String
Sheets("Base4").Select
mavariable = Range("D4").Value
Range("Q15").Select
Range("A8:R1523").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets(mavariable).Range("F1:H2"), CopyToRange:=Range("X8:AF9"), Unique _
:=False
Range("X9").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Cut
Sheets(mavariable).Select
Range("E24").Select
ActiveSheet.Paste
Range("E24").Select
End Sub
57Mike57
Messages postés
2
Date d'inscription
mardi 27 janvier 2015
Statut
Membre
Dernière intervention
27 janvier 2015
27 janv. 2015 à 18:51
27 janv. 2015 à 18:51
Merci pour ta réponse mais elle ne fonctionne pas
problème :
Range("A8:R1523").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets(mavariable).Range("F1:H2"), CopyToRange:=Range("X8:AF9"), Unique _
:=False
problème :
Range("A8:R1523").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets(mavariable).Range("F1:H2"), CopyToRange:=Range("X8:AF9"), Unique _
:=False
cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
27 janv. 2015 à 19:03
27 janv. 2015 à 19:03
Mets un MsgBox comme ceci pour voir si cela correspond exactement au nom de ta feuille:
Chez moi ce code fonctionne très bien:
Le reste du code je ne peux pas le vérifier. Fonctionnait-il avec le nom en dur?
mavariable = Range("D4").Value
MsgBox mavariable
Chez moi ce code fonctionne très bien:
Dim var As String
var = Range("A1").Value 'Feuil2 en A1
Sheets(var).Select
Le reste du code je ne peux pas le vérifier. Fonctionnait-il avec le nom en dur?
27 janv. 2015 à 17:12