Discussion :

[stephane78400]

Bonjour,

Je n'arrive pas à obtenir la formule que je souhaite Par SI et ET OU

J'ai plusieurs variable:

Je souhaite que si La cellule E6 est comprise entre : 0 et 150000 = 0.07 si P6 est "exclu" ou 0.08 si P6 est "simple"
150001 et 300000 = 0.06 si P7 est "exclu" ou 0.07 si P7 est "simple"
300001 et 400000 = 0.05 si P8 est "exclu" ou 0.06 si P8 est "simple"
superieur à 400001 = 0.04 si P9 est "exclu" ou 0.05 si P9 est "simple"

Merci par avance pour votre aide

[Invité]

Bonjour,

Cette fonction peut répondre à votre problème :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Function ExcluSimple(ByVal ValeurCelluleE6 As Long) As Double
 
        Application.volatile
        ExcluSimple = 0#
 
        Select Case ValeurCelluleE6
                Case 0 To 150000
                    Select Case Range("P6")
                        Case "exclu"
                            ExcluSimple = 0.07
                        Case "simple"
                            ExcluSimple = 0.08
                     End Select
                Case 150001 To 300000
                     Select Case Range("P7")
                        Case "exclu"
                            ExcluSimple = 0.06
                        Case "simple"
                            ExcluSimple = 0.07
                     End Select
                Case 300001 To 400000
                     Select Case Range("P8")
                        Case "exclu"
                            ExcluSimple = 0.05
                        Case "simple"
                            ExcluSimple = 0.06
                     End Select
                Case Is > 400000
                     Select Case Range("P9")
                        Case "exclu"
                            ExcluSimple = 0.04
                        Case "simple"
                            ExcluSimple = 0.05
                     End Select
        End Select
 
End Function

A insérer dans un module standard de votre classeur.

Cordialement.

[stephane78400]

Bonjour

Merci pour votre réponse et le temps que vous y avez apporté.

Je suis un peu novice dans ce type d'execution, pouvez vous m expliquer la procedure à suivre?

Merci par avance
Bonne journée

[Invité]

Je suis un peu novice dans ce type d'execution, pouvez vous m expliquer la procedure à suivre?

Il faut que votre fichier accepte les macros, l'extension doit être .xls ou .xlsm

Si c'est le cas, il vous faut copier la fonction et la coller dans un module standard de votre fichier. Pour accéder à l'éditeur VBA, Alt-F11. Puis Insertion - Module.

Voir l'exemple dans le fichier joint.

Cordialement.

[stephane78400]

Merci à vous !

J ai effectué l operation, faut il ensuite fermé ou enregistrer?
Comment a partir du tableau initial rattacher cette formule?
Merci

[Invité]

J ai effectué l operation, faut il ensuite fermé ou enregistrer?
Comment a partir du tableau initial rattacher cette formule?

Si le module créé est dans votre fichier, la fonction sera sauvegardée en sauvegardant le fichier (il ne faut pas oublier de le faire....)

Quant à l'utilisation de cette fonction, vous pouvez l'utiliser comme n'importe quelle fonction d'excel en saisissant dans une cellule =Exclusimp.... puis en sélectionnant la cellule de type E6 concernée. En clair, si la valeur à tester se situe en A7 et non plus en E6 par exemple et que vous souhaitez le résultat en E2, la formule dans E2 est =Exclusimple(A7)

Seules resteront en coordonnées absolues, les références aux cellules P7 à P9.

Cordialement.

[stephane78400]

Merci , desolé je suis vraiment pas très doué , il me marque ambiguité dans le nom..
Bref j 'ai peut etre visé un peu trop haut pour ce tableau
J arrête de vous embeter je vais essayer de continuer des tutoriels excel pour arriver à m en sortir .
Merci pour votre temps

[Invité]

il me marque ambiguité dans le nom..

La fonction doit être en double dans le ou les modules VBA. Il suffit d'en supprimer une.

Cordialement.

[stephane78400]

Oui j ai supprimer un module et maintenant il me marque erreur de valeur

MONTANT DU BIEN TYPE DE MANDAT COM AGENCE ENTRANT SORTANT
22000 EXCLU #VALEUR! #VALEUR! #VALEUR!
SIMPLE 0 0 0

le module :

Function ExcluSimple(ByVal ValeurCelluleE6 As Long) As Double

Application.Volatile
ExcluSimple = 0#

Select Case ValeurCelluleE6
Case 0 To 150000
Select Case Range("F6")
Case "exclu"
ExcluSimple = 0.07
Case "simple"
ExcluSimple = 0.08
End Select
Case 150001 To 300000
Select Case Range("F6")
Case "exclu"
ExcluSimple = 0.06
Case "simple"
ExcluSimple = 0.07
End Select
Case 300001 To 400000
Select Case Range("F6")
Case "exclu"
Case "simple"
ExcluSimple = 0.06
End Select
Case Is > 400000
Select Case Range("F6")
Case "exclu"
ExcluSimple = 0.04
Case "simple"
ExcluSimple = 0.05
End Select
End Select

End Function

[danixdb]

Bonjour stephane78400, Eric KERGRESSE, le Forum

Et avec une table de données présentée comme suit :


Une formule Index avec deux equiv devrait répondre à ta demande, si je l'ai bien comprise

=INDEX(tblProduits;EQUIV(C1;Feuil2!$A$3:$A$6;1);EQUIV(B1;tblType;0)+2)

J'ai donné des noms aux plages permettant de retrouver les données chiffrées par rapport au type (exclu ou simple)

Voir le fichier en pièce jointe comme exemple.

Slts

[stephane78400]

Merci !

Ca à l'air de presque fonctionner.

Mais j'ai encore des erreurs je ne vois pas ou.
J ai mis le fichier en piece jointe

[danixdb]

Bonsoir stephane78400, le Forum

J'ai modifié le fichier joint pour que les valeurs d'erreur n'apparaissent plus, c'était dû aux plages utilisées.

Slts

[stephane78400]

Merci infiniment c'est super sympa !
C est nikel
Bon week end

[papouclo]

Bonjour,
Bravo à danixdb pour sa proposition.
Une formule utilisant sa table de correspondance et la fonction RECHERCHEV, ce qui donne une écriture à peine plus courte :

Code :

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

=RECHERCHEV($E6;tblProduits;4+(PORTEFEUILLE!F6="SIMPLE"))

Enfin, si l'on veut ne pas avoir à rajouter une feuille supplémentaire avec la table de correspondance, on peut utiliser
la formule suivante calculant le taux recherché:

Code :

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

= 0,08-0,01*EQUIV($E6;{0;150001;300001;400001})+0,01*($F6="SIMPLE")

Deux remarques sur la table de correspondance :
La solution proposée par danixdb est loin d'être un pis aller à cause du rajout d'une feuille contenant cette table.
Cela facilite l'emploi des fonctions de recherche, outils essentiels pour l'établissement de classeurs, et n'alourdit en rien le dossier.
Dans la table en question, la colonne C n'est bien sûr pas fonctionnelle et a un rôle seulement explicatif pour des
utilisateurs peu avertis (ce qui n'est pas négligeable).
Mais la colonne B n'est pas non plus fonctionnelle. Seule la colonne des seuils d'entrée dans les tranches est importante.
J'ai modifié dans le classeur joint les deux colonnes sans les supprimer pour ne pas changer les formules proposées.
Cordialement
Claude