Validations de données sous conditions

Bonjour,

sur le fichier mis en pièce jointe (feuil 1) qui correspond à une grille d'évaluation du permis de conduire catégorie C, il y a 5 thèmes disponibles, un doit être tiré au sort, la note varie de 0 à 3 (mis en liste déroulante) (en parties grisées).

un seul des thèmes doit être noté. Je voudrais un message d'erreur ou mieux une invalidation de saisie si au moins 2 thèmes sont notés. (plus d'explications dans le ficher joint).

merci d'avance

Bonjour,

Un test par VBA sur un évènement de changement de valeur d'une des cellules grisées :

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim PLAGE(), I As Byte, NB As Byte
If Application.Intersect([C39], [C51], [F14], [F21], [F25], [F34], Target) Is Nothing Then
    PLAGE = Array("C39", "C51", "F14", "F21", "F25", "F34")
    For I = 0 To 5
        NB = NB + WorksheetFunction.CountIf(Range(PLAGE(I)), "<>0")
    Next I
    If NB > 1 Then
        Application.EnableEvents = False
        Application.Undo
        MsgBox "Impossible de renseigner plusieurs thèmes", vbCritical
        Application.EnableEvents = True
    End If
End If
End Sub

Avec le fichier qui va bien.

Cdlt,