Récupération de données d'un onglet sur un autre

philmaure

XLDnaute Impliqué
Bonjour,

Dans le fichier joint j'ai en A1 une liste de choix (Départements)

A partir de la valeur de cette cellule je souhaiterai récupérer toutes les valeurs des colonnes B, C et D à partir de l'onglet données.

En compléments d'info je ne sais pas par avance le nombre de lignes qui sont à rapatrier selon le département(le fichier joint est un exemple servant au test)

Il me semble qu'il faudrait une formule matricielle que je ne maitrise pas.

Merci pour votre aide

Cdlt
Philmaure
 

Pièces jointes

  • Test2.xlsx
    10.4 KB · Affichages: 28

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

Pourquoi ne pas utiliser un TCD?
01PHILMAUR.jpg
 

philmaure

XLDnaute Impliqué
Bonsoir,

Merci pour la réponse. Malheureusement cela ne répond pas à mon besoin.
Ma demande est faite dans le cadre d'une construction d'un tableau de bord récupérant pas mal d'info de sources différentes. Le fichier joint est un exemple de ce dont j'ai besoin mais est bien entendu très simplifié.

Cdlt
Philmaure
 

philmaure

XLDnaute Impliqué
Re,

On fait le choix du département en A1, le but est alors de rapatrier l'ensemble des valeurs correspondant au département séléctionné.

Exemples je sélectionne : Côtes-d'Armor ==> je rapatrie 3 valeurs
: Cher =========> je rapatrie 8 valeurs

Cdlt
Philmaure
 

philmaure

XLDnaute Impliqué
Re,

Je ne veux pas actualiser le TCD en manuel mais en auto.

Dans mo tableau de bord, je sélectionne un département et j'ai une multitude de données qui se mettent à jour d'après cette selection. Le but serait que le TCD en fasse de même.

Sur internt je viens de trouvé ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Dim Sh As Worksheet, Pt As PivotTable
For Each Sh In Worksheets For Each Pt In Sh.PivotTables
With Pt.PivotFields("Noms")
.ClearAllFilters
.CurrentPage = Target.Value
End With
Next Pt
Next Sh

Cdlt
Philmaure
 

philmaure

XLDnaute Impliqué
Re,

Opération réussi en adaptant le code trouve sur Internet.
Pour mon tableau de bord je récupére la valeur à partir d'une autre cellule (pas de besoin de la liste de choix)

Merci pour cet échange qui m'a permis d'aboutir et bonne soirée.

Je met le fichier ca peut toujours servir


Cdlt
Philmaure
 

Pièces jointes

  • Test2.xlsm
    24.4 KB · Affichages: 25

Discussions similaires