Validation conditionnelle sur liste variable en tableau nommé

Version imprimable

Bonjour

Je cherche à coder en VBA une formule à appliquer à toutes les lignes d'une colonne d'un tableau, de type validation de données sur liste, mais la liste varie à chaque ligne du tableau en fonction de la donnée d'une autre cellule de la ligne.

Feuille 1 : Tableau nommé à 3 colonnes ; appelons le TABLEAU
Colonne A : contient des noms [NOM] d'objets
Colonne B : contient une caractéristique liée à [NOM] ; nous l'appellerons [PRECISION] ; il n'y a pas unicité des valeurs.

Dans le Feuille 2 :
Pour chaque valeur "PRECISION(i)" possible de ma colonne TABLEAU[PRECISION], je dispose ici d'une LISTE sous forme de tableau nommé "PRECISION(i)" ; ces tableaux ont été pré-renseignés, et sont des tableaux mono-colonnes, qui comportent une série de valeurs possibles.

Retour sur la Feuille 1
Colonne C : Je dois y saisir manuellement une valeur [CHOIX], mais cette valeur doit être limitée à la liste du tableau nommé "PRECISION(i)".

Le code VBA à écrire consiste à automatiser la mise en place de cette condition de validation de données.

La formule suivante ne fonctionne pas mais résume globalement (à mon sens) ce que je cherche à coder dans les cellules de la colonne [CHOIX] de TABLEAU :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=INDIRECT(""[@[PRECISION]]"")" .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With
Merci d'avance de votre aide

03/05/2022, 22h44
Qwazerty

Salut

Par tableau nommé, tu veux dire tableau structuré? Si c'est le cas, il suffit de créer ta validation et elle va s'entendre toute seule aux nouvelles lignes.

La création du tableau structuré se fait via le menu Insertion, Tableau.

++
Qwaz
04/05/2022, 07h06
ChrisLyon1

Bonjour Qwazerty

Oui, il s'agit d'un tableau structuré.

MAIS : comme la liste à laquelle la validation fait appel n'est pas une liste à nom fixe, mais une liste à noms variables, la validation ne s'étend pas toute seule, ou alors la syntaxe n'est pas la bonne.
En enregistrant une macro pour comprendre le codage VBA, il n'est pas fait appel à une référence de type INDIRECT([@[PRECISION]]) mais à une adresse de cellule de type INDIRECT(B2)

J'ai ailleurs dans mon tableau des validation sur une liste fixe codées façon INDIRECT(LISTE_FIXE) qui fonctionnent effectivement très bien et se dupliquent d'elles-mêmes.
Pas dans le cas que je cherche à résoudre.

Si j'ai été clair...

Citation:

Envoyé par Qwazerty

Salut

Par tableau nommé, tu veux dire tableau structuré? Si c'est le cas, il suffit de créer ta validation et elle va s'entendre toute seule aux nouvelles lignes.

La création du tableau structuré se fait via le menu Insertion, Tableau.

++
Qwaz
04/05/2022, 10h00
78chris

Bonjour

Je confirme que l'on peut faire cela sans VBA

Il suffit d'avoir une formule nommée relative à la position de la cellule [NOM] qui va associer la bonne liste déroulante

On peut soit faire une multitude de listes et utiliser INDIRECT mais c'est assez limitatif pour le choix des noms, sauf à passer par une table de correspondance, et devient vite usine à gaz.

Il est généralement plus efficace de faire une liste unique, tableau nommé Types par exemple, avec une colonne pour les noms d’objets et une autre pour leurs caractéristiques : on a autant de lignes pour un objet qu'il a de caractéristiques à lister.
La liste est classée par Objet et Caractéristique et les sous-listes sont affichées via la formule nommée à base de DECALER, par exemple :

Code:

