Formule de calcul pour tirage au sort

Le 05/04/2010 à 20:29

Salut fabrice,

Rien de bien grave (heureusement). Vers le début de la macro, remplace la ligne :

        Set num = Sheets("Résultats").Range("BC10:BC" & derlignTmp).Find(lg, LookIn:=xlValues)

par celle-ci :

        Set num = Sheets("Résultats").Range("BC10:BC" & derlignTmp).Find(lg, LookIn:=xlValues, LookAt:=xlWhole)

Le 06/04/2010 à 07:46

Bonjour forum, vba-new,

Super ! J'essaye ce soir.

Bonne journée à tous.

Fabrice,

Le 07/04/2010 à 19:55

Bonsoir à tous, Forum,

Je n'ai qu'un mot à dire : BRAVO !!!

Après plusieurs tests, il semble que tout fonctionne à merveille...

Merci à toi vba-new pour tout ce travail fabuleux que tu as fait pour moi. Je vais tâcher de comprendre les formules et la macro du 3e tirage.

Encore un immense merci à toi vba-new et à bientôt peut-être sur un autre fil...

Amicalement.

Fabrice,

Le 08/04/2010 à 09:32

Salut fabrice,

De rien

Fabrice69 a écrit :
Je vais tâcher de comprendre les formules...

Ça ça va.

Fabrice69 a écrit :
et la macro du 3e tirage

Aïe ! Ça, ça peut-être un peu plus compliqué ! En effet, comme je l'ai dit, je t'ai bricolé une macro de tirage aléatoire au fur et à mesure des problèmes rencontrés. Donc niveau optimisation et clarté du code, c'est pas forcément le top (mais ça marche !...pour l'instant). Moi-même je pense que j'aurais un peu de mal !

Mais bon, rien est impossible

Je te souhaite bon courage et à la prochaine !

Amicalement