Bonjour à tous et avant toute chose je vous souhaite une bonne année.

Voilà, je suis débutant en vba et je souhaite obtenir la chose suivante :

J'ai une liste avec entête de colonne dans une feuille de classeur.
Je souhaite filtrer cette liste via une macro et ensuite récupérer LE RESULAT , prendre la valeur d'une cellule de ce résultat et la coller dans une cellule appartenant à une autre feuille.

Opération que je pensais réaliser simplement ... Mais en fait je ne m'en sors pas ! Alors si quelqu'un peut éclairer ma lanterne ca serait super.

Donc j'ai fait la chose suivante :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
 
i,j as integer
 
i = 2006 'pour test i sera une valeur issue d'une cellule
j= 53 'pour test j sera une valeur issue d'une cellule
 
Sheets("mafeuille1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$I$3888").AutoFilter Field:=1, Criteria1:= i
ActiveSheet.Range("$A$1:$I$3888").AutoFilter Field:=3, Criteria1:= j
 
'Range("B1").Select
 
Dim MaPlage As Range
Set MaPlage = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
'Set MaPlage = MaPlage.Offset(1, 0).Resize((MaPlage.Rows.Count), MaPlage.Columns.Count)
 
MaPlage.Copy
 
Dim Destination As Range
Set Destination = Sheets("analyse").Range("$F$9")  
 
MaPlage.Copy Destination
 
'la copie prend l'entête de la colonne. 
'impossible de prendre uniquement la valeur d'une colonne en particulier
'si je fait afficher une colonne ca correspond a une valeur n'appartenant pas à la plage de mes résultats après filtre.
Merci d'avance pour votre aide.

++
Fred