Tirage au sort avec une condition

Bonjour,

Je souhaite lancer le tirage au sort d'un nom par rapport à une liste (Colonne A).
Mais je veux écarter les personnes dont le statut est à 0 dans la colonne B (voir image ci-dessous).

Pièce jointe 611866

Je pense à du code VBA mais je ne m'y connais pas assez,
Merci beaucoup de bien vouloir m'aider,
A bientôt

Bonjour,
tu peux essayer ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub TirageAuSort() Dim x As Integer Dim listeNoms As New Collection Randomize ActiveSheet.Range("A2").Select For x = 0 To 5 'Si la cellule de la colonne B ne contient pas 0 on l'ajoute à la collection If ActiveCell.Offset(x, 1) > 0 Then listeNoms.Add (ActiveCell.Offset(x, 0).Text) End If Next Debug.Print listeNoms.Item(Int(listeNoms.Count * Rnd) + 1) End Sub

---

Mais je pense que l'on peut s'en sortir avec une formule.

Nullosse, le plus nul des programmeurs

Bonjour Nullosse,

Peut-on afficher le résultat dans une cellule en colonne D ?

Dans mon cas, je me demande si la solution à privilégier serai plutôt une macro, car j'aimerai ensuite relier le résultat à Power Automate par la suite.

Citation:

---

Envoyé par Conundrum

Bonjour Nullosse,

Peut-on afficher le résultat dans une cellule en colonne D ?

Dans mon cas, je me demande si la solution à privilégier serai plutôt une macro, car j'aimerai ensuite relier le résultat à Power Automate par la suite.

---

Pour la première question :

Code:

---

Range("D4").Value = listeNoms.Item(Int(listeNoms.Count * Rnd) + 1)

---

Pour la deuxième question, je ne sais pas

Merci beaucoup Nullosse !
ça marche impeccablement