Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?

Elnono51 · Mercredi à 23:51

Bonjour à tous,
J'ai quelques notion Excel, certaines acquises grâce à vos conseils mais là, je sèche et je ne trouve rien sur mon sujet.
Je souhaite diviser une feuille Excel en 2 parties complètement indépendantes mais je ne sais pas si c'est faisable.
Je voudrais par exemple trier sur la partie droite de la feuille sans que les lignes de la parties gauches ne bougent.
J'ai essayé le fractionnement et la création de tableau qui ne conviennent pas.
Je vous joint une petit fichier que j'ai créé spécifiquement pour clarifier ma demande.
Dans ce fichier, lorsque je trie dans la colonne H les lignes correspondantes à Jacques, je voudrai que le tableau de droite ne disparaisse pas.
J'espère que vous pourrez m'aider et me proposer une ou plusieurs solutions. Je vous en remercie par avance
Cordialement
El Nono

job75 · Hier à 00:16

Bonsoir Elnono51,

Bah j'ai ajouté un test pour éviter de créer une fenêtre s'il y en a plus d'une :

VB:

If Windows.Count > 1 Then Exit Sub

Mais il faut surtout ne pas faire n'importe quoi !

Bonne nuit.

Phil69970 · Jeudi à 04:48

Bonjour @Elnono51

Elnono51 à dit:
Je voudrais par exemple trier sur la partie droite de la feuille sans que les lignes de la parties gauches ne bougent.

Le tableau de droite se trie bien sans toucher le tableau de gauche

Merci de ton retour

TooFatBoy · Jeudi à 08:40

Bonjour,

Phil69970 à dit:
Le tableau de droite se trie bien sans toucher le tableau de gauche

En fait la question ne porte pas sur un tri mais sur un filtrage :

Elnono51 à dit:
Dans ce fichier, lorsque je trie dans la colonne H les lignes correspondant à Jacques, je voudrai que le tableau de droite ne disparaisse pas.

Elnono51 · Jeudi à 11:04

Bonjour, effectivement j'ai utilisé le mauvais mot (désolé). Ma question concerne bien le filtrage. Si je filtre le tableau de droite pour ne faire apparaître que les lignes concernant Jacques, seules les entêtes de colonnes du tableau de gauche restent visibles. Je voudrais que tout le tableau de gauche reste apparent.
Merci pour votre aide
Cordialement
El Nono

Phil69970 · Jeudi à 11:04

Bonjour à tous

TFB tu as surement raison mais il faut alors que le demandeur pose la bonne question car les mots ont un sens.

Et pour répondre à la question mal posé non c'est impossible.🙂🙂

Elnono51 · Jeudi à 12:29

Merci de vos réponses pour ma question mal posée 😊 Bon je vais chercher une autre solution d'affichage

Phil69970 · Jeudi à 12:52

@Elnono51

Autrement une solution serait d'avoir tes TS (tableaux structurés) dans une feuille et que dans une autre feuille tu rapatries les valeurs filtrés d'un ou plusieurs tableaux filtrés.
Donc ta feuille "filtre" contiendrait juste le résultat de tes valeurs filtrés (comme une image en quelque sorte) sans toucher tes TS qui resteront sur la feuille contenant tous tes TS

Elnono51 · Jeudi à 15:54

Merci Phil, j'explorai justement la possibilité de 2 feuilles affichées en même temps car je veux pouvoir regarder le tableau de droite filtré et celui de gauche non filtré en même temps

job75 · Jeudi à 19:23

Bonsoir Elnono51, Phil69970, TooFatBoy,

Si je comprends bien, tout ce que vous voulez c'est que le tableau de gauche apparaisse toujours non filtré.

Alors on peut créer son image non filtrée, le code de la feuille :

VB:

Private Sub Worksheet_Calculate()
On Error Resume Next
Shapes("MonImage").Visible = [L1] < [Tableau8].Rows.Count
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, n
Application.ScreenUpdating = False
On Error Resume Next
Shapes("MonImage").Delete
On Error GoTo 0
Me.Copy 'nouveau document auxiliaire
With ActiveSheet
    .ListObjects(1).AutoFilter.ShowAllData
    .ListObjects(2).AutoFilter.ShowAllData
    With .ListObjects(1).Range
        For Each c In .Cells
            c.Interior.Color = c.DisplayFormat.Interior.Color 'sinon les cellules incolores sont transparentes
        Next c
        .CopyPicture 'copie l'image
    End With
    Me.Paste 'colle l'image
    .Parent.Close False 'ferme le document auxiliaire
End With
With Shapes(Shapes.Count) 'la Shape créée
    .Name = "MonImage"
    ActiveCell.Activate
    .Top = ListObjects(1).Range.Top
    .Left = ListObjects(1).Range.Left
End With
Worksheet_Calculate
End Sub

L'image est créée à l'ouverture du fichier, dans ThisWorkbook :

VB:

Private Sub Workbook_Open()
With Feuil1.ListObjects(1): .Range(1) = .Range(1): End With 'lance la macro Worksheet_Change
End Sub

La macro Worksheet_Change recrée l'image quand une cellule quelconque est modifiée.

Notez que le filtrage déclenche l'évènement Calculate grâce à la formule en L1 =SOUS.TOTAL(3;Tableau8[Qui l''a fait])

Tout ceci est bien laborieux, j'ai hésité à donner cette solution.

A+

Elnono51 · Vendredi à 11:28

job75 à dit:
Bonsoir Elnono51, Phil69970, TooFatBoy,

Si je comprends bien, tout ce que vous voulez c'est que le tableau de gauche apparaisse toujours non filtré.

Alors on peut créer son image non filtrée, le code de la feuille :

VB:

Private Sub Worksheet_Calculate() On Error Resume Next Shapes("MonImage").Visible = [L1] < [Tableau8].Rows.Count End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, n Application.ScreenUpdating = False On Error Resume Next Shapes("MonImage").Delete On Error GoTo 0 Me.Copy 'nouveau document auxiliaire With ActiveSheet .ListObjects(1).AutoFilter.ShowAllData .ListObjects(2).AutoFilter.ShowAllData With .ListObjects(1).Range For Each c In .Cells c.Interior.Color = c.DisplayFormat.Interior.Color 'sinon les cellules incolores sont transparentes Next c .CopyPicture 'copie l'image End With Me.Paste 'colle l'image .Parent.Close False 'ferme le document auxiliaire End With With Shapes(Shapes.Count) 'la Shape créée .Name = "MonImage" ActiveCell.Activate .Top = ListObjects(1).Range.Top .Left = ListObjects(1).Range.Left End With Worksheet_Calculate End Sub

L'image est créée à l'ouverture du fichier, dans ThisWorkbook :

VB:

Private Sub Workbook_Open() With Feuil1.ListObjects(1): .Range(1) = .Range(1): End With 'lance la macro Worksheet_Change End Sub

La macro Worksheet_Change recrée l'image quand une cellule quelconque est modifiée.

Notez que le filtrage déclenche l'évènement Calculate grâce à la formule en L1 =SOUS.TOTAL(3;Tableau8[Qui l''a fait])

Tout ceci est bien laborieux, j'ai hésité à donner cette solution.

A+

Bonjour Job75 et merci pour votre retour
J'ai cependant des problèmes de bugs sur la fonction Copypicture. Cela ne fonctionne pas toujours. Quand je saisi une nouvelle ligne dans le tableau de droite, quand je change de nom le fichier, à priori. Je comprend que la solution n'est pas des meilleure. De mon côté, je pensais partir sur une macro (que j'aurai enregistré car je ne suis pas trop calé pour les écrire directement) qui créerai une feuille avec le tableau de droite et qui organiserait le classeur pour afficher à droite la feuille créée que je pourrai filtrer et à gauche le tableau récap qui ne doit pas être filtré.
Après lecture, appui sur un bouton ou autre, le classeur reviendrait en affichage de la page initiale mais là aussi, c'est un peu une solution "alambiquée"!
Encore merci A+

job75 · Vendredi à 12:55

Bonjour Elnono51, le forum,

Elnono51 à dit:
J'ai cependant des problèmes de bugs sur la fonction Copypicture. Cela ne fonctionne pas toujours.

Je ne peux pas vous répondre car je n'ai pas de problème chez moi sur Excel 2019.

A+

Elnono51 · Vendredi à 15:14

job75 à dit:
Bonjour Elnono51, le forum,

Je ne peux pas vous répondre car je n'ai pas de problème chez moi sur Excel 2019.

A+

Merci Job75,
Effectivement, j'ai complètement oublié de dire que j'utilisais Excel 365, désolé. Même quand vous ajoutez une ligne au tableau de droite, cela fonctionne ?

gosselien · Vendredi à 17:41

Bonjour,
Avec un filtre élaboré éventuellement ?

P.

Edit: pas fait attention à "365" j'ignore si filtre élaboré existe dans cette version
edit2: avec 365 auquel j'ai accès mais que je n'utilise jamais

job75 · Vendredi à 19:57

Elnono51 à dit:
Même quand vous ajoutez une ligne au tableau de droite, cela fonctionne ?

Oui sans problème, ça déclenche la macro Worksheet_Change.

gosselien · Vendredi à 20:04

Et vous avez regardé la réponse avec la fonction filtre() ( pour 365 ) ?

Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?

Elnono51

XLDnaute Nouveau

Pièces jointes

job75

Phil69970

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Elnono51

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Elnono51

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Elnono51

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Elnono51

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

Elnono51

XLDnaute Nouveau

gosselien

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

gosselien

XLDnaute Barbatruc

Discussions similaires

Microsoft 365 Séparer une feuille Excel en deux partie complètement indépendantes ?

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency