[EXCEL] Fonction aléatoire

13
7 février
Bonjour,

Je recherche à créer une fonction aléatoire sur excel mais je n'ai pas les connaissances nécessaires et ne trouve pas la solution sur le net. ^^


Ci-dessous le tableau de données type : (il se reproduit sur une dizaine de feuilles avec parfois plus d'une vingtaines de sociétés)
1835472-3WN2n.jpg

L'idéal serait d'appuyer sur un bouton et que les données de 3 sociétés (nom + numéro de téléphone) s'affiche à un endroit fixe sous le tableau

De mon côté j'arrive à réaliser le tirage au sort et à l'affecter à une macro mais seul le nom de la société s'affiche et il se met dans une cellule au hasard selon où ma souris est pointé.

Merci d'avance pour votre aide,
Informations supplémentaires
Blabla

Groupes

13 commentaires
Bonjour,
Pour ma part à chaque fois que j'ai un problème sur Excel je passe par ce forum de passionées !
réponse rapide avec explications...

Pseudo07/02/2020 12:15

Bonjour,Pour ma part à chaque fois que j'ai un problème sur Excel je passe …Bonjour,Pour ma part à chaque fois que j'ai un problème sur Excel je passe par ce forum de passionées !réponse rapide avec explications...



forum.excel-pratique.com/
Édité par "Pseudo" 7 février
Je ne suis pas très doué en VBA mais si t'en arrive là t'es déjà bien parti.
T'aurais la possibilité de poster le code de ta macro ?
Voici ma formule actuelle

=INDEX(A$2:A$6;ENT(ALEA()*3)+1)
Édité par "KofW80" 7 février
T'avais pas parlé d'une macro et de tableaux avec 20 sociétés ?
Là ça limite à 5 lignes et c'est juste une formule
En plus je connaissais pas la fonction alea mais visiblement avec ta formule, ça limite le choix aux 3 premières lignes...
Édité par "freddo935" 7 février
Voici la macro

Sub aleaaa()
'
' aleaaa Macro
'

'
ActiveCell.FormulaR1C1 = "=INDEX(R12C:R16C,INT(RAND()*5)+1)"
Range("B28").Select
End Sub


Avant d'appliquer sur mes gros tableaux je préfère tester sur un petit. Attention, ci-dessus le tableau va de B12 à B16.
Quelqu'un arriverait à remplacer le " Active Cell" par une cellule prédéfini?

freddo93507/02/2020 15:58

En plus je connaissais pas la fonction alea mais visiblement avec ta …En plus je connaissais pas la fonction alea mais visiblement avec ta formule, ça limite le choix aux 3 premières lignes...



Effectivement ça ne me proposait que les 3 premières lignes j'ai corrigé merci
J'ai pas le temps tout de suite, mais je regarderai ce soir si personne t'as répondu
Pour remplacer activecell par une cellule prédéfinie :
Remplace "activecell" par "Range("C1") " pour sélectionner C1 par exemple .
Il sélectionnera la cellule C1 de la feuille active (celle où se trouve ton bouton du coup)
Le range(b28).select à la fin ne sert pas à grand chose je pense.
Merci je testerai ça Lundi prochain
Par contre ton r12c et ton r16c m'étonnent
Normalement après le R c'est le numéro de ligne et après le C le numéro de colonne.
Tu devrais donc avoir un 2 après le C (colonne B donc colonne numéro 2)
Je ferai aussi un test en changeant ça
Édité par "KofW80" 7 février
Tu t'en est sorti ?
J'ai pu modifier la macro qui fonctionne très bien, J'ai trouvé une autre technique, en rattachant la formule de base à une macro "F9" (actualisation d'une cellule).
Le problème de ces techniques est que cela simule un tirage avec remise,une même société peut sortir plusieurs fois. J'ai donc diminué le nombre de tirage demandé à 2 afin de limiter ce cas. Une macro avec tirage sans remise est troo compliqué.
Merci pour ton aide en tout cas
Édité par "KofW80" 12 février
Laisser un commentaire
Avatar
@
    Texte

    Discussions

    Marchands populaires