Conditions avec plusieurs arguments

Bonjour à tous et à toutes,

Je souhaiterai automatiser mon tableur et renseigner juste quelques informations à l'aide de liste déroulante (en page 2) avec les données de la page 1. Pour ce faire, il faut que j'applique un pourcentage à des données en fonction des profils et des tranches d'âge choisies...

Voici ce que j'ai fais jusqu'à présent, cette fonction fonctionne bien mais seulement avec 3 arguments je voudrais qu'elle fonctionne avec beaucoup plus d'argument ... Voici le code :

Code:

---

=SI(ET(C2="20 - 30 ans";C3="Profil Prudent");"30%";"erreur";SI(ET(C2="30 - 40 ans";C3="Profil Prudent");"23%";"erreur"))

---

J'ai vu autrement qu'avec une matrice c'était possible mais je ne vois pas comment faire ...
Je vous mets en pièce jointe le document.

Je veux par la suite faire des calculs de manière automatisés en fonction de la tranche d'âge et d profil choisi.
Je fonctionne en ligne et non en colonne :wink:

En page 1 les données en page 2 un début de "formulaire" (avec liste déroulante) à remplir puis les calculs s’effectueront.


Merci pour votre aide !

Citation:

---

Envoyé par the_programmeur

---

Bonjour,

Je n'ai pas vu à quel endroit se situait cette formule. Votre méthode pour créer une liste de validation dans une cellule n'est pas adaptée pour ce que vous voulez faire. Ce que j'ai compris, c'est que vous vouliez récupérer le pourcentage à partir du croisement "Profil", "Type de placement". Pour cela, vous pourriez utiliser une combinaison de fonctions Index, Equiv.

J'ai mis en pièce jointe, le fichier correspondant au vidage d'écran ci-dessous. A3 et B3 sont des listes de validation en relation avec la table TableauPlacements. Le résultat du couple choisi figure dans la cellule C3 (voir la formule en bas du vidage d'écran).

Pièce jointe 306788

Un changement dans la cellule A3 provoque le rafraîchissement du graphe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub ModifierLaSerie()   Dim ShPlacements As Worksheet Dim CelluleEnCours As Range Dim MonGraphe As Chart   Set ShPlacements = Sheets("Feuil1") With ShPlacements Set MonGraphe = .ChartObjects("Graphique 2").Chart For Each CelluleEnCours In .ListObjects("TableauPlacements").ListColumns("Profils").DataBodyRange If CelluleEnCours = .Range("ProfilRetenu") Then With MonGraphe .SeriesCollection(1).Name = CelluleEnCours .SeriesCollection(1).Values = Range(CelluleEnCours.Offset(0, 1), CelluleEnCours.Offset(0, 3)) Exit For End With End If Next CelluleEnCours Set MonGraphe = Nothing End With Set ShPlacements = Nothing End Sub

---

Pièce jointe 306793