Renvoie valeur selon plusieurs critères dans une cellule

Bonjour à tous,

Je bloque actuellement sur le fait de renvoyer une valeur 1 ou 0 selon plusieurs critères textuels dans une cellule donnée.

Il y a bien les fonctions cherche() ou index() mais vraiment je bloque :s

Voici un petit fichier à titre d'exemple

Une âme charitable veut-elle bien me venir en aide ?

Max

quel sont les critères de recherche ?

Les critères sont "noir 3 ans" et "1988"

=SI(NON(ESTERR((TROUVE("noir 3 ans";A1)+TROUVE("1988";A1))));1;0)

ps/ il n'y a pas de 1988 sur le fichier transmit

Bonjour,

Je vous propose d'étudier et de tester les pistes présentées dans le ficher joint !

Merci beaucoup sabV,

Oui effectivement je m'étais trompé dans le fichier départ que j'ai changé quelques minutes après.

j'avais utilisé la même formule mais avec CHERCHE() et la multiplication au lieu de l'addition...ne fonctionne pas

Pense-tu qu'avec la fonction INDEX() il soit aussi possible de le faire ?

Merci encore à toi,

Max

Bonsoir JF,

Je regarde dans les minutes qui viennent

Merci à toi

Max

La formule =SI(ET(NB.SI(A1;"*"&G4&"*")>0;NB.SI(A1;"*"&H4&"*")>0);1;0) me convient très bien aussi JF

Pardon mais il y a un paramètre dont je n'ai pas tenu compte.

Comment peut-on faire pour tenir compte du fait qu'il ne faut que cela soit effectif pour les chien et le chat mais pas pour le cheval (cf.nouveau fichier)

Bien à vous,

Maxime

Re,

maxdhavys a écrit :

Comment peut-on faire pour tenir compte du fait qu'il ne faut que cela soit effectif pour les chien et le chat mais pas pour le cheval (cf.nouveau fichier)

En incluant dans ma formule, plus précisément dans la partie ET(.........), une nouvelle condition sous la forme :

NB.SI(A1;"*Cheval*")=0

Au top JF

Bonjour,

Une proposition avec une fonction personnalisée.

Dans l'hypothèse ou les conditions peuvent évoluées.

Cdlt.

Option Explicit
Option Compare Text

Public Function DEMO(strText As String) As Byte
    DEMO = 0
    Select Case True
        Case strText Like "*cheval*"
            Exit Function
        Case strText Like "*noir 3 ans*" And strText Like "*1988*"
            DEMO = 1
    End Select
End Function