Automatiser une formule dans une colonne

Citation:

---

Envoyé par fabien32200

Depuis que j'ai rajouté "Feuil1!" pour aller chercher des données dans un autre classeur, ce code ne marche plus)

---

Il est où le code pour copier tes données venant d'un autre classeur ??
Quel est ton classeur ouvert en premier (son nom), et celui ouvert en second (son nom), lequel contient les données à transférer, quels sont les noms de chaques feuilles (ou codename) pour chaque classeur???
A partir de ces question tu te doutes bien que le code doit s'écrire d'une certaine façon et dans l'ordre.
si tu ne déclares pas le classeur dans lequel tu veux effectué ton code, y a des grandes chances pour que tu n'obtiennes pas le résultat escompté.

Donc :google: => recherche : vba copier données d'un autre classeur par exemple

Ce n'est pas aussi simple que ça je trouve. Il ne s'agit pas de retranscrire des données d'une feuille à l'autre.

Dans ma première feuille : j'ai 8 colonnes. Dans la 4ème colonne (Colonne D) j'ai 20 différents profils risques d'investisseurs. Ces 20 profils risques correspondent ensuite à 15 performances boursière (2 profils peuvent avoir la même performance, d'ou "n profils risques" > "y performance boursière").

On avait trouvé le bon code lorsque ces 15 performances, qui sont sous forme de tableau, étaient présentes sur la même feuille que mes données présentes dans mes 8 colonnes. C'est le code ci-dessous :

Code:

---

1 2 3

Sub Z() Feuil1.Range("G2").FormulaLocal = "=SI(D2=""Perso Mixte Modérée Actions"";$L$2;SI(D2=""Perso Mixte Equilibre"";$L$3;SI(D2=""Perso Mixte Patrimoniale"";$L$4;SI(D2=""Perso Mixte Liberté"";$L$5;SI(D2=""Perso Opc Liberté"";$L$5;SI(D2=""Perso Mixte Vitalité"";$L$6;SI(D2=""Perso Mixte Dyn 60-100%"";$L$6;SI(D2=""Perso Mixte Audace"";$L$7;SI(D2=""Perso Mixte Pea Défensif"";$L$8;SI(D2=""Perso Mixte PEA"";$L$9;SI(D2=""Perso OPC Prudente Taux"";$L$10;SI(D2=""Perso Mixte Modérée Taux"";$L$10;SI(D2=""Perso Mixte Prudent Taux"";$L$10;SI(D2=""Perso Opc Prudent Taux"";$L$10;SI(D2=""Perso Opc Perf Abs"";$L$11;SI(D2=""Perso OPC Modérée Actions"";$L$12;SI(D2=""Perso OPC Equilibre"";$L$13;SI(D2=""Perso OPC Patrimoniale"";$L$14;SI(D2=""Perso OPC Vitalité"";$L$15;SI(D2=""Perso Opc Dyn Ethique"";$L$15;SI(D2=""Perso OPC Audace"";$L$16;SI(D2=""Perso Opc Dyn 60-100%"";$L$16;SI(D2=""Perso OPC PEA Défensif"";$L$17;SI(D2=""Perso OPC PEA"";$L$18;SI(D2=""Perso OPC PEA PME"";$L$18)))))))))))))))))))))))))" Feuil1.Range("G2").Copy Destination:=Feuil1.Range("G3:G1000")

---

Cependant je ne peux pas laisser ce tableau sur la même feuille, car j'ai un code qui fait un saut de ligne lorsque le numéro de mes clients change. Ca va donc ensuite modifier la ligne où sont présentes les 15 performances et donc faire échouer le code ci-dessus.

Je dois mettre ce tableau liée au 15 performance / au 20 profils risques investisseurs sur une autre feuille.
Je cherche depuis presque 3heures, comment faire pour réaliser ça, mais je n'y parviens pas !

Je reviens sur mon post 3 : http://www.developpez.net/forums/d15...e/#post8611522


outre :

