Tirage au sort sur plusieurs pages

[Xihoo89]

Bonjour à tous

Je souhaiterais faire un tirage au sort parmi différents adhérents de club.

Sur chaque page de mon fichier j'ai un club et je voudrais que sur une dernière page effectuer un tirage au sort parmi les adhérents.

Je voudrais que les adhérents ne soient tirer qu'une seule fois au sort (car j'effectuerai plusieurs tirages).

Le point qui est plus compliqué (pour moi) c'est que parmi tous les adhérents il y en a qui ne seront pas là lors de la manifestation. Donc j'ai une case à coté de chaque adhérent avec le nombre de km parcourus (ce sont des clubs de vélos) et je voudrais que le tirage au sort se fasse avec les adhérents dont la case "nb de km" est remplie.

Je ne sais pas si tout cela est possible. je joins un fichier qui résume mon type de fichier.

Est-ce quelqu'un pourrait me donner quelques conseils car je n'ai énormément de connaissances excel

Merci d'avance
Bryan

 

[soenda]

Re : Tirage au sort sur plusieurs pages

Bonjour le fil, Xihoo89

... faire un tirage au sort parmi différents adhérents de club ...

Combien d'adhérents doivent-être sélectionnés à chaque tirage ?

A plus

 

[Xihoo89]

Re : Tirage au sort sur plusieurs pages

un seul adhérent doit être tirer au sort à chaque tirage mais je voudrais qu'il ne puisse plus être tiré au sort après

 

[ROGER2327]

Re : Tirage au sort sur plusieurs pages

Bonjour à tous

Un essai :

[COLOR="DarkSlateGray"][B]Option Explicit

Private Sub Tirage_Click()
   test
End Sub

Sub test()
Dim p As Range, oCel As Range, oNom As Range, oDat(), nDat&, qDat(), pDat&, i&
   On Error GoTo E
   Set p = Range("Feuille")
   On Error GoTo 0
   With Sheets("Exclus")
      If Not IsEmpty(.[A2]) Then
         With .[A2].Resize(.[A1].End(xlDown).Row - 1, 1)
            For Each oNom In .Cells
               pDat = pDat + 1
               ReDim Preserve qDat(1 To pDat)
               qDat(pDat) = oNom.Value
            Next oNom
         End With
      End If
   End With
   For Each oCel In p.Cells
      On Error GoTo E1
      With Sheets(oCel.Value)
         If Not IsEmpty(.[A2]) Then
            With .[A2].Resize(.[A1].End(xlDown).Row - 1, 1)
               For Each oNom In .Cells
                  If oNom.Offset(0, 1).Value <> "" Then
                     If pDat Then
                        For i = 1 To pDat
                           If oCel.Value & "/" & oNom.Value = qDat(i) Then Exit For
                        Next i
                     End If
                     If i > pDat Or pDat = 0 Then
                        nDat = nDat + 1
                        ReDim Preserve oDat(1 To 3, 1 To nDat)
                        oDat(1, nDat) = oCel.Value
                        oDat(2, nDat) = oNom.Value
                        oDat(3, nDat) = oCel.Value & "/" & oNom.Value
                     End If
                  End If
               Next oNom
            End With
         End If
      End With
S1:   On Error GoTo 0
   Next oCel
   Randomize
   If nDat Then
      Sheets("Exclus").Cells(pDat + 2, 1).Value = oDat(3, 1 + Int(nDat * Rnd()))
      MsgBox oDat(2, 1 + Int(nDat * Rnd(0))) & " (" & oDat(1, 1 + Int(nDat * Rnd(0))) & ")"
   End If
Exit Sub
E1:   Resume S1
E:
End Sub[/B][/COLOR]

Voir la mise en œuvre dans le classeur joint.​

ROGER2327
#2901

 

[Xihoo89]

Re : Tirage au sort sur plusieurs pages

Bonjour Roger2327,

merci pour votre aide mais il n'y a pas le classeur joint.
Pourriez-vous le reenvoyer.
Merci
Bryan

 

[soenda]

Re : Tirage au sort sur plusieurs pages

Bonjour le fil, Roger2327, Xihoo89

En l'absence de Roger, et comme j'avais bien entamé le classeur hier soir.
Voir PJ.

A plus

PS: La sub ne vérifie pas, si un coureur est inscrit dans plus d'un club

 

[Xihoo89]

Re : Tirage au sort sur plusieurs pages

Je viens de regarder rapidement, c'est exactement ce que je cherchais.
Merci beaucoup.
Je regarderai ça plus en detail demain.

Merci
Bryan

 

[ROGER2327]

Re : Tirage au sort sur plusieurs pages

Bonjour Roger2327,

merci pour votre aide mais il n'y a pas le classeur joint.
Pourriez-vous le reenvoyer.
Merci
Bryan

Je répare l'oubli...


ROGER2327
#2902

 

[Compte Supprimé 979]

Re : Tirage au sort sur plusieurs pages

Bonsoir tout le monde

Moi je n'aime pas tirer au hasard sur des pages ...

surtout que je n'aime pas les armes à feu 😛😀

 

[Xihoo89]

Re : Tirage au sort sur plusieurs pages

Un très grand merci à tous les deux.
Vous etes très rapide

 

[ROGER2327]

Re : Tirage au sort sur plusieurs pages

Re...

Bonsoir tout le monde

Moi je n'aime pas tirer au hasard sur des pages ...

surtout que je n'aime pas les armes à feu 😛😀

Tant qu'il ne s'agit pas de tirer des pages...
Passons...

À Xihoo89 : vous remarquerez que les deux propositions que vous avez eues ne font pas exactement la même chose.
À vous de voir ce qui vous convient...
​

ROGER2327
#2907