Discussion :

[patmicro]

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.

[Menhir]

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.

[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

[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.

[mercatog]

Bonjour

Exemple pour SI.MULTIPLE

Code :

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

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).

[Menhir]

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

[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

[Theze]

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 :

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

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 :

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