- la simplification drastique de ta formule
- la possibilité d'étendre automatiquement la formule lors de l'ajout d'une ligne si tes données sont sous forme de tableau structuré
(si c'est pas un tableau structuré ... la recopie de la formule est également ultra simple)

cette méthode était réalisée avec les profils stockés sur une plage nommée située dans une autre feuille.


Je ne cherche pas à faire le forcing, mais tu empiles les problèmes les uns après les autres en voulant continuer sur ton modèle de départ.

Je veux juste être certain que tu as testé la méthode et qu'il y avait une raison particulière pour qu'elle ne retienne pas ton attention .... je n'ai eu aucun retour de ta part à ce sujet


A noter qu'Igloobel t'as proposé également le principe du tableau structuré

Au final, ton idée était la bonne dés le départ joe.levrai !

Du coup je mets mes 20 profils et les 20 performances qui y sont liées sur la feuille qui suit la feuille ou se trouve toutes mes données.

Ainsi sur cette 2ème Feuille se trouve :

Colonne A ; Colonne B

profil PEA ; 5%
profil Défensif ; 0.05%
... ;
[20 profils] ; [20 perf)

Je nome ensuite "Matrice" : les 20 lignes et la colonne A et B.


Sur la 1ère feuille :

Je vais dans toutes les cases de la Colonne "G" où se trouve les performances des différents profils investisseurs. (Les différents profils investisseurs sont dans la Colonne "D").

Puis ensuite je suis bloqué :

"=INDIRECT("$ je dois mettre quoi là ??? $" & EQUIV(???;MATRICE ???;0)+1)"

@joe.levrai a raison car plus tu simplifie mieux c'est,
de plus ça serait bien des fichiers xlsx avec des fausses données avec ce que tu as au départ et ce que tu veux comme résultat sur des feuilles différentes pour mieux cerner le problème
+ description des différentes étapes (genre données classseur A vers classeur B sur tel feuille, …, les problématiques, …

Mais à mon avis si tu as changé l'emplacement :

Citation:

---

Je dois mettre ce tableau liée au 15 performance / au 20 profils risques investisseurs sur une autre feuille.

---

ta formule doit changer aussi car elle n'indique pas la feuille où sont tes données

exemple de base MaDonnée est en B2 la formule sera =B2
Maintenant si je déplace MaDonnée sur la feuil2, la formule sera =Feuil2!B2 donc on pointe correctement sur la donnée pour faire le calcul

Mais d'abord je te propose plutôt de tester ce que @joe.levrai t'as proposé, il faut laisser la porte à toutes les possibilités afin d'en tirer et de choisir la meilleure solution (c'est vrai que ta formule est compliqué)

Edit : un train de retard :mrgreen:

Si on reprend la formule de départ :

Citation:

---

=INDIRECT("$L$" & EQUIV(D2;MATRICE;0)+1)

---

j'ai renseigné :

- $L$ car c'est en colonne L qu'on va chercher le résultat
- D2 car tes données commencent en ligne 2 et qu'on doit analyser la valeur de la colonne D
- MATRICE car c'est le nom de la plage nommée
- j'ajoute +1 après le chiffre renvoyé par EQUIV afin de conserver le début des données sur la ligne 2

Du coup :

- $A$ car c'est en colonne A qu'on va chercher le résultat (c'est la colonne A de la 2ème feuille)
- D2 car les données commencent en ligne 2 et qu'on doit analyser la valeur de la colonne D : OK
- MATRICE car c'est le nom de la plage nommée (donc pour faire ça je nomme les 20 lignes de la colonne A et B de ma 2ème feuille : forumules->définir un nom->matrice. Puis ensuite je tape ta formule en mettant "matrice". C'est juste ?)
- j'ajoute +1 après le chiffre renvoyé par EQUIV afin de conserver le début des données sur la ligne 2 : Ok

Donc j'ai inséré :

=INDIRECT("$A$" & EQUIV(D2;matrice;0)+1)

Mais ça m'indique "#N/A"

C'est bon je viens de trouver avec Recherche V.

Merci

Au vu des précisions quant à la structure et au contexte, voici une autre proposition

Sur ta Feuille de stockage des Profils,

écrire :

- de A1 à A20 : les Profils
- de B1 à B20 : les Performances associées à chaque Profil

et nommer deux plages :

- de A1 à A20 : PROFILS
- de A1 à B20 : MATRICE


Sur ta Feuille de données, écrire en ligne 2 la formule :

Code:

---

=SIERREUR(INDEX(MATRICE;EQUIV(D2;PROFILS;0);2);"Code Inconnu")

---

Dans l'idéal, l'utilisation d'un tableau structuré pour gérer tes Profils/Performances et tes données permet de tout gérer automatiquement : redimensionnement automatique si tu ajoutes des sources et propagation de ta formule de recherche quand tu ajoutes des données.
Et ça simplifie grandement toute la gestion sous VBA grâce aux Objets ListObjects

Je pensais avoir répondu à ce post, désolé.


J'ai utilisé ce que tu m'as dit, joe.levrai, pour ne plus avoir cette formule très compliquée.

Merci ! Problèmes résolus.