XL 2016 Choix unique pour le même utilisateur

Staple1600

XLDnaute Barbatruc

• 3 Juin 2018

• #2

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 ? 😉

 

Vote positif 0 Vote négatif

Yusuke

XLDnaute Nouveau

• 3 Juin 2018

• #3

Bonjour @Staple1600 ,

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

Merci encore une fois.

 

Pièces jointes

• TestMeal.xlsm

  18.1 KB · Affichages: 24

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 3 Juin 2018

• #4

Bonjour à tous,

Formule à essayer

Code:

=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

 

Pièces jointes

• Classeur Yusuke.xlsx

  10.7 KB · Affichages: 17
• Classeur Yusuke bis.xlsx

  11.3 KB · Affichages: 15

Dernière édition: 3 Juin 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juin 2018

• #5

Re, EDITION(2) Bonsoir JHA

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

VB:

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

VB:

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

 

Dernière édition: 3 Juin 2018

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Juin 2018

• #6

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 :

VB:

=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 ?

 

Pièces jointes

• Yusuke- TestMeal- v1.xlsm

  18.3 KB · Affichages: 19

Dernière édition: 3 Juin 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juin 2018

• #7

Bonsoir mapomme😉

Tes lunettes aussi sont HS (comme ton processeur 😉) ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Juin 2018

• #8

Salut @Staple1600 😉

Staple1600 à dit:

Tes lunettes aussi sont HS (comme ton processeur 😉) ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juin 2018

• #9

Re

Aucune.
Je te taquinais à cause de ceci

mapomme à dit:

Bonsoir Yusuke,

Cliquez pour agrandir...

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

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Juin 2018

• #10

Re,

Staple1600 à dit:

Je taquinais

Cliquez pour agrandir...

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 🙄.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juin 2018

• #11

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 ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Juin 2018

• #12

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.

VB:

=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.

 

Pièces jointes

• Yusuke- TestMeal- v2.xlsm

  18.3 KB · Affichages: 18

Vote positif 0 Vote négatif

Yusuke

XLDnaute Nouveau

• 3 Juin 2018

• #13

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 :

VB:

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juin 2018

• #14

Re

@Yusuke

Staple1600 à dit:

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 ?

Cliquez pour agrandir...

Ah bah, voila on se rejoint 😉

Yusuke à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Yusuke

XLDnaute Nouveau

• 3 Juin 2018

• #15

Staple1600 à dit:

Re

@Yusuke


Ah bah, voila on se rejoint 😉



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

Cliquez pour agrandir...

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

Merci.

 

Dernière édition: 3 Juin 2018

Vote positif 0 Vote négatif