bonjour

j ai une liste en feuille "Liste" je veux la filtrer selon la condition de la cellule F01 de la feuille "Visio" et ensuite coller cette liste dans la feuille "Visio" en A15. je ne comprend pas ma macro a marché et elle ne fonctionne plus, quand je fait en pas a pas, je pense que c'est mon filtre qui ne fonctionne pas
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
25
26
27
28
29
Sub CreationDeLaListe()
 
'Blocage ecran
Application.ScreenUpdating = False
 
'Mise en majuscule du massif
    texte = Range("f1").Value
    Range("f1").Value = UCase(texte)
 
' 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("f1")
 
        'Selection du resultat de filtre
 
        Range("A2:AQ1900").Select
        'copie du filtre
        Selection.Copy
        'selection du lieu de collage
        Sheets("Liste").Range("A2:AQ1900").Copy Destination:=Sheets("Visio").Range("a15")
 
'retire le quadrillage
ActiveWindow.DisplayGridlines = False
'selection d'une cellule
Range("f1").Select
 
 
End Sub