XL 2019 alea entre bornes avec exception

Akafal50 à dit:

dans l'exemple que je joins, je ne souhaite pas que le 6 de la collone "base" revienne dans le resultat.

Cliquez pour agrandir...

• voulez-vous dire que la valeur de la colonne E (résultat du calcul) doit être différente de la valeur de la même ligne colonne D ?
• ou bien alors, vous avez choisi cette valeur 6 et elle doit être absente de toutes les valeurs de la colonne E ?
• ou bien encore autre chose ?

Akafal50 à dit:

Bonsoir les amis
je souhaite generer une liste aléatoire entre bornes, avec la possibilité d'exclure un chiffre au regard des chiffres de la colonne de gauche.
dans l'exemple que je joins, je ne souhaite pas que le 6 de la collone "base" revienne dans le resultat.
Merci pour votre assistance

Cliquez pour agrandir...

Function AleaSauf&(bInf&, bSup&, Exclude&)
Dim a&, continue as Boolean
    Do
        a = Application.WorksheetFunction.RandBetween(bInf, bSup)
        If a = Exclude Then continue = True Else continue = False
    Loop Until continue = False
    AleaSauf = a
End Function

=AleaSauf(1;25;6)

@patricktoulon (bonjour à toi )

car j'ai testé tout a l'heure 2 alea entre bornes lancé peuvent donner le même nombre

Cliquez pour agrandir...

• Si D9 = 1, on retourne un nombre aléatoire entre 2 et 24 (donc forcément diff. de 1)
• Si D9 = 25, on retourne un nombre aléatoire entre 1 et 24 (donc forcément diff. de 25)

• si X est inférieur à D9, on retourne un nombre aléatoire entre 1 et (D9-1) (donc forcément diff. de D9)
• si X est supérieur à D9, on retourne un nombre aléatoire entre (D9+1) et 25 (donc forcément diff. de D9)

• si Z est inférieur à 6, on retourne un nombre aléatoire entre 1 et 5 (donc forcément diff. de 6)
• si Z est supérieur à 6, on retourne un nombre aléatoire entre 7 et 25 (donc forcément diff. de 6)

Akafal50 à dit:

en fait, je veux que la valeur de la colonne E (résultat du calcul) soit différente de la valeur de la même ligne colonne D ?

Cliquez pour agrandir...