Eviter Doublons

[lynyrd]

Bonsoir à tous
Avec l'aide du forum pour la conception du code VBA,l'application fonctionne normalement,mais je viens de m'apercevoir qu'il peut y avoir des doublons lors des 4 tirages.
Y a t'il de grosses modifications à faire pour éviter cela.
Merci.

 

[Gael]

Re : Eviter Doublons

Bonjour Lynyrd, bonjour à tous,

2 questions avant de te répondre:

Peux-tu expliquer ce que tu considères comme un doublon?

Si les 4 tirages doivent toujours être effectués, peut-on les enchaîner automatiquement ou doivent-ils rester indépendants?

@+

Gael

 

[Brigitte]

Re : Eviter Doublons

Bonjour,

Et histoire de faire coucou "légal" sur ce fil à Gaël, voici ma toute petite pierre à l'édifice :

Pour saisir des temps faits par des personnes (dossards) à l'arrivée d'une course et éviter le doublonnage (quand un dossard était déchiré, on lisait vite et il arrivait qu'on saisisse deux fois le même dans notre tableau), mon fiston à l'époque (2001/2002) avait inséré dans l'usf de saisie ce petit bout de code :

Private Sub OKbutton_Click()
Dim action As Boolean
Dim numdossard As Integer
Dim i As Integer
Dim numtemps As Variant
If saisie.Dossard.Text = "" Or saisie.Temps.Text = "" Then
GoTo fin
End If
numdossard = saisie.Dossard.Text
numtemps = saisie.Temps.Text
action = False
[COLOR=red]For i = 1 To 500 Step 1[/COLOR]
[COLOR=red]  If Cells(i + 2, 1) = numdossard Then[/COLOR]
[COLOR=red]     If Cells(i + 2, 9) <> "NA" Then[/COLOR]
[COLOR=red]       saisie.Hide[/COLOR]
[COLOR=red]       MsgBox ("ATTENTION, un temps a déjà été enregistré")[/COLOR]
[COLOR=red]       Rows(i + 2).Select[/COLOR]
[COLOR=red]       action = True[/COLOR]
[COLOR=red]       Exit For[/COLOR]
[COLOR=red]     End If[/COLOR]
[COLOR=red]     If Cells(i + 2, 9) = "NA" Then[/COLOR]
[COLOR=red]       Cells(i + 2, 9) = numtemps[/COLOR]
[COLOR=red]       Cells(i + 2, 9).Select[/COLOR]
[COLOR=red]       saisie.Dossard.Text = ""[/COLOR]
[COLOR=red]       saisie.Temps.Text = ""[/COLOR]
[COLOR=red]       saisie.Dossard.SetFocus[/COLOR]
[COLOR=red]       tempsprec = numtemps[/COLOR]
[COLOR=red]       dossardprec = numdossard[/COLOR]
[COLOR=red]       action = True[/COLOR]
[COLOR=red]       Exit For[/COLOR]
[COLOR=red]     End If[/COLOR]
  End If
 Next i
 If action = False Then
 saisie.Hide
 MsgBox ("Le dossard n'a pas été enregistré")
 End If
fin:

Bisous Gaël, il fait un peu plusssssss soleil que prévu, mais ca va ti durer ...

 

[lynyrd]

Re : Eviter Doublons

Bonjour le forum,Gael,brigitte
j'entend par doublon le fait que 2 équipes ne puissent se rencontrer plusieurs fois dans les 4 tirages.
Je souhaiterais si cela reste possible que les tirages soient indépendants.
Merci.

 

[Brigitte]

Re : Eviter Doublons

Ah ben alors rien à voir avec mon titexemple... Bon dimanche à toi... et bon courage pour ta réalisation.