modification de la validation de données

Bonsoir

Soit une case M dans la feuille1 qui a une liste déroulante faisant référence aux cellules K5 à K33 (qui est une plage nommée echelon) de la feuille parametres.
J'ai rajouté une valeur en K34. Je voudrais donc modifier ma plage de référence.

Je souhaite faire ça à partir d'une macro dans un fichier différent des fichiers à modifier. (j'ai 32 fichiers à modifier et une vingtaine de cases par fichiers).

J'ai trouvé des bribes de solutions dans divers posts mais aucun ne correspond vraiment (ou ne fonctionne) à ce que je veux obtenir.
Si quelqu'un a une petite idée....
Merci d'avance

gehel

Bonsoir,
Si tu transformes ta plage nommée Echelon en tableau, il n'y a pas besoin de macro pour changer la référence, elle sera dynamiquement référencée

Merci Corona
peux tu préciser comment faire stp

Nouvelles valeurs pour echelon

Citation:

---

=parametres!$k$5:decaler(parametres!$k$5;NBVAL(parametres!$k:$k)-2;0)

---

Bonsoir,

Citation:

---

Envoyé par louqui

Nouvelles valeurs pour echelon =parametres!$k$5:DECALER(parametres!$k$5;NBVAL(parametres!$k:$k)-2;0)

---

C'est effectivement une solution que l'on a utilisée souvent par le passé mais en modifiant une plage en tableau on obtient le même résultat sans l'utilisation de la formule DECALER qui par le fait qu'elle soit une formule volatile est gourmande en utilisation du processeur.

Citation:

---

Envoyé par geheloftasie

peux tu préciser comment faire stp

---

Pour transformer une plage en tableau, sélectionner la plage, cliquer sur l'onglet [Accueil] groupe Style cliquer sur Mettre sous forme de tableau choisir dans la galerie un style de tableau et cliquer sur OK dans la boîte de dialogue idoine.
A partir de ce moment là, la plage sera dynamique si l'on fait référence à cette plage.

Bien plus efficace en effet:ccool:

Je vous joins le fichier.
J'ai une erreur : la methode select de la classe range a echoué.
Est-ce que la suite que vous m'avez proposée est correcte ?
J'ai fait un essai au sein d'un classeur ça marche, dès que le transpose d'un classeur à un autre ça ne marche plus j'ai cette erreur.

merci de votre patience

ça y est j'ai réussi ! a force de bidouiller et en me servant de l'enregistreur de macros.
La fonction select n'a fonctionné qu'après avoir activé la feuille où se faisait la selection.

Merci à vous deux : surtout que je ne connaissais pas l'utilisation de tableaux dynamiques.

Bonjour,

Citation:

---

Envoyé par geheloftasie

ça y est j'ai réussi ! a force de bidouiller et en me servant de l'enregistreur de macros.
La fonction select n'a fonctionné qu'après avoir activé la feuille où se faisait la selection.

---

Il faut proscrire l'utilisation des Select, Selection, Activate etc ...
Par exemple : Ce que donne l'enregistreur de macro

Code:

---

1 2 3 4 5 6

Sub Macro1() Sheets("Feuil5").Select Range("A6").Select ActiveCell.FormulaR1C1 = "Toto" Range("B6").Select End Sub

---

Ce qu'il faut modifier

Code:

---

1 2 3

Sub maModif() Sheets("Feuil5").Range("A6") = "Toto" End Sub

---

Et mieux encore, préciser le classeur

Code:

---

1 2 3

Sub maModif() ThisWorkbook.Sheets("Feuil5").Range("A6") = "Toto" End Sub

---

Avec ce code, la procédure fonctionnera quelle que soit la feuille sur laquelle on se trouve.

Merci
j'ai corrigé mon fichier avec tes indications. C'est plus simple et direct en effet.