Sur Feuil2 les visibles Sur feuil3 les non visibles

[CG2000]

Bonsoir le Forum,

Grace aux conseils et cours de ce forum, je commence mes premières macros.
Mais je bloque encore pas mal.
Dans le fichier exemple joint je cherche à obtenir le résultat suivant :

Sur la feuil1 presence d'une base de données dont le contenue peut être variable, et les noms de colonnes ont tous un filtre automatique.

Ma recherche est la suivante : si j'actionne un filtre automatique pour obtenir une sélection , que tous les visibles soient transférés en synthese sur la feuil2 et que les non visibles soit reporter en synthese sur la feuil3 et dans les deux cas les titres de mes colonnes.

La plus facile exporter les visibles semble être acquis (voir exemple), par contre pour les non visibles ça bloque.

Merci(s) par avance de vos conseils.

CG2000

 

[Staple1600]

Re : Sur Feuil2 les visibles Sur feuil3 les non visibles

Bonsoir

Une possibilité

Sub a() [COLOR=Green]'visible[/COLOR]
Dim visi As Range, ble As Range
[A1].AutoFilter Field:=1, Criteria1:="10"
Set ble = [_FilterDatabase]
Set visi = ble.Offset(1, 0).Resize(ble.Rows.Count - 1).SpecialCells(12)
visi.Copy Sheets("VISIBLE").[A1]
Feuil1.AutoFilterMode = False
End Sub

Sub b() [COLOR=Green]'invisible[/COLOR]
Dim invisi As Range, ble As Range
[A1].AutoFilter Field:=1, Criteria1:="<>10", Operator:=xlAnd
Set ble = [_FilterDatabase]
Set invisi = ble.Offset(1, 0).Resize(ble.Rows.Count - 1).SpecialCells(12)
invisi.Copy Sheets("NON VISIBLE").[A1]
Feuil1.AutoFilterMode = False
End Sub

 

[CG2000]

Re : Sur Feuil2 les visibles Sur feuil3 les non visibles

Bonsoir STAPLE1600,

Et merci pour la solution, elle est parfaite pour les filtrés "10", mais ne fonctionne plus pour d'autres sélections autre que les "10" (sub a).

CG2000

 

[Staple1600]

Re : Sur Feuil2 les visibles Sur feuil3 les non visibles

Re

Pour cela il faut lancer la macro b

 

[CG2000]

Re : Sur Feuil2 les visibles Sur feuil3 les non visibles

Rebonsoir Staple1600,

Excuse-moi, je pense m'être mal expliqué.
Esaye de filtrer aute chose que 10, actionne la macro a puis la b.
Je n'arrive pas à fitrer autre chose que les 10 en feuil2 et le reste en feuil3.

Ma recherche est : si j'actionne un filtre automatique (choix non figé, il est variable selon de contenu de la base) pour obtenir une sélection , que tous les visibles soient transférés en synthese sur la feuil2 et que les non visibles soit reporter en synthese sur la feuil3 et dans les deux cas les titres de mes colonnes.

CG2000

 

[Staple1600]

Re : Sur Feuil2 les visibles Sur feuil3 les non visibles

Re


Essayes ceci pour les invisibles

Sub b()
Dim i As Long
Application.Calculation = -4135
    For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        If Cells(i, 1).EntireRow.Hidden = True Then Cells(i, 1).EntireRow.Copy Feuil3.Cells(i, 1)
    Next i
    Feuil3.Cells.EntireRow.Hidden = False
    Feuil3.Columns("A:A").SpecialCells(4).EntireRow.Delete
Application.Calculation = -4105
End Sub

 

[CG2000]

Re : Sur Feuil2 les visibles Sur feuil3 les non visibles

Merci bien STAPLE1600

Le repport des non vides est parfait et quel que soit le filtre en feuil1.
Merci infiniment. Super !

Bonne soirée à tous.

CG2000