Bonsoir j'essaye de filtrer une colonne enregistrer mes noms une variable (variant), ensuite effacer le filtre et recommencer en filtrant la colonne à coté puis remettre les noms dans une autre variable puis refaire encore une fois.
Par contre je n'arrive pas à avoir le résultat que je désire.
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
 
 'Range le personnel dans des variables
    Workbooks("Synthèse 2010.xls").Activate
    Sheets("Contact").Activate
    tout_le_monde = Sheets("Contact").Range("A3:A193").Value
 
    'Personnel du GATM
    Range("D2").AutoFilter Field:=4, Criteria1:="1"
    gatm = Sheets("Contact").Range("A3:A193").Value
    Sheets("Contact").AutoFilterMode = False
 
    'Personnel d'équipe
    Range("E2").AutoFilter Field:=5, Criteria1:="1"
    maintenance = Sheets("Contact").Range("A3:A193").Value
    Sheets("Contact").AutoFilterMode = False
 
    'CUET
    Range("F2").AutoFilter Field:=6, Criteria1:="1"
    cuet = Sheets("Contact").Range("A3:A193").Value
    Sheets("Contact").AutoFilterMode = False
 
    'Range le personnel dans les colonnes correspondantes
    Workbooks("IM_n°xxxx - vierge 2010.xls").Activate
    Sheets("delai").Range("G16:G209").Value = tout_le_monde
    Sheets("delai").Range("E23:E53").Value = gatm
    Sheets("delai").Range("C23:C216").Value = maintenance
    Sheets("delai").Range("I23:I43").Value = cuet
Quelqu'un aurait-il une réponse à mon pb?