Discussion :

[citro]

Bonjour
J'ai créé un Userform qui me permet d'enregistrer la présence de personnes à une séance de piscine.
Dans ce Userform, je saisie une date dans la Textbox TextDateSeance ainsi que les noms des présents dans 10 Combobox CboNom1 à CboNom10.
Je souhaite m'assurer qu'au moment de la validation, ou pourquoi pas au moment de la saisie, je ne puisse pas enregistrer 2 fois la même personne pour une même date.
En colonne A, la date.
En colonne B, les noms.

Mon code est le suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
 
Private Sub CmdValider_Click()
 
Application.ScreenUpdating = False
 
 
If TxtDateSeance.Value = "" Then 'date vide
    MsgBox "Veuillez renseigner la date de la séance piscine"
 
ElseIf CboNomDP.Value = "" Then 'Nom DP vide
    MsgBox "Veuillez renseigner le nom du DP"
 
Else 'si tout va bien
 
 
 
    '===================================
    'remplir l'onglet "Présence Piscine"
    '===================================
 
    With Sheets("Présence Piscine")
 
 
 
 
        '1er Nom
        '-----------
        If CboNom1.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
 
            .Range("A" & L + 1).Value = TxtDateSeance.Value 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom1.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '2eme Nom
        '-----------
        If CboNom2.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom2.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '3eme Nom
        '-----------
        If CboNom3.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom3.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '4eme Nom
        '-----------
        If CboNom4.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom4.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '5eme Nom
        '-----------
        If CboNom5.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom5.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '6eme Nom
        '-----------
        If CboNom6.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom6.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '7eme Nom
        '-----------
        If CboNom7.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom7.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '8eme Nom
        '-----------
        If CboNom8.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom8.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '9eme Nom
        '-----------
        If CboNom9.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom9.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
        '10eme Nom
        '-----------
        If CboNom10.Value <> "" Then 'si la ligne est bien complétée
 
            L = .Range("A65536").End(xlUp).Row
            .Range("A" & L + 1).Value = Format(TxtDateSeance.Value, "mm/dd/yyyy") 'jour/mois inversés car excel le comprend en inversé... alors que la userform le comprend comme on le veut
            .Range("B" & L + 1).Value = CboNom10.Value
            .Range("C" & L + 1).Value = CboNomDP.Value
 
 
        End If
 
    End With
 
 
    'on décharge le formulaire pour qu'il soit de nouveau initialisé lors de son prochain affichage
    Unload Usf_Presence
 
    'mise en forme des cellules
    L = Sheets("Présence Piscine").Range("A65536").End(xlUp).Row 'dernière ligne des emprunts
 
    For i = 2 To L
        If i Mod 2 = 0 Then
            Sheets("Présence Piscine").Range("A" & i & ":D" & i).Interior.Color = 12566463 'Gris foncé
        Else
            Sheets("Présence Piscine").Range("A" & i & ":D" & i).Interior.Color = 14277081 'Gris clair
        End If
    Next i
 
End If
 
Application.ScreenUpdating = True
 
 
End Sub

Je n'arrive pas à ecrire ce code qui me permette d'éviter d'avoir des doublons, cela dépasse mes compétences.

Quelqu'un pourrait il m'aider ?

Merci

[Philippe Tulliez]

Bonjour,
La fonction NB.SI.ENS en Excel permet de dénombrer les cellules selon une ou plusieurs conditions
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
=NB.SI.ENS($A$2:$A$8;E2;$B$2:$B$8;F2)
où la plage A2:A8 contient des dates et la plage B2:B8 contient des prénoms. la cellule E2 une date et la cellule F2 un prénom

en VBA, c'est Application.WorksheetFunction.CountIfs
Exemple simple en VBA reprenant les mêmes références qui renverra la même valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 MsgBox Application.WorksheetFunction.CountIfs(Range("A2:A8"), Range("E2"), Range("B2:B8"), Range("F2"))

Il suffit donc de remplacer la référence aux cellules E2 et F2 par les contrôles TextBox ayant les valeurs de la Date et du Prenom pour connaître le dénombrement suivant conditions.

[citro]

Merci Philippe

Finalement, j'ai fait un filtre sur la date, et j'ai ensuite regardé sur cette date si les noms étaient déja saisis.
Pour info, mon fichier en PJ.

Bonne nuit