Fonction alea avec une conditionnelle
Résolu
kawtdanne
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai réalisé une base excel, avec des numéros de dossiers et les noms des employés qui ont traités ces dossiers. quelle formule je dois utiliser pour avoir un numéro de dossier choisi au hasard à chaque fois que le nom de l'employer est par exemple julie?
merci
j'ai réalisé une base excel, avec des numéros de dossiers et les noms des employés qui ont traités ces dossiers. quelle formule je dois utiliser pour avoir un numéro de dossier choisi au hasard à chaque fois que le nom de l'employer est par exemple julie?
merci
1 réponse
-
Bonjour
En supposant que les numéros de dossiers soient colonne A, les noms en colonne B, le nom de l'employée choisie en D1, utiliser la formule matricielle suivante :=INDEX(A1:A1000;GRANDE.VALEUR(LIGNE(B1:B1000)*(B1:B1000=D1);ALEA.ENTRE.BORNES(1;NB.SI(B1:B1000;D1))))
à valider par Ctrl+Maj+Entrée pour obtenir au hasard, un des dossiers de cette employée.
Cordialement
Patrice-
Merci patrice,
Je viens seulement de voir ta réponse, j'ai finalement résolu le probleme autrement, j'ai trouvé sur internet un programme vba qui m'a permis de créer un formulaire ( avec une barre de défilement contenant les noms des personnes). Je choisi le nom que je veux et j'appuie sur le bouton de commande et un numéro de dossier correspondant au gestionnaire s'affiche.
le code utilisé est le suivant:
Private Sub CommandButton1_Click()
Dim MyValue As Integer
Randomize
re:
MyValue = Int(((Range("A65536").End(xlUp).Row) - 1) * Rnd) + 1
If CheckBox2.Value = False And gestionnaire <> Range("B" & MyValue).Value Then GoTo re
Hasard_Nom = Range("A" & MyValue).Value
MsgBox "Le fichier tirZ au sort est le : " & Hasard_Nom
'UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
gestionnaire.List = Array("a", "b","c")
CheckBox2.Value = True
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
gestionnaire = ""
End If
End Sub
Private Sub gestionnaire_Change()
If gestionnaire <> "" Then
CheckBox2.Value = False
End If
End Sub -
-
