bonsoir
dans la feuille "Liste" se produit une selection (ca marche) mais quand je fais le coller dans la feuille "Visio" ca ne marche plus, il auto copie ca propre feuille.
Merci
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 Sub CreationDeLaListe() ' selection de la cellule de la condition du filtre Sheets("Visio").Activate 'Action de filtrage Sheets("Liste").Range("$A$1:$Ah$18").AutoFilter Field:=1, Criteria1:=Range("f01") 'Selection du rezsultat de filtre Range("A2:AQ1900").Select 'copie du filtre Selection.Copy 'selection du lieu de collage Sheets("Visio").Select Range("a16").Select 'Collage ActiveSheet.Paste 'retire le quadrillage ActiveWindow.DisplayGridlines = False End Sub
Partager