Tirage au sort puis retirage des doublons

Bonjour à tous,

Je fais un tirage un peu particulier et je n'arrive pas à comprendre ce que fait la macro.

Dans la même macro je lui demande de retirer les doublons que j'affiche à l'écran car je trouve çà assez sympa de les voir diminuer.

En essayant de grouper les boutons tirage et retirage, çà ne fonctionne plus: Au lieu d'effacer que les doublons, il efface une partie des premiers numéros au retirage,

et je comprends pas ou il fait çà dans la macro pour résoudre le problème et je m'adresse aux experts.

Mais je viens de m'apercevoir qu'en triant la 1ere liste par les n°, çà résolvait le problème.

Je pensais qu'il ne s'occupait pas de la 1ere liste si on lui dit de choisir un n° aléatoire parmi x nombres, mais je crois que si.

            For i = 2 To tas + 1
                If ws.Range("O" & i) = "doublon" Then
                    ws.Range("O" & i).ClearContents
                    ws.Range("N" & i) = Int((eff) * Rnd) + 1
                End If
            Next i

Merci de votre aide.

Bonjour Fronck,

La solution est trouvée ou pas votre post est indiqué comme tel...

A+

Bonjour Bruno,

Oui c'est bon, en triant les noms sur le n°, çà fonctionne bien.

Merci