Problème de controle de duplication

Version imprimable

18/02/2013, 21h53
Chris171717

1 pièce(s) jointe(s)

Problème de controle de duplication

Bonsoir,

Dans le fichier joint, j'ai un souci de contrôle de duplication... je m'explique :

lorsque j'ajoute une personne à mon fichier, le contrôle de duplication se fait en tenant compte du nom entré dans ComboBox1, du coup si la personne a un frère par exemple, le contrôle me dite qu'il y a doublon car il s'agit du même nom...

ce que je souhaiterai, c'est que le contrôle de doublons prenne en compte :
* nom (ComboBox1)
* prénom (ComboBox2)
* classe (ComboBox3)
* date de retenue (TextBox3)

Ainsi il n'y a que si une personne est entrée deux fois pour la même date que le contrôle me met en garde pour la duplication...

Si vous pouviez m'aider, ce serait très sympa...

chris
19/02/2013, 00h10
Limace_hurlante

Bonsoir,

Si tu remplace :

Code:

If ComboBox1 = Ws.Range("A" & X) Then

par ca :

Code:

If ComboBox1 = Ws.Range("A" & X) And ComboBox2 = Ws.Range("B" & X) And ComboBox3 = Ws.Range("C" & X) And TextBox3 = Ws.Range("F" & X) Then

ca marche ?

Zac

ps: ça fait un peu mal au coeur d'aider à donner des heures de colle mais bon ...
19/02/2013, 00h34
Chris171717

1 pièce(s) jointe(s)

Bonsoir,

Merci beaucoup Limace_hurlante :ccool:

ça fonctionne... du coup si je peux me permettre une autre question... :lol:

existe-t-il une commande pour dire à mon fichier de trier automatiquement le tableau par ordre croissant (Nom / Prénom / Classe) à l'ouverture du fichier sans avoir à le demander...

autre question... si j'ai deux fois le même nom (frères par exemple), lorsque j'ajoute une personne, le rappel d'infos me décale les propositions... si je m'exprime mal, essaie en ajoutant une personne avec le nom "H", le prénom proposé automatiquement n'est pas "k"... :?

aurais-tu une idée !?

Je remets le fichier en pièce jointe car il a subit quelques modifs depuis aujourd'hui...

Merci encore

Chris

PS : ce n'est pas le fichier qui va donner les heures de colles, mais les personnels encadrants, pour ma part je ne suis pas un adepte des colles et j'essaie plutôt de faire de l'éducatif... :lol:
19/02/2013, 00h58
Limace_hurlante

Pour le problème des frère et soeur,

essai de mettre

Code:

Call UserForm_Initialize

juste avant la fin de ta fonction CommandButton1_Click qui se trouve dans l'userform2, ça devrait mettre à jour tes combobox à chaque fois que tu fait un ajout

zac

ps : merci, tu me rassure, j'avais mauvaise conscience :-)

ps2 : je suis sur le coup de ton triage automatique, a suivre dans pas longtemps (j’espère)

Dans le code de l'object ThisWorkBook

A la place de

Code:

1
2
3
Private Sub Workbook_Open()
UserForm1.Show
End Sub

mets :

Code:

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
 
Private Sub Workbook_Open()
call TriageAuto
UserForm1.Show
End Sub
 
Sub TriageAuto()
Dim LFin As Long, Ret As Object
 
Set Ret = ActiveWorkbook.Worksheets("Retenues")
LFin = Range("A1").End(xlDown).Row
 
Ret.Sort.SortFields.Clear
Ret.Sort.SortFields.Add Key:=Range(Cells(2, 1), Cells(LFin, 1)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Ret.Sort.SortFields.Add Key:=Range(Cells(2, 2), Cells(LFin, 2)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Ret.Sort.SortFields.Add Key:=Range(Cells(2, 3), Cells(LFin, 3)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Retenues").Sort
    .SetRange Range(Cells(1, 1), Cells(LFin, 9))
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
End Sub

19/02/2013, 10h09
Chris171717

Bonjour,

ça ne fonctionne pas :(

Pour les frères et soeurs le souci reste le même... si tu veux entrer par exemple le nom "H", il affiche automatiquement les informations correspond à deux lignes plus haut...

Pour le tri... il me met une erreur à la ligne 13 de ton code... :?
19/02/2013, 11h21
Chris171717

1 pièce(s) jointe(s)

Re !

Inutile de cherche pour le tri de cette manière... j'ai préféré finalement ne pas trier à l'ouverture mais dans mes comboBox directement... j'ai réussi pour tous mes UserForm, par contre ce tri ne fonctionne pas pour mon userform2 :?

Pour les freres et soeurs, ma question est finalement... puis-je mettre à jour l'affichage de mes champs en fonction de ComboBox1, puis de Combobox2, puis de ComboBox3 !? ce qui ne focntionne pas pour le moment...

je remets le fichier en PJ