Code VBA Condition SI (Difficile/Expert) ?

Bonsoir à tous,

J'ai un souci avec une expression qui demande votre aide. J'ai joint le fichier avec des exemples en PJ pour plus de clarté.

Dans l'onglet "Template" j'aimerais exprimer les formules suivantes en M12 (que je dupliquerai par la suite de M13 à M102) :

"Yes" s'affiche en M12 si (CAS 1, lignes 12 à 14 dans le tableau Excel) :

1) Pour toutes les lignes dont le "Nombre" (de la colonne F) est identique,

2) Une (une seule suffit) des "Décision" (de la colonne L) est différentedes autres.

"No" s'affiche en M12 si (CAS 2,lignes 15 à 16 dans le tableau Excel) :

1) Pour toutes les lignes dont le "Nombre" (de la colonne F) est identique,

2) les "Décision" (de la colonne L) sont identiques

"No" s'affiche en M12 (CAS 3,ligne 17 dans le tableau Excel) :

1) Si un "Nombre" (de la colonne F) n'a pas de doublon dans le tableau,

2) Quelle que soit la "Décision"(de la colonne L)

Je pense que passer par VBA est indispensable, mais mes compétences en cette matière sont nulles.

Quelqu'un aurait-il un avis ? Si VBA est indispensable, peut-être proposer un code ? : )

Je vous remercie par avance pour votre aide.

Cordialement,

Mathieu

17template.xlsm (28.44 Ko)

bonsoir,

une proposition via une macro

Sub yesno()
    dlws = Cells(Rows.Count, "F").End(xlUp).Row + 1
    pl = 0
    dl = 0
    Key = ""
    For i = 12 To dlws
        If Cells(i, "F") <> Key Then
            If pl <> 0 Then Range("M" & pl & ":M" & dl) = YN
            Key = Cells(i, "F")
            pl = i
            dl = i
            YN = "No"
            pa = Cells(i, "L")
        Else
            If Cells(i, "L") <> pa Then YN = "Yes"
            dl = i
        End If
    Next i
End Sub

Bonsoir,

Merci énormément pour votre aide !

Je teste ça au plus vite : )

Bonne soirée

Mathieu

Rechercher des sujets similaires à "code vba condition difficile expert"