=DECALER(Types[[#En-têtes];[Type]];EQUIV(Feuil1!$A2;Types[Nom];0);;NB.SI(Types[Nom];Feuil1!$A2))

créée à partir de B2 (ou autre colonne de la ligne 2) devant se référer au nom d'objet en A2
04/05/2022, 12h53
ChrisLyon1

Merci 78chris pour ce retour... qui ne me résoud malheureusement pas mon souci.

J'ai besoin de coder en VBA pour appliquer des macros à des tableaux dont le contenu est très variable selon les jours ; je cherche à automatiser le traitement de ces données ; d'où le VBA.
Car sans VBA, j'ai la solution pour appeler les listes une par une par la fonction de validation des données, que je copie et colle ensuite sur tout la colonne de mon tableau structuré.
Et c'est dans le codage en VBA que je ne trouve pas la solution pour faire varier la liste à laquelle la validation des données fait appel

Bonne journée
04/05/2022, 14h56
78chris

RE

Citation:

Envoyé par ChrisLyon1

Merci 78chris pour ce retour... qui ne me résoud malheureusement pas mon souci.

Soit j'ai mal compris ta question et de toute évidence, il n'y a pas que moi et donc il faut reformuler avec un exemple concret
soit tu as mal compris la réponse...
05/05/2022, 11h42
ChrisLyon1

2 pièce(s) jointe(s)

Tu as sans doute raison.
Désolé, je débute sur ce forum

Donc en images, des saisies d'écran d'un exemple de la visualisation du besoin :
1 vue avec le tableau pour lequel je développe une macro VBA pour y traiter systémiquement les données que j'y intègre
1 vue avec les listes à appeler

Mon tableau avec les 3 colonnes [NOM], [DESCRIPTION], [CHOIX SUR LISTE]
J'ai besoin dans les cellules de @[CHOIX SUR LISTE], de mettre en place une condition de validation sur liste, dont le nom de la liste est la valeur de la cellule @[DESCRIPTION]

Et je cherche à coder cela en VBA, car les données des colonnes [NOM] et [DESCRIPTION] proviennent de fichiers csv extraits d'autres logiciels, sur lesquels je mets en place des traitements longs et séquencés, et ces données varient plusieurs fois par jour.

En espérant que j'ai été plus clair...

Pièce jointe 618549
Pièce jointe 618550

Citation:

Envoyé par 78chris

RE

Soit j'ai mal compris ta question et de toute évidence, il n'y a pas que moi et donc il faut reformuler avec un exemple concret
soit tu as mal compris la réponse...
05/05/2022, 12h52
78chris

1 pièce(s) jointe(s)
Bonjour

Donc j'avais bien compris :
Comme dit il y a 2 solutions :
1. créer plein de listes et, selon leur structure, créer une seule ou plein de plages nommées
2. créer une unique liste et une unique formule nommées
Dans le premier cas (voir image) une unique formule nommée est possible et utilisée dans la validation en jouant sur les noms des tableaux et non sur le titre de colonnes

Code:

=INDIRECT(Feuil1!$A2&"[Type]")

Dans le second, comme déjà indiqué :

Code:

=DECALER(Types[[#En-têtes];[Type]];EQUIV(Feuil1!$A2;Types[Nom];0);;NB.SI(Types[Nom];Feuil1!$A2))

Rien n'empêche de positionner la validation par VBA
06/05/2022, 17h45
ChrisLyon1

Bonjour 78chris

Merci, bien plus clair et le diable étant dans les détails :
- pour des raisons (sans doute perfectibles), compliqué au stade de créer une liste unique
- tes formules comportent encore une référence de type adresse de cellule en dur (dans ton cas : $A2)
- je cherche à ne plus avoir que des valeurs de noms de colonnes de tableaux nommés (structurés) , car si dans le temps, la colonne [NOM] n'est plus en position A, le code VBA ne fonctionne plus

Merci à toi
06/05/2022, 18h55
78chris

RE

Et bien il suffit d'adapter la formule

Code:

=DECALER(Types[[#En-têtes];[Type]];EQUIV(Tableau1[@NOM];Types[Nom];0);;NB.SI(Types[Nom];Tableau1[@NOM]))
06/05/2022, 19h03
ChrisLyon1

Sur la base de ce que tu m'avais proposé entre temps la formule suivante a aussi fonctionné :

Code:

="=INDIRECT(" & ActiveCell.Offset(, -1).Address & ")"

Je vais regarder si je peux me simplifier la vie avec ton idée de liste unique en complément.
un IMMENSE merci & un bon week-end
06/05/2022, 19h12
78chris

RE

En Excel Offset peut se faire en formule avec DECALER

Par exemple ceci est hyper générique mais nécessite de toujours se reporter à gauche

Code:

=DECALER(Types[[#En-têtes];[Type]];EQUIV(DECALER(!B2;;-1);Types[Nom];0);;NB.SI(Types[Nom];DECALER(!B2;;-1)))