Discussion :

[the_programmeur]

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

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

=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

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 !

[Invité]

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 :

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

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