Discussion :

[Conundrum]

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).



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

[Nullosse]

Bonjour,
tu peux essayer ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[Nullosse]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Pour la deuxième question, je ne sais pas

[Conundrum]

Merci beaucoup Nullosse !
ça marche impeccablement