nat54
XLDnaute Barbatruc
Bonjour,
Voilà je copie une partie d'un autre fichier, je souhaite coller cette sélection
2 cellules à droite de la cellule où est inscrit ABScollage en colonne A.
Comment préciser cela en VBA ?
Merci d'avance de votre aide,
Nat
Voilà je copie une partie d'un autre fichier, je souhaite coller cette sélection
2 cellules à droite de la cellule où est inscrit ABScollage en colonne A.
Comment préciser cela en VBA ?
Code:
Sub Construire_fiches()
FinTableauMapping = Sheets("Mapping").Range("A" & "65535").End(xlUp).Row
For i = 2 To FinTableauMapping
CodePole = Workbooks("Fiches_synthétiques_DRH_par_pôle.xls").Sheets("Mapping").Range("a" & i).Value
Windows("Abs_longues_prev_pour_fiche_synth.xls").Activate
Selection.AutoFilter Field:=1, Criteria1:=CodePole 'field 1 = colonne A, pôle XXXX
Range("c2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Fiches_synthétiques_DRH_par_pôle.xls").Activate
????????????????
Next
End Sub
Merci d'avance de votre aide,
Nat