TcD

[Raziel abel]

Bonjour à tous,

j'ai un probléme :-(.

Alors, l'idée serait de faire TcD par rapport à la colonne Gr.Ach.

J'ai utilisé le filtre automatique et le filtre textuel pour enlever tout ce qui ne faisait pas parti du même groupe d'achat.Ensuite, ce que je souhaite faire avec un Tcd c'est d'alimenté directement les onglets à partir de la feuille principale.

Le probléme c'est qu'avec le Tcd je n'arrive pas à avoir une mise en forme lisible qui ressemblerait de prés ou de loin à celle que l'on peut voir dans la feuil1! :-(

Alors, j'ai essayé mais n'y suis pas arrivé, même en enlevant certaine colonne qui sont présent dans le tableau d'origine, car cela rendait illisible le TcD.


Quelqu'un a t'il une idée sur la mise en forme du TcD.

Merci d'avance.

 

[JCGL]

Re : TcD

Bonjour à tous,

Tu pourrais utiliser les pages de filtres de rapport accesible par Options / Options




A + à tous

 

[Raziel abel]

Re : TcD

Bonsoir JCGL,

merci d'avoir répondu aussi vite.


Je tiens à m'excuser de t'avoir fait perdre du temps car j'ai mal exposé mon probléme.


Je voulais garder la colonne APP, réference et/ou désignation et la colonne remarque.


Dés que je change une remarque, je souhaite que cette action soit visible dans le TcD.


Je sais qu'avec des chiffres c'est un peu plus simple. Mais là je suis depassé.


Encore merci JCGL.

Si tu y arrives, j'aimerais comprendre comment tu as fait.

Cordialement

 

[JCGL]

Re : TcD

Bonjour à tous,

Place ce bout de code dans le module de la feuille qui contient le TCD :

Option Explicit
Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

A chaque activation de cette feuille ton TCD sera mis à jour.

Un exemple de TCD sans "chiffre" en pièce jointe.

A + à tous

 

[Raziel abel]

Re : TcD

Merci JCGL, je vais essayer de voir ci c'est "lisible" avec 1000 lignes.


Bonne soirée!

 

[JCGL]

Re : TcD

Bonjour à tous,

Un essai sans TCD mais avec filtre élaboré.
Le filtre se fait sur G.

Option Explicit


Sub Ventilation()
    Dim Sh As Worksheet
    Dim Cel As Range
    Dim DerLig As Long
    With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
    End With
    For Each Sh In Sheets
        If Sh.Name <> "Data" Then
            Sh.Delete
        End If
    Next Sh
    With Sheets("Data")
        DerLig = .[A65000].End(xlUp).Row
        .Range("A1:R" & DerLig).Name = "Base"
        .[Z1] = .[G1]
        .Range("G1:G" & DerLig).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("Z1"), Unique:=True
        For Each Cel In .Range("Z2:Z" & .[Z65000].End(xlUp).Row)
            If Cel.Value <> "" Then
                .[Z2] = Cel.Value
                Sheets.Add
                ActiveSheet.Name = Cel.Value
                .Range("Base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range("Z1:Z2"), _
                                              CopyToRange:=Range("A1:R1"), Unique:=False
                ActiveSheet.Cells.EntireColumn.AutoFit
            End If
        Next Cel
        .Columns(26).Clear
        .Select
    End With
    Sheets("Data").[A1].Select
    With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
End Sub

A + à tous

 

[Raziel abel]

Re : TcD

Bonsoir JCGL.

Je suis resté bouche bée.


Je revient demain soir. Car avec ce que tu m'as proposé je pense qu'il nous reste la finition.


Bravo à toi. Je vais pas réussir à dormir.