Bonjour,
Dans le cadre de mon travail (finance), dans notre equipe nous avons une liste de fonds à contrôler/gérer. Quand une personne est absente, l'équipe prend en "back-up" les fonds de la personne en congés. Pour le moment, chaque personne a toujours la même liste de portefeuilles.
J'ai donc une liste de portefeuilles avec des caractéristiques qui ont plusieurs colonnes et la personne a qui j'attribue le portefeuille.
Pour générer aleatoirement les noms j'utilise cette macro :
Sub melange()
Dim melange As New Collection
Dim j%
For Each o In Selection
melange.Add o.Value
Next
k = melange.Count
Do While k > 0
If k > 0 Then
j = j + 1
i = Int((k * Rnd) + 1)
x = melange(i)
Cells(j, 1) = x
melange.Remove i
k = k - 1
End If
Loop
End Sub
Je voudrais perfectionner la macro car comme vous pouvez le voir dans l'exemple ci-joint, chaque personne a un fonds quotidien et un fonds hebdo, est-ce possible de générer aleatoirement la liste des noms pour qu'après la macro, chaque chargé ait de nouveau un fonds quotidien et hebdo mais différent d'avant.
Merci pour votre aide (exemple en pièce jointe) !
Dans le cadre de mon travail (finance), dans notre equipe nous avons une liste de fonds à contrôler/gérer. Quand une personne est absente, l'équipe prend en "back-up" les fonds de la personne en congés. Pour le moment, chaque personne a toujours la même liste de portefeuilles.
J'ai donc une liste de portefeuilles avec des caractéristiques qui ont plusieurs colonnes et la personne a qui j'attribue le portefeuille.
Pour générer aleatoirement les noms j'utilise cette macro :
Sub melange()
Dim melange As New Collection
Dim j%
For Each o In Selection
melange.Add o.Value
Next
k = melange.Count
Do While k > 0
If k > 0 Then
j = j + 1
i = Int((k * Rnd) + 1)
x = melange(i)
Cells(j, 1) = x
melange.Remove i
k = k - 1
End If
Loop
End Sub
Je voudrais perfectionner la macro car comme vous pouvez le voir dans l'exemple ci-joint, chaque personne a un fonds quotidien et un fonds hebdo, est-ce possible de générer aleatoirement la liste des noms pour qu'après la macro, chaque chargé ait de nouveau un fonds quotidien et hebdo mais différent d'avant.
Merci pour votre aide (exemple en pièce jointe) !
Pièces jointes
Dernière édition: