Tache Aleatoire

bonsoir a tous,

sur le fichier joint j'ai une liste de nom au quelles sont associes des taches designes par des lettres A,B,C etc..

ce que que je souhaiterai c'est me creer grace a un bouton lorsque je clic chque jours les taches soit attribues aleatoirement

Merci de votre aide

8tache.xlsx (8.12 Ko)

Bonjour,

Sub RépartTaches()
    Dim LT, t, n%, i%, x%, ch0$, cht$
    With Worksheets("Sheet1")
        n = .Cells(.Rows.Count, 2).End(xlUp).Row
        LT = .Range("B2:B" & n).Value
    End With
    n = n - 1
    For i = 1 To n
        ch0 = ch0 & Chr(i + 32)
    Next i
    Randomize
    For i = 1 To n
        x = Int(Len(ch0) * Rnd + 1)
        t = Mid(ch0, x, 1): cht = cht & t
        ch0 = Replace(ch0, t, "")
    Next i
    For i = 1 To n
        x = Asc(Mid(cht, i, 1)) - 32
        t = LT(x, 1): LT(x, 1) = LT(i, 1): LT(i, 1) = t
    Next i
    Worksheets("Sheet1").Range("B2:B" & n + 1).Value = LT
End Sub

Cordialement.

Merci c'est parfait comme toujours

Bonne soiree

Rechercher des sujets similaires à "tache aleatoire"