Affichage dynamique

[Madjon6]

Bonjour,

J'ai une grande base de données concernant des applications, je souhaiterai qu'en choisissant une appli dans une liste déroulante ou formulaire sur un autre onglet, les données concernant l'appli en question s'affichent automatiquement sous forme de tableau comme dans la base mais juste pour l'appli sélèctionnée.

Un exmeple est joint pour une meilleure compréhension.

Merci pour votre aide.

 

[Cousinhub]

Re : Affichage dynamique

Bonjour,

avec un code VBA, dans l'évènement de feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    With Sheets("BASE")
        .Range("A1:D" & .[A65000].End(xlUp).Row).Name = "base"
        .Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
            "A1:A2"), CopyToRange:=Range("B18:D18"), Unique:=False
    End With
    Target.Select
End If
End Sub

Fichier :

 

[Madjon6]

Re : Affichage dynamique

Merci bhbh,

En fait les applis n'ont pas toujours le même nb de lignes donc il faudrait que la zone d'affichage soit plus grande (3000 lignes). j'ai éssayé d'agrandir dans le code la zone (B18:d18) à (A3:l3000) mais sans succès ?

Merci encore

 

[Cousinhub]

Re : Affichage dynamique

Re,

le nombre de lignes importe peu, ce code utilisant le filtre élaboré.

Ce qui importe, c'est que les en-têtes soient rigoureusement identiques (un copier/coller des titres est le mieux)

la zone d'extraction ne doit faire qu'une ligne

Si tu mets les titres en A1:L1, tu mets ceci pour la zone d'extraction :

.Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
            "A1:A2"), CopyToRange:=Range("A1:L1"), Unique:=False

Et au risque de me répéter, il faut que les titres soient exactement les mêmes (pas de cellules vides dans les titres de la base, ni dans les titres de la zone d'extraction)

 

[Madjon6]

Re : Affichage dynamique

Exactement identique à quoi ? puisque il y a une seule source, "la base" !! il ne peut pas y avoir une autre mise en page des en têtes non ? ou j'ai mal compris quelque chose ?

 

[Cousinhub]

Re : Affichage dynamique

Re-,

tu as remarqué, dans mon fichier exemple, que les titres en B18 : D18 étaient rigoureusement identiques aux titres B1 : D1 de la feuille 2?

C'est cela que je veux te dire....

 

[Madjon6]

Re : Affichage dynamique

Oui je vois mais en fait je me rends compte que l'exemple que j'ai donné ne reflète pas toute la complexité de la base.

Je peux t'envoyer la base en privé par mail ou tu n'as pas le temps ?

Merci encore

 

[Cousinhub]

Re : Affichage dynamique

Re-,

bien reçu ton fichier..

tu n'avais pas mis le code dans le bon endroit (tu avais mis dans l'évènement ThisWorkBook, il faut le mettre dans l'évènement de la feuille "Appli coût")

Ton titre en A1 n'était pas conforme (Applis au lieu d'appli en A1 de la feuille "Volume")

Il n'y avait pas de titres dans la feuille 1...

J'ai déplacé ta liste de validation...

Si tu rajoutes des applis, tu l'auras automatiquement dans la liste de validation de la cellule A2

le code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
    Application.ScreenUpdating = False
    With Sheets("Volume")
        .Range("appli").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("R1" _
            ), Unique:=True
        .Range("A1:P" & .[A65000].End(xlUp).Row).Name = "base"
        .Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
            "A1:A2"), CopyToRange:=Range("A4:P4"), Unique:=False
    End With
    With Cells
        .WrapText = False
        .VerticalAlignment = xlCenter
    End With
    Columns("B:P").EntireColumn.AutoFit
    Target.Select
End If
End Sub

je te renvoies ton fichier modifié

 

[Madjon6]

Re : Affichage dynamique

Ok mais je viens de l'ouvrir avec excel 2007 et je n'ai que les entêtes pas de données ???