Tache Aleatoire

Y compris Power BI, Power Query et toute autre question en lien avec Excel
k
kamellias
Membre habitué
Membre habitué
Messages : 108
Appréciation reçue : 1
Inscrit le : 10 février 2017
Version d'Excel : 2010

Message par kamellias » 2 mars 2017, 01:06

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
Tache.xlsx
(8.12 Kio) Téléchargé 6 fois
M
MFerrand
Fanatique d'Excel
Fanatique d'Excel
Messages : 17'203
Appréciations reçues : 444
Inscrit le : 20 juillet 2015
Version d'Excel : 2010 FR

Message par MFerrand » 2 mars 2017, 03:29

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.
kamellias_Tache.xlsm
(17.84 Kio) Téléchargé 13 fois
k
kamellias
Membre habitué
Membre habitué
Messages : 108
Appréciation reçue : 1
Inscrit le : 10 février 2017
Version d'Excel : 2010

Message par kamellias » 2 mars 2017, 03:40

Merci c'est parfait comme toujours

Bonne soiree
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Tache Aléatoire
    par Dehbi » 22 avril 2018, 01:40 » dans Excel - VBA
    1 Réponses
    133 Vues
    Dernier message par h2so4
    22 avril 2018, 12:06
  • Suivi de tache
    par baptistex1 » 12 octobre 2015, 18:38 » dans Excel - VBA
    6 Réponses
    464 Vues
    Dernier message par baptistex1
    13 octobre 2015, 18:49
  • Tache répété
    par kira301 » 15 décembre 2016, 20:54 » dans Excel - VBA
    4 Réponses
    247 Vues
    Dernier message par kira301
    16 décembre 2016, 22:49
  • FICHE DE TACHE AUTOMATIQUE
    par Tara94 » 10 juin 2015, 10:18 » dans Excel - VBA
    6 Réponses
    379 Vues
    Dernier message par James007
    10 juin 2015, 13:04
  • Automatiser une tâche
    par noella » 24 avril 2013, 13:20 » dans Excel - VBA
    2 Réponses
    394 Vues
    Dernier message par noella
    25 avril 2013, 10:34
  • USERFORM FICHE DE TACHE
    par Tara94 » 22 avril 2015, 14:40 » dans Excel - VBA
    25 Réponses
    1065 Vues
    Dernier message par Tara94
    7 mai 2015, 08:26