[XL-2003] Tirage au sort aléatoire

[PAUL87]

Bonjour à tous,
Je souhaite réaliser un tirage au sort aléatoire d'attribution de position 1er ou 2ème pour A et B
pour chaque jour du mois.
Je ne connais pas du tout les fonctions vba qui pourraient me permettre de faire ça.
Si ça fonctionne, j'ai besoin de pouvoir faire la meme chose pour un tirage au sort à 3 puis à 4 éléments.
Je ne sais pas si je suis bien clair...à vrai dire..
voir mon modèle ci-joint
Merci pour vos conseils

[rjamin]

Bonjour,
Dans l'aide VBA d'Excel on trouve la fonction Rnd

Dim MyValue
' Renvoie une valeur aléatoire comprise entre 1 et 6.

Code :

MyValue = Int((6 * Rnd) + 1)

Rnd, fonction

Renvoie une valeur de type Single contenant un nombre aléatoire.

Syntaxe

Rnd[(number)]

L'argument number est facultatif. Il peut contenir une valeur de type Single ou toute expression numérique valide.

Valeurs renvoyées

Argument number Nombre généré par la fonction Rnd
Inférieur à zéro Même nombre à chaque fois, en utilisant l'argument number comme valeur initiale.
Supérieur à zéro Nombre aléatoire suivant dans la série.
Égal à zéro Dernier nombre aléatoire généré.
Omis Nombre aléatoire suivant dans la série.



Remarques

La fonction Rnd renvoie une valeur inférieure à 1 mais supérieure ou égale à zéro.

La valeur de l'argument number définit le mode de génération adopté par Rnd :

Quelle que soit la valeur initiale indiquée, la même série de nombres aléatoires est générée à chaque appel de la fonction Rnd, car cette dernière réutilise le nombre aléatoire précédent comme valeur initiale pour le calcul du nombre suivant.

Avant d'appeler Rnd, utilisez l'instruction Randomize sans argument pour initialiser le générateur de nombres aléatoires à partir d'une valeur initiale tirée de l'horloge système.

Pour générer des entiers aléatoires dans une plage donnée, utilisez la formule ci-dessous :

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Dans cette formule, upperbound désigne la limite supérieure de la plage et lowerbound la limite inférieure.

Note Pour obtenir plusieurs fois les mêmes séries de nombres aléatoires, appelez Rnd avec un argument négatif juste avant d'utiliser Randomize avec un argument numérique. L'utilisation de Randomize en répétant pour l'argument number la valeur précédente ne permet pas de reproduire une série de nombres.

[PAUL87]

bonjour..
ben..ceci m'a l'air bien ardu...
bien au dessus de mon niveau vba..
merci quand même..