Microsoft 365 Recherche de plusieurs critères dans une cellule

laurent950 à dit:

Bonsoir @Bambi35 , @sylvanu , @Hecatonchire

Il faut commencer par construire une fonction personnalisée VBA pour détecter ce qui est bon ou faux dans un premier temps.
Ensuite, une fois les résultats validés, il faudra construire une formule Excel complexe.

La fonction Excel serait celle-ci :

Code:

=SI(OU(
    NB.SI(F2;"*PAT-012634/A - Maison (Released)*")>0;
    NB.SI(F2;"*PAT-018218/A - Planeur (Advanced)*")>0;
    NB.SI(F2;"*PAT-008218/A - Avion (Anticipate)*")>0;
    ET(NB.SI(F2;"*PAT-011436/A - Retroplanning  (Working)*")>0; NB.SI(F2;"*PAT-011400/A - Moto  (Working)*")>0);
    NB.SI(F2;"*PAT-011400/A - Moto  (Working)*")>0
);1;SI(OU(
    NB.SI(F2;"*PAT-011436/A - Retroplanning  (Working)*")>0;
    NB.SI(F2;"*PAT-010102/B - Bus (Cancelled)*")>0;
    NB.SI(F2;"*PAT-012760/A - Tente (Obsolete)*")>0
);0;""))

La fonction personnalisée VBA serait la suivante :

VB:

Function Priorite(cell As Range) As Variant
    Dim txt As String

    ' Récupérer le contenu de la cellule, supprimer les retours à la ligne
    txt = Replace(cell.Value, vbLf, " ")

    ' Condition 1 : si l'un des trois textes prioritaires est présent
    If InStr(txt, "PAT-012634/A - Maison (Released)") > 0 _
       Or InStr(txt, "PAT-018218/A - Planeur (Advanced)") > 0 _
       Or InStr(txt, "PAT-008218/A - Avion (Anticipate)") > 0 Then
        Priorite = 1
        Exit Function
    End If

    ' Condition 2 : si "PAT-011436/A - Retroplanning (Working)" ET "PAT-011400/A - Moto (Working)" sont présents
    If InStr(txt, "PAT-011436/A - Retroplanning  (Working)") > 0 _
       And InStr(txt, "PAT-011400/A - Moto  (Working)") > 0 Then
        Priorite = 1
        Exit Function
    End If

    ' Condition 3 : si "PAT-011400/A - Moto (Working)" seul
    If InStr(txt, "PAT-011400/A - Moto  (Working)") > 0 Then
        Priorite = 1
        Exit Function
    End If

    ' Condition 4 : si "PAT-011436/A - Retroplanning  (Working)" seul
    If InStr(txt, "PAT-011436/A - Retroplanning  (Working)") > 0 _
        And Len("PAT-011436/A - Retroplanning  (Working)") < Len(txt) Then
        Priorite = ""
        Exit Function
    ElseIf InStr(txt, "PAT-011436/A - Retroplanning  (Working)") > 0 Then
        Priorite = 0
        Exit Function
    End If

    ' Condition 5 : si "PAT-010102/B - Bus (Cancelled)" ou "PAT-012760/A - Tente (Obsolete)" présents
    If InStr(txt, "PAT-010102/B - Bus (Cancelled)") > 0 _
       Or InStr(txt, "PAT-012760/A - Tente (Obsolete)") > 0 Then
        Priorite = 0
        Exit Function
    End If

    ' Par défaut, vide
    Priorite = ""
End Function

Rappel des conditions :
Regarde la pièce jointe 1223324

Cliquez pour agrandir...

Hecatonchire à dit:

Bonjour,

La formule que je t'ai fournis au poste #4 me semble fonctionner mais il y avait le piège de bien ajouter 2 espaces après le mots planning dans "(?<!Retroplanning )\(Working\)" comme indiqué en PS.

Pas de chance, lors du Coller du texte de la fonction dans le message, le double espace a été automatiquement supprimé !

VB:

=OU(REGEX.TEST(F2;"(RELEASED|Anticipate|Advanced)";1);REGEX.TEST(F2;"(?<!Retroplanning  )\(Working\)";1))*1

Ca m'apprendra à utiliser la balise </> pour poster mes formules (là pas de suppression des espaces en double 😰

J'ai mis ma formule en colonne G

Cliquez pour agrandir...