TCD Modifiables

[JORDAN]

Bonsoir,

J'aimerai savoir s'il est possible de modifier les données d'un TCD.
Via une macro, une liste de validation, ou autre, je n'est pas de préference
Juste en fonction du nom de l'onglet

dans mon classeur j'ai une trentaine de feuilles identiques (même format)
la seule différence est le nom de l'onglet et bien sur les données à l'intérieur du tableau.
le tableau est le même sur toutes les feuilles et la zone de sélection est la même aussi
Merci

 

[tototiti2008]

Re : TCD Modifiables

Bonjour JORDAN,

Sans doute avec un nom défini avec la fonction Indirect qui permettrait de pointer sur des feuilles variables. Un bout de fichier est requis pour une réponse plus précise

 

[JORDAN]

Re : TCD Modifiables

Bonsoir Tototiti,

Merci pour ta réponse,
Je prépare mon fichier qui est trop gros

 

[JORDAN]

Re : TCD Modifiables

Re,

Bon voilà, j'ai simplifié le fichier, il ne ressemble plus à grand chose
mais il fait moins de 48 ko

donc mon problème est :
Comment changer le tcd en fonction de la feuille choisie.
Merci

 

[JCGL]

Re : TCD Modifiables

Bonjour à tous,

Un essai avec une liste de validation et une base TCD déclarée :

=DECALER(INDIRECT("'"&TCD!$K$1&"'!$A$1:$F$500");;;NBVAL(INDIRECT("'"&TCD!$K$1&"'!$A$1:$A$500")))

Mettre les noms de feuilles en N1 et suivant

Cliquer sur Actualiser le TCD (cela peut être automatisé)

A+

Edition : voir message #7

 

[bcharef]

Re : TCD Modifiables

Bonsoir JORDAN,tototiti2008,
Bonsoir à toutes et à tous.
Salut JCGL.

Sincèrement, je suivais le dite sujet de prés, et pour cela, je remercie infiniment pour la solution proposée.

Après autorisation de la part de JORDAN, d'intervenir.

Il y a lieu d'achever l'opération par l'insertion d'un code qui permettra une actualisation automatique du TCD, après chaque manipulation de la cellule N1.

Salutations distinguées.

Bcharef.

 

[JCGL]

Re : TCD Modifiables

Bonjour à tous,
Salut BCharef,

Il suffit d'ajouter :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "K1" Then ActiveWorkbook.RefreshAll
End Sub

Dans le code de la feuille TCD

A++
A+ à tous

 

[bcharef]

Re : TCD Modifiables

Bonsoir JCGL,
Bonsoir à toutes et à tous.

En attente de l'opinion de JORDAN, je trouve la présente solution géniale.

Salutations distinguées.

Bcharef.

 

[JORDAN]

Re : TCD Modifiables

Bonjour tout le monde,

Merci de vous etre occupé de mon problème
Je n'ai pas pu répondre plus tot, boulot oblige.

Je viens de tester ce qu'a fait JCGL et c'est magnifique, tout à fait ce que je cherchais à faire. Je me demande toujours ou vous trouvez des formules et des code vba pareils, j'ai encore beaucoup de boulot pour arriver à faire ça tout seul, disons quand même que je progresse de jour en jour grace à vous tous.

Pour Bcharef : Je ne vois pas d'inconvénient pour intervention, bien au contraire, cela ne peut que m'apporter des infos supplémentaires.

Encore merci et bonne journée

 

[JORDAN]

Re : TCD Modifiables

Re, tout le monde,

ça y est je viens de tout intégrer dans mon projet, c'est génial

Merci à vous tous pour votre aide
Bonne journée