Céer fonctions Excel

Version imprimable

07/11/2018, 09h54
patmicro

Céer fonctions Excel

Bonjour à tous les lecteurs : Je voudrais créer 2 fonctions distinctes comme macro complémentaires d’Excel disponibles dans la version 2019.
A savoir la fonction SI.MULTIPLE() avec un minimum de 7 conditions et la fonction SI.CONDITIONS().
N’étant pas très expert en VBA, je recherche un expert en la matière.
Par avance merci pour votre aide. :arf:
07/11/2018, 10h15
Menhir

Citation:

Envoyé par patmicro

A savoir la fonction SI.MULTIPLE() avec un minimum de 7 conditions et la fonction SI.CONDITIONS().

Développer une fonction en connaissant uniquement son nom et sans savoir ce que tu veux qu'elle fasse, ça risque d'être hard. :weird:
07/11/2018, 10h23
patmicro

Je me suis peut être mal exprimé : Je voudrais reproduire comme dans les exemples de cette vidéo disponibles sur la version Excel 2019

https://www.youtube.com/watch?v=eC_1km3eQEc
07/11/2018, 11h21
MarcelG

Bonjour,

Après avoir lu ce tutoriel
les fonctions personnelles
le plus efficace serait que tu développes et retournes le code en cas de difficulté.
Comme le signale Menhir, il te faut partir d'un existant (les arguments de la fonction) pour bien définir le résultat escompté.
Une fois ces éléments exposés clairement, le code sera envisageable.
07/11/2018, 12h00
mercatog
Bonjour

Exemple pour SI.MULTIPLE
Code:

1 2 3 Function IFM(ByVal Rng As Range, ParamArray Crit()) '...... End Function
EDIT

J'ai donné une proposition de fonction. Mais il me faudra plus guider que de répondre.

Dans un premier temps il faudra boucler sur les élements de la variable tableau Crit avec un pas de 2 et de voir la correspondance entre ces éléments et la valeur de Rng (la cellule de comparaison).
07/11/2018, 12h03
Menhir

Citation:

Envoyé par patmicro

A savoir la fonction SI.MULTIPLE()

Pour savoir comment faire des fonctions personnalisée : http://silkyroad.developpez.com/vba/fonctions/
Le plus pratique sera d'utiliser dans ton code la fonction Choose() : https://docs.microsoft.com/fr-fr/off...hoose-function
07/11/2018, 12h42
Philippe Tulliez

Bonjour,
Ne sachant pas qu'elles sont les conditions que tu dois traiter, il n'est pas simple de t'apporter une réponse pertinente.
S'il s'agit de renvoyer une information suivant des valeurs graduelles, il est plus simple de remplacer une suite de SI imbriqués par la fonction RECHERCHEV de plus la maintenance en est facilitée.
La lecture de ce billet titré Comment remplacer des SI imbriqués par la fonction RECHERCHEV t'en apprendra davantage

Bonjour,

Pourquoi se casser la tête à créer des fonctions perso alors qu'Excel en possède suffisamment pour arriver à ce qu'on souhaite comme utiliser la fonction CHOISIR() :

Code:

1
2
 
=SI(OU(A1="";A1>10);"Pas bon";CHOISIR(A1;"Condition 1 remplie";"Condition 2 remplie";"Condition 3 remplie";"Condition 4 remplie";"Condition 5 remplie";"Condition 6 remplie";"Condition 7 remplie";"Condition 8 remplie";"Condition 9 remplie";"Condition 10 remplie"))

Dans ce cas-ci, une fonction perso serait utile si on ne souhaite pas passer tous ces arguments :

Code:

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
 
Function MaFonction(Cel) As String
 
    Dim Resultat As String
 
    On Error GoTo Fin
    Resultat = Choose(Cel, _
                      "Condition 1 remplie", _
                      "Condition 2 remplie", _
                      "Condition 3 remplie", _
                      "Condition 4 remplie", _
                      "Condition 5 remplie", _
                      "Condition 6 remplie", _
                      "Condition 7 remplie", _
                      "Condition 8 remplie", _
                      "Condition 9 remplie", _
                      "Condition 10 remplie")
 
    MaFonction = Resultat
    Exit Function
 
Fin:
 
    MaFonction = "Pas bon !"
 
End Function