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 : 445
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é 16 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
    140 Vues
    Dernier message par h2so4
    22 avril 2018, 12:06
  • Tache répété
    par kira301 » 15 décembre 2016, 20:54 » dans Excel - VBA
    4 Réponses
    257 Vues
    Dernier message par kira301
    16 décembre 2016, 22:49
  • Suivi de tache
    par baptistex1 » 12 octobre 2015, 18:38 » dans Excel - VBA
    6 Réponses
    472 Vues
    Dernier message par baptistex1
    13 octobre 2015, 18:49
  • Outlook creation tache
    par fabguilb » 21 décembre 2018, 14:51 » dans Excel - VBA
    2 Réponses
    113 Vues
    Dernier message par fabguilb
    14 janvier 2019, 13:14
  • Planning tâche et absence
    par zorzette » 13 avril 2019, 20:48 » dans Excel - VBA
    3 Réponses
    78 Vues
    Dernier message par zorzette
    15 avril 2019, 21:15
  • Automatiser une tâche
    par cnaman » 22 novembre 2017, 09:52 » dans Excel - VBA
    20 Réponses
    407 Vues
    Dernier message par cnaman
    24 novembre 2017, 16:51