Discussion :

[geheloftasie]

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

[Philippe Tulliez]

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

[geheloftasie]

Merci Corona
peux tu préciser comment faire stp

[louqui]

Nouvelles valeurs pour echelon

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

[Philippe Tulliez]

Bonsoir,

Nouvelles valeurs pour echelon =parametres!$k$5ECALER(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.

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.

[louqui]

Bien plus efficace en effet

[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.

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

[Philippe Tulliez]

Bonjour,

ç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 :

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

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 :

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

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

Et mieux encore, préciser le classeur

Code :

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

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.

[geheloftasie]

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