Discussion :

[Vink13010]

Bonjour,

je sèche sur une solution à mon problème. Impossible de trouver malgré que je pensais que ce serait simple.

J'ai un fichier Excel (version 2013)contenant beaucoup de feuille dont une centrale (Acceuil) de laquelle je pilote mon ficher.

J'ai des onglets d'analyse contenant plusieurs TCD selon des critères différents en fonction du besoin d'analyse.
J'ai vu qu'il existait des macros pour créer les tcd mais je ne suis pas parti sur cette option.

En fait j'accède a mes TCD a partir de mon onglet Accueil par bouton avec lien hypertexte, renvoyant à une cellule fixe, sur une feuille fixe (premiere colonne de mon TCD)
Mon souci est que lorsque je modifie des tableaux (rajout de colonnes ou insertion d'un nouveau TCD), la position de mes cellules appelées dans mes liens hypertexte ne sont plus les mêmes, pour les TCD qui se decalent vers la droite, suite aux modifcations.
Je dois donc a chaque fois refaire mes liens hypertexte, en modifiant la cellule où se trouve mon tcd.

Je cherche donc un code VBA qui va m'afficher mon TCD qui s'appel TCD_Nom, et ce quelque soit l'endroit où il se trouve.
Également, je voudrais que la première colonne de mon TCD soit la première colonne visible en affichage.

Par exemple : Mon TCD TCD_Nom est en cellule M5 de ma feuille "Analyse".
Je cherche un code qui va m'afficher le TCD TCD_Nom, et que sur mon écran, la colonne M soit la première colonne affichée a gauche sur mon écran.
Si je veux voir les colonnes A à L, je n'aurais cas utiliser la barre de défilement horizontale.

De cette manière, quelque soit l'endroit où se trouve mon TCD sur la feuille (il aura toujours le même nom), il m'affiche le tcd dont sa colonne sera la première visible.

Je voudrais éviter de créer un onglet par TCD, pour tout afficher en colonne A.
De plus, j'ai besoin moi, d'aller regarder cette feuille pour récupérer plusieurs résultats de TCD. Donc 1 feuille avec plusieurs tcd est bien plus confortable.

J’espère avoir été claire.
Merci pour votre aide.

[Zekraoui_Jakani]

'Il suffit d'utiliser des noms de plage distincts, par onglet
'Exemple : M5 est nommée 'DébutTCD1'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub scrollToTopLeft()
    Sheets("Sheet1").Activate
    Range("DébutTCD1").Select
    Application.Goto ActiveCell, Scroll:=True
End Sub

[78chris]

Bonjour à tous

Adapter les noms

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Worksheets("Nom de la feuille").Activate
    ActiveSheet.PivotTables("Nom du TCD").RowRange.Cells(1.1).Select

[Vink13010]

Bonjour,

La solution de Zekraoui_Jakani est Parfaite, merci beaucoup.
C'est exactement ce que je voulais.
Effectivement, j'aurais pu penser à nommer ma cellule, mais je ne devais pas avoir les idées claires.
l'astuce pour afficher la colonne en premier c'est parfait, du coup je vais dupliquer sur tout mes doc.

La solution de 78chris atteint le Tcd, mais la cellule active renvoi sur première colonne/première ligne de mon Tcd.
ça peut être pratique aussi mais par contre ma colonne n'est pas la première visible sur l'écran.

Merci pour vos réponses, c'est top!