Bonjour,
je me permets de rouvrir le poste car j'aimerai améliorer la formule en sélectionnant aléatoirement les cellules dans le tableau disposant d'un nom et prénom. Actuellement, j'ai des résultats qui renvoi "0" en correspondance aux cellules vides du tableau comme par exemple la cellule C11.
dans ce cas, cela devient difficile de la faire avec des fonctions standard excel.
Une proposition avec une fonction personnalisée. à utiliser comme une fonction excel
=choisir(plagedesnoms, plagedesnomsàexclure)
voir exemple d'utilisation dans les cellules G446 à G453
Function choisir(plage, Optional exclure = "")
' choisir un nom parmi les noms de la plage plage en excluant les noms de plage exclure
Dim n()
ReDim n(plage.Cells.Count)
For Each nom In plage
If nom <> "" Then
ok = True
If VarType(exclure) = 9 Then
For Each exclus In exclure
If nom = exclus Then ok = False
Next
End If
If ok Then
ctr = ctr + 1
n(ctr) = nom
End If
End If
Next
choisir = n(aleatoire(1, ctr))
End Function
Function aleatoire(borne_inférieure, borne_supérieure)
aleatoire = Int(Rnd() * (borne_supérieure - borne_inférieure + 1)) + borne_inférieure
End Function