Fonction alea avec une conditionnelle
Résolu/Fermé
kawtdanne
-
7 mai 2013 à 12:57
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 8 mai 2013 à 13:38
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 8 mai 2013 à 13:38
A voir également:
- Fonction alea avec une conditionnelle
- Fonction si et - Guide
- Mise en forme conditionnelle excel - Guide
- Fonction moyenne excel - Guide
- Excel liste déroulante conditionnelle - Guide
- Mise en forme conditionnelle en fonction d'une autre cellule ✓ - Forum Excel
1 réponse
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
Modifié par Patrice33740 le 7/05/2013 à 14:42
Modifié par Patrice33740 le 7/05/2013 à 14:42
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 :
Cordialement
Patrice
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
8 mai 2013 à 12:56
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
8 mai 2013 à 13:38