Discussion :

[sylvain5923]

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?

[helas]

Bonsoir,
pourquoi ne pas ecrire directement

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
 
 Dim xlw1 As WOrkbook, xlw2 As WorkBook
 
 Set xlw1 = Workbooks("Synthèse 2010.xls")
 Set xlw2 = WorkBooks("IM_n°xxxx - vierge 2010.xls")
 
 xlw2.Sheets("delai").Range("G16:G209") = xlw1.Sheets("Contact").Range("A3:A193")
 
  xlw1.Range("D2").AutoFilter Field:=4, Criteria1:="1"
  xlw2.Sheets("delai").Range("E23:E53") = xlw1.Sheets("Contact").Range("A3:A193")
  xlw1.Sheets("Contact").AutoFilterMode = False
 
 xlw1.Range("E2").AutoFilter Field:=5, Criteria1:="1"
 xlw2.Sheets("delai").Range("C23:C216") = xlw1.Sheets("Contact").Range("A3:A193")
 xlw1.Sheets("Contact").AutoFilterMode = False
 
 ......

[sylvain5923]

Bonjour Hélas,

je te remercie de ta réponse, mes filtres fonctionnent, le seul pb est lorsque je veux prendre mes noms filtrés il me sélectionne mêmes les champs non filtrés.

quelqu'un aurait-il une idée?