XL 2016 Choix unique pour le même utilisateur

[Yusuke]

Bonjour,

Je suis nouveau sur ce forum, et j'aimerais bien en profiter pour saluer tous les contributeurs et les remercier pour leur aide précieuse.

J'ai créé un tableau Excel avec 4 colonnes:

ID | Nom | Repas | Date/Heure
01 X Déj
02 Y Petit-déj
03 Z Collation
01 X Déj

La colonne Repas est une liste de choix contenant: Petit-déjeuner, Déjeuner, Collation et Dîner. A chaque nouvelle entrée, on doit sélectionner un repas pour un utilisateur (ID).
Je souhaite savoir comment interdire la sélection d'un repas s'il est déjà pris par un utilisateur (ID).

Merci à vous.

 

[Staple1600]

Bonjour le fil, le forum, Yusuke

@Yusuke [Bienvenue sur le forum]
Peux-tu, stp, joindre un fichier Excel exemple, histoire de nous faciliter la tâche ?

 

[Yusuke]

Bonjour @Staple1600 ,

Merci de ta prompte réponse.
Le fichier est joint à ce message.

Merci encore une fois.

 

[JHA]

Bonjour à tous,

Formule à essayer

=NB.SI.ENS($A$2:$A2;$A2;$C$2:$C2;$C2;$D$2:$D2;$D2)

MFC pour avertir d'un double

Edit: Bonsoir Staple1600, mapomme

JHA

 

[Staple1600]

Re, EDITION(2) Bonsoir JHA

Une solution sommaire
(mais à tester en inhibant la procédure déjà présente dans ThisWorkBook)

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Application.CountIf(Range("C:C"), Target) > 1 Then
MsgBox "Doublons!", vbCritical, "ERREUR!"
Target.ClearContents
End If
End If
End Sub

A mettre dans le code de la feuille nommée Feuil1

EDITION(1): Une version plus aboutie

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Application.CountIf(Range("C:C"), Target) > 1 Then
MsgBox "Doublons!", vbCritical, "ERREUR!"
Target.Offset(, 1) = Format(Now, "dd-mm-yyyy | hh:mm:ss")
Target.ClearContents
End If
End If
End Sub

NB: Tu aurais avantage à transformer ton tableau en Tableau Excel (Insertion/Tableau)
Cela permets pas mal de choses

 

[mapomme]

Bonsoir Yusuke et bienvenue sur XLD,
Bonsoir JHA , Staple1600 , à toutes et tous,

Une piste avec une MFC indiquant les doublons : MFC sur la colonne C de formule :

=SOMMEPROD( --($A$2:$A$999=A2)*($C$2:$C$999<>"")*($C$2:$C$999=C2 )*(ENT($D$2:$D$999)=ENT(D2)))>1

La base est bizarre. La colonne C à mon avis est liée à la colonne D. Qu'est ce qui empêche un utilisateur de marquer une collation comme petit-déjeuner ?

 

[Staple1600]

Bonsoir mapomme

Tes lunettes aussi sont HS (comme ton processeur ) ?

 

[mapomme]

Salut @Staple1600

Tes lunettes aussi sont HS (comme ton processeur ) ?

Quelle bêtise ai je encore commise ? Je ne vois pas, je ne vois plus...

 

[Staple1600]

Re

Aucune.
Je te taquinais à cause de ceci

Bonsoir Yusuke,

Je m'attendais à lire
Bonsoir Yusuke, JHA, Staple, le forum

D'où la référence aux lunettes

 

[mapomme]

Re,

Je taquinais

C'est rassurant car j'avais beau relire trente-six fois le message, je ne trouvais pas ce qui clochait...
C'est vrai qu'un peu de civilité ne gâche rien .

 

[Staple1600]

Re

@mapomme
Tu me pardonnes ?

Sinon je trouve aussi bizarre cette histoire de choix de repas
A la relecture:
Ne serait-ce pas plutôt d’empêcher pour un même utilisateur la saisie d'un même repas le même jour ?

 

[mapomme]

Re,

Une autre piste avec une MFC uniquement sur les horaires de la colonne D sans tenir compte de la colonne C.
Deux repas sont supposés identiques s'ils sont distants d'1h30 ou moins.

=SOMMEPROD(--($A$2:$A$999=A2)*(ABS($D$2:$D$999-D2)<=1,5/24)*($D$2:$D$999<>""))>1

On pourrait faire cohabiter les deux MFC si on le voulait.

 

[Yusuke]

Bonjour à tous et merci pour vos réponses,

Toutes les solutions proposées sont opérationnelles. Peut être que je me suis mal exprimé au début, donc je reformule:

Un utilisateur n'a droit qu'à un et un seul repas par jour:
Petit déjeuner, déjeuner, collation(casse-croûte), et dîner.

La proposition de @Staple1600 me convient, puisque je souhaite appliquer la restriction via le code VB... Les deux critères qui m'importent sont l'unique ID et le Repas. Puis-je améliorer ce code :

If Application.CountIf(Range("C:C"), Target) > 1

pour effectuer une vérification sur la colonne ID et la colonne Repas, ensuite afficher un message et effacer les entrées de la même ligne en cas de doublon?

Merci encore une fois de votre aide.

 

[Staple1600]

Re

@Yusuke

Re
A la relecture:
Ne serait-ce pas plutôt d’empêcher pour un même utilisateur la saisie d'un même repas le même jour ?

Ah bah, voila on se rejoint

Bonjour à tous et merci pour vos réponses,
Un utilisateur n'a droit qu'à un et un seul repas par jour:
Petit déjeuner, déjeuner, collation(casse-croûte), et dîner.

PS: Quid de ma suggestion à propos de l'utilisation de la fonctionnalité Tableau d'Excel ?

 

[Yusuke]

Re

@Yusuke


Ah bah, voila on se rejoint



PS: Quid de ma suggestion à propos de l'utilisation de la fonctionnalité Tableau d'Excel ?

Je suis pour ! J'aimerais juste savoir comment combiner deux critères dans CountIf.

Merci.