XL 2013 Récuperer de façon aléatoire

xUpsilon

XLDnaute Accro

• 7 Octobre 2019

• #2

Bonjour,

Tu peux générer un nombre aléatoire d'une certaine plage de nombres via cette formule :

VB:

Dim NbAleat as Int
NbAleat = Int((ValMax - ValMin + 1) * Rnd + ValMin)

Avec ValMax ta valeur maxi (ici 53448) et ValMin ta valeur mini (ici 2).
Ensuite, il faudrait avoir une mémoire pour conserver les valeurs qui sont déjà sorties, mais Rdn étant une fonction pseudo aléatoire, je doute qu'il te ressorte plusieurs fois la même valeur en 2000 coups (à tester malgré tout).
Ensuite, pour atteindre l'adresse mail de la ligne concernée, tu utilises une fonction telle que (si tes adresses mail sont dans la colonne A) :

Code:

Dim Mail as String
Mail = Range("A" & NbAleat)

Bonne continuation

 

Vote positif 0 Vote négatif

T

Tarrain

XLDnaute Junior

• 7 Octobre 2019

• #3

oula il faut que je mette cela dans une macro ? et apres j'actionne la macro comment et ou ?

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 7 Octobre 2019

• #4

Il te suffit d'aller dans l'onglet "Développeur", ensuite tu crées un bouton de commande, puis clic droit dessus -> Affecter une macro. Ensuite Nouvelle Macro et tu adaptes mes bouts de code ci-dessus à ce que tu veux faire, je pense notamment au fait que tu veuilles peut être noter les adresses mails qqpart, et boucler plutot que d'avoir à cliquer 2000 sur le bouton à chaque tirage.

Bonne continuation

 

Vote positif 0 Vote négatif

T

Tarrain

XLDnaute Junior

• 7 Octobre 2019

• #5

"je pense notamment au fait que tu veuilles peut être noter les adresses mails qqpart, et boucler plutot que d'avoir à cliquer 2000 sur le bouton à chaque tirage. " oui tout a fait !

 

Vote positif 0 Vote négatif

xUpsilon

XLDnaute Accro

• 7 Octobre 2019

• #6

Voici un exemple très simple pour te tirer 2000 adresses mail et les stocker dans la colonne B :

VB:

Dim NbAleat as Int
Dim Mail as String

For i = 1 to 2000
    NbAleat = Int((ValMax - ValMin + 1) * Rnd + ValMin)
    Mail = Range("A" & NbAleat)
    Range("B" & i) = Mail
Next i

Je te laisse adapter tous les paramètres à tes besoins et me dire s'il y a des choses que tu voudrais changer/rajouter.

Bonne continuation

 

Vote positif 0 Vote négatif

T

Tarrain

XLDnaute Junior

• 7 Octobre 2019

• #7

j'ai fait comme décrit mais j'ai un probleme de syntaxe ( voir fichier joint )
Merci a toi

 

Pièces jointes

• Capture.JPG

  60.4 KB · Affichages: 10

Vote positif 0 Vote négatif

T

Tarrain

XLDnaute Junior

• 7 Octobre 2019

• #8

excuse moi c'est cette image

 

Pièces jointes

• Capture.JPG

  89.2 KB · Affichages: 10

Vote positif 0 Vote négatif

T

Tarrain

XLDnaute Junior

• 7 Octobre 2019

• #9

je te donne mon fichier avec ce que j'ai fait que tu puisse voir exactement
encore merci https://www.cjoint.com/c/IJhpCgikjSL

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Octobre 2019

• #10

Bonsoir.

Tarrain à dit:

Bien sûr il ne faut pas récuperer deux fois la même case (adresse mail)

Cliquez pour agrandir...

Je ne vois pas de trace de cette condition dans votre programmation.
La fonction perso ListeAl de ce classeur pourrait vous être utile.

 

Pièces jointes

• ListeAléat.xlsm

  279.2 KB · Affichages: 3

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 7 Octobre 2019

• #11

Un exemple d'utilisation en formule dans votre classeur avec réinstallation de celle ci si des conditions changent

 

Pièces jointes

• Temp.xlsm

  23.9 KB · Affichages: 3

Vote positif 0 Vote négatif