Problème macro avec filtres automatiques

[Boubas1]

bonsoir,

Je fais des copier/coller des résultats de filtres automatiques dans ma macro dans mon onglet "résumé". Mais macro bug lorsque mes filtres automatiques ne renvoit rien et donc qu'il n'y a rien à copier dans mon onglet "résumé". Pouvez vous me dire comment régler ce problème ? Merci.

 

[Robert]

Re : Problème macro avec filtres automatiques

Bonsoir Boubas, bonsoir le forum,

Peut-ête en rajoutant avant la ligne :

Range("A14:G14").Select

une condition pour savoir si la ligne est masquée ou pas :

If Rows(14).Hidden = False then
        Range("A14:G14").Select
        'le reste du code...
        Selection.AutoFilter
End If

Non testé, à adapter au reste du code...

Juste un petit conseil. Évite les Select qui ralentissent considérablement l'exécution du code. Tu obtiens le même résultat en supprimant beaucoup de ces Select :

Range("A14:G58").ClearContents

équivaut à :

Range("A14:G58").Select
    Selection.ClearContents

Range("A14").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
[COLOR=navy]    False, Transpose:=False[/COLOR]

équivaut à :

Range("A14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

et de nombreux autres exemples dans ton code...

 

[Hippolite]

Re : Problème macro avec filtres automatiques

Bonsoir Boubas, bonsoir Robert,

Tu aurais pu rester sur l'ancien fil https://www.excel-downloads.com/thr...re-et-variable-dun-filtre-automatique.160476/, je t'aurais répondu plus vite.

Ci-joint ton fichier modifié, je n'ai toiletté que le début.

Evite d'utiliser les cellules fusionnées qui font mauvais ménage avec les macros, prends plutôt le format "centré sur plusieurs colonnes"