Bonjour,

Voila je prends  à chaque fois au hasard  huit noms d'une liste qui en contient 32

Comment procéder pour qu 'a la deuxième  sélection  elle ne prend pas les huit premiers,

Merci d'avance

salut,

commence ton rnd... + 8

besoin de code? mets nous le tien ;)
++

---

Prenez un instant pour répondre à ce sondage svp

'''''''''''''''''''''''''''''''''''''''
' ma fonction hasard
Public Function Hasard(Min As Integer, Max As Integer) As Integer
    Hasard = Int((Max * Rnd) + Min)
End Function
'''
'''choisie un nom au hasard
Function Les_Nom()
    Dim Valeur As String
    Randomize
    Valeur = Valeur & Range("C55").Offset(Hasard(1, 32), 0) & vbCrLf
    Range("G49").Value = Left(Valeur, Len(Valeur) - 2)
    nom = Range("G49").Value
End Function
'''
'''
Private Sub CmdApply_1_Click()
'''je met les noms  dans  les textbox
Do '''nom n°1
    Index_1 = 0
    Call Les_Nom
    Txtb8_1.Value = nom
    liste_Nom(1) = Txtb8_1.Value
    Index_1 = Index_1 + 1
    Call Les_Nom
    ''' if pour nom n°2
 If nom <> liste_Nom(1) And Club <> Liste_Club(1) And poids = Liste_Poid(1) Then
    Txtb8_2.Value = nom
    liste_Nom(2) = Txtb8_2.Value
    Index_1 = Index_1 + 1
    Else
   Index_1 = Index_1 - 2
    End If
    Loop While Index_1 <> 2
End Sub
'''maintenant je voudrais qu'il repete la selection sans les deux premier mot et ainsi de suite

umm...

avec un param?



Public Function Hasard(Min As Integer, Max As Integer) As Integer
    Hasard = Int((Max * Rnd) + Min)
End Function
'''
'''choisie un nom au hasard
Function Les_Nom(iVal As Integer)
    Dim Valeur As String
    Valeur = Valeur & Range("C55").Offset(Hasard(iVal, 32), 0) & vbCrLf
    Range("G49").Value = Left(Valeur, Len(Valeur) - 2)
    nom = Range("G49").Value
End Function
'''
'''
Private Sub CmdApply_1_Click()
    Randomize
    '''je met les noms  dans  les textbox
    Do '''nom n°1
        Index_1 = 0
        Call Les_Nom(1)
        Txtb8_1.Value = nom
        liste_Nom(1) = Txtb8_1.Value
        Index_1 = Index_1 + 1
        Call Les_Nom(8)
        ''' if pour nom n°2
        If nom <> liste_Nom(1) And Club <> Liste_Club(1) And poids = Liste_Poid(1) Then
            Txtb8_2.Value = nom
            liste_Nom(2) = Txtb8_2.Value
            Index_1 = Index_1 + 1
        Else
            Index_1 = Index_1 - 2
        End If
    Loop While Index_1 <> 2
End Sub

Coloration syntaxique automatique [AFCK]
       

---

Prenez un instant pour répondre à ce sondage svp

Salut,

Je n'ais pas   très bien compris ce que tu as fait (tu as placer une sorte d'index ou quoi)

Parce que  si je click plusieurs fois les mêmes nom reviennent deux a trois fois avant de

De faire toute la liste

Moi ce que je voudrais faire c'est afficher les 32 noms sans que le même nom reviennent deux fois

 Merci

ce qui n'a rien à voir avec ta question de départ....

il faut ajouter un test et une boucle. tant que le résultat = entité déja sortie, on recommence.

ou alors utilise une collection (beaucoup pour peu) et vire l'item lorsqu'il est utilisé.

++

---

Prenez un instant pour répondre à ce sondage svp

C'est ça le problème le vire une fois utilise: comment le vire de ma liste

re,
umm, j'ai modifié pour le principe
par contre je ne comprends pas :
Valeur = Valeur & Range("C55").Offset(Hasard(1, 32), 0) & vbCrLf

pourquoi valeur reçoit lui-même & ...., alors que lui-même est vide?
et pourquoi suivi d'un retour chariot?

bref, çà donne çà :
Function Les_Nom()
    Dim Valeur As String, iRes As Integer
    Randomize
    Do
        iRes = Hasard(1, 32)
        Valeur = Range("C55").Offset(iRes, 0)
    Loop Until LenB(Valeur) > 0
    Range("C55").Offset(iRes, 0) = vbNullString
    nom = Valeur
End Function

---

Prenez un instant pour répondre à ce sondage svp

ps : faire une sub, ou renvoyer un résultat (sinon pourquoi faire une fonction...)

Décidément je m'en sortirais pas de ce problème

La correction que tu as faite fonctionne bien pendant 2 a 3 Click puis il bug

Peu être que j'ai fait une connerie en recopiant

Merci

 

Ps : désole de te faire perdre ton temps avec mes futilité
'-------------------------
Public Function Hasard(Min As Integer, Max As Integer) As Integer
    Hasard = Int((Max * Rnd) + Min)
End Function
'-------------------------------------
Function Les_Nom()
    Dim Valeur As String, iRes As Integer
    Randomize
    Do
        iRes = Hasard(1, 32)
        Valeur = Range("C55").Offset(iRes, 0)
    Loop Until LenB(Valeur) > 0
    Range("C55").Offset(iRes, 0) = vbNullString
    nom = Valeur
End Function
'------------------------------
Private Sub CmdApply_1_Click()
On Error GoTo Err_1
Call Les_Nom
Txtb8_1.Value = nom
Call Les_Nom
Txtb8_2.Value = nom
Call Les_Nom
Txtb8_3.Value = nom
Exit Sub

Err_1:
MsgBox ("salut")
End Sub