Lire valeurs de la formule LIREDONNEESTCD

Fermé

Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 - 25 août 2018 à 06:57
debutantexcel8 - 25 août 2018 à 15:27

Bonjour,

Je travaille actuellement sur plusieurs tableaux croisés dynamiques : j'ai donc créé plusieurs formules excel du type =LIREDONNEESTABCROISDYNAMIQUE... qui affichent sans problème les données des TCD correspondants.

Par ailleurs, mes collègues ne sont pas habitués à travailler sur TCD et je voudrais savoir pour leur faciliter la recherche, s'il est possible d'obtenir les mêmes données qu'on aurait obtenu en double cliquant sur la cellule qui contient le champ de la formule =LIREDONNEESTABCROISDYNAMIQUE... qu'en double cliquant sur la valeur directement dans le TCD.

Autrement dit et plus concrètement, dans mon exemple (cf fichier excel du lien ci-dessous), est-il possible de cliquer/doublecliquer sur la cellule B23 et obtenir le même résultat sans avoir besoin d'aller sur le TCD ?

Merci pour votre aide.

Ci-après le lien d'accès au fichier : https://www.cjoint.com/c/HHzeSRAnyOs

Merci

A voir également:

Lire valeurs de la formule LIREDONNEESTCD
Lire le coran en français pdf - Télécharger - Histoire & Religion
Formule si et - Guide
Lire epub - Guide
Formule excel pour additionner plusieurs cellules - Guide
Formule excel moyenne - Guide

3 réponses

Réponse 1 / 3

danielc0 Messages postés 1423 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 janvier 2025 168
25 août 2018 à 10:46

Bonjour,

J'espère qu'il y a plus simple :

Dans le module de la feuille, mets :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Ligne As Long
  If Target.Address <> "$B$23" Then Exit Sub
  Cancel = True
  With ActiveSheet.PivotTables(1)
     Ligne = .PivotFields("Marque").PivotItems([C22].Value).DataRange.Row
     Target.Value = .PivotFields("Produit").PivotItems([B22].Value).DataRange.Cells(4)
  End With
End Sub

Daniel

danielc0 Messages postés 1423 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 janvier 2025 168
25 août 2018 à 10:47

Avec "smartphone" en B22 et "LG" en C22.

Daniel

danielc0 Messages postés 1423 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 janvier 2025 168
25 août 2018 à 11:06

Désolé, :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Ligne As Long
  If Target.Address <> "$B$23" Then Exit Sub
  Cancel = True
  With ActiveSheet.PivotTables(1)
     Ligne = .PivotFields("Marque").PivotItems([C22].Value).DataRange.Row
     Target.Value = .PivotFields("Produit").PivotItems([B22].Value).DataRange.Cells(Ligne - 7)
  End With
End Sub

Le "7" correspond à la ligne d'entête du TCD. On doit ppouvoir le récupérer.

Daniel

danielc0 Messages postés 1423 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 23 janvier 2025 168
25 août 2018 à 11:25

Donc, au final :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Dim Ligne As Long, Dep As Long
  If Target.Address <> "$B$23" Then Exit Sub
  Cancel = True
  With ActiveSheet.PivotTables(1)
    With .ColumnRange
      Dep = .Rows(.Rows.Count).Row
    End With
     Ligne = .PivotFields("Marque").PivotItems([C22].Value).DataRange.Row
     Target.Value = .PivotFields("Produit").PivotItems([B22].Value).DataRange.Cells(Ligne - Dep)
  End With
End Sub

Ouf.

Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 9
25 août 2018 à 12:35

Merci pour le retour.
Je m'y prends peut etre mal mais je n'ai pas le même résultat que j'ai lorsque je double clique directement sur le chiffre 3 présent dans le TCD
Ci-après le fichier au lien https://www.cjoint.com/c/HHzkHDriNNs

Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 9
25 août 2018 à 12:42

Nouveau fichier au lien : https://www.cjoint.com/c/HHzkPQCnbms

Je pense que le précédent a été endommagé

Réponse 2 / 3

Debutantexcel8 Messages postés 25 Date d'inscription samedi 18 novembre 2017 Statut Membre Dernière intervention 25 octobre 2018 9
25 août 2018 à 15:14

Merci ça fonctionne mais mon fichier original comporte 10 feuillets dont chacun a environ 50 formules du type liredonnéestcd et environ 6 tcd. Je ne sais pas si cette macro serait applicable à chacune des 50 formules par feuillet. En tout cas merci encore ça m'aide déjà beaucoup

Réponse 3 / 3

eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 250
25 août 2018 à 15:18

Bonjour,

Autant essayer de les faire progresser non ?
Tu leur montres un TCD, et qu'ils peuvent avec le détail d'un résultat en double-cliquant.
eric

debutantexcel8
25 août 2018 à 15:27

Tu as grandement raison, je vais faire un exemple et ils vont comprendre, c'est la solution la plus simple, d'autant que même si j'arrive à trouver comment appliquer la macro sur toutes mes 500 formules ça représente un travail énorme. merci encore

Discussions similaires

je veut créer des codes

Formule calcul d'un total conditionnel