Priorité dans une formule

[JJ1]

Bonjour à tous,

J'utilise un tableau fait par Jean Claude(merci) mais chaque fois je dois modifier une partie du résultat car la formule en ligne 9 ( et quelle formule ! ) ne renvoie pas tout à fait le résultat attendu (ligne 8).
J'ai mis un commentaire explicatif avec un exemple.
Si la formule est trop compliquée à modifier, est-il possible de faire la même chose par VBA?

Merci de votre aide (pas simple !)
Bon AM

ps: j'ai mis le fichier aussi sous 2003.

 

[Dranreb]

Re : Priorité dans une formule

Bonjour.
Moi ça me semble plus simple avec cette fonction:

Function FctRE13(Plage As Range) As String
Dim Cont1 As Boolean, Cont3 As Boolean, Adja1 As Boolean, Adja3 As Boolean
Cont1 = WorksheetFunction.CountIf(Plage.Columns(2), 1) > 0
Cont3 = WorksheetFunction.CountIf(Plage.Columns(2), 3) > 0
Adja1 = WorksheetFunction.CountIf(Plage.Columns(1), 1) > 0 _
     Or WorksheetFunction.CountIf(Plage.Columns(3), 1) > 0
Adja3 = WorksheetFunction.CountIf(Plage.Columns(1), 3) > 0 _
     Or WorksheetFunction.CountIf(Plage.Columns(3), 3) > 0
If Cont1 And Cont3 Then FctRE13 = "R": Exit Function
If Cont1 And Adja3 Or Cont3 And Adja1 Then FctRE13 = "E": Exit Function
If Cont1 Then FctRE13 = "1": Exit Function
If Cont3 Then FctRE13 = "3": Exit Function
FctRE13 = ""
End Function

En colonne C:

=FctRE13(B$1:D$5)

Cordialement.

 

[JJ1]

Re : Priorité dans une formule

Bonjour Dranreb,
merci pour cette fonction, je vais la mettre en place aujourd'hui.
Bonnes fêtes