Discussion :

[dodo28]

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

[Alain_95]

Bonjour,

En réalisant deux petites modifications à ton code, il marche nickel chez moi (Excel 2000) :

1/ Activer la feuille "Visio" avant la mise en majuscule (tu peux ne pas être sur cette feuille au lancement, et donc, la mise en majuscule ne sert à rien, ce qui peux fausser le résultat de ton filtre) ;
2/ En fin de procédure, réactiver la mise de l'écran : "Application.ScreenUpdating = True".

De plus, je pense que tu peux alléger ton code en supprimant des lignes qui me semble inutile :

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
Sub CreationDeLaListe()
 
'Blocage ecran
Application.ScreenUpdating = False
 
'Application du filtrage : La mise en majuscule est faite dans l'activation du filtre
    Sheets("Visio").Activate
    Sheets("Liste").Range("$A$1:$Ah$18").AutoFilter Field:=1, Criteria1:=UCase(Range("f1"))
 
'Recopie du résultat
    Sheets("Liste").Range("A2:AQ1900").Copy Destination:=Sheets("Visio").Range("a15")
 
'Retire le quadrillage
    ActiveWindow.DisplayGridlines = False
 
'selection d'une cellule
    Range("f1").Select
 
'Dé-Blocage ecran
Application.ScreenUpdating = True
 
End Sub

Une dernière petite chose : N'ayant pas tes données sous les yeux, j'ai du mal à appréhender la différence de sélection entre le filtre (colonnes A à AH) et la recopie des données (colonnes A à AQ) ?

Espérant t'avoir aidé.
Bonne journée

[dodo28]

Merci pour ces corrections.
Ca marche
mais le collage du résultat du filtre me rammene des lignes vides a la fin et c'est assez gênant pour créer une somme automatique (par exemple). Y a t il une solution pour éviter cela?

[LeForestier]

mais le collage du résultat du filtre me rammene des lignes vides a la fin et c'est assez gênant pour créer une somme automatique (par exemple). Y a t il une solution pour éviter cela?

je n'ai pas tester mais si mes souvenirs sont bon ça devrait fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Sheets("Liste").Range("$A$1:$Ah" & Range("A65536).End _
(xlUp).Row).Copy

Mais si tu fait cette macros pour pouvoir calculer des sommes pour les lignes visibles ce n'est pas nécessaire, tu peu employer la fonction SOUS.TOTAL qui ne fait la somme que des lignes "visibles"
A+

[dodo28]

Merci mais ça ne marche pas erreur de syntaxe.
Pour comprendre j'ai mis le fichier en pièce jointe dans ma feuille liste il y a aura en réalité 1900 lignes.
Et l'idéal c'est que cette macro s'exécute en validant la cellule F1 de "Visio" et installe automatiquement la ligne de calcul automatique à la fin du tableau après l'import de la sélection.

Précision : de plus après l'import d'une liste plus courte que la précédente, les lignes supplémentaires de la sélection précédente restent. Pour mieux m'expliquer, quand je veux refaire un import je veux éliminer le précédent et recommencer à 0 avec l'apparition d'une somme automatique à la base du tableau.

Merci pour votre aide