Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[Résolu] Choisir des colonnes aléatoirement

Lone-wolf

XLDnaute Barbatruc
Bonsir à tous,

dans le fichier joint, j'ai créé en quelque sorte un égualiseur (leds). Maintenant, j'aimerais ajouter Randomize, pour qu'il choisisse une colonne au hasard ( ici il y en a 7). Malheureusement, je n'arrive pas a obtenir le résultat voulu.

Merci par avance.

J'oubliai: pour voir le résultat, double-cliquez sur la feuille.



A+
 

Pièces jointes

  • Classeur1.xls
    66.5 KB · Affichages: 35
  • Classeur1.xls
    66.5 KB · Affichages: 37
  • Classeur1.xls
    66.5 KB · Affichages: 36
Dernière édition:

camarchepas

XLDnaute Barbatruc
Re : Choisir des colonnes aléatoirement

Bonsoir,

je ne vois nul part le rnd pour récupérer la valeur aléatoire .

Code:
Dim MyValue
Randomize    ' Initialise le générateur de nombres aléatoires.

' Renvoie une valeur aléatoire comprise entre 1 et 6.
MyValue = Int((6 * Rnd) + 1)
 

Gelinotte

XLDnaute Accro
Re : Choisir des colonnes aléatoirement

Bonjour,

Exemple : Range("e" & i)

Si "e" et ses comparses étaient une variable, il n'y aurait que cette variable à randomizer.

Ou un select case peut-être dont le case serait randomnizé.

G
 

Lone-wolf

XLDnaute Barbatruc
Re : Choisir des colonnes aléatoirement

Bonsoir camarchepas, Gelinotte.

Merci pour votre intervention.

@camacherpas: c'est normal, je l'ai supprimé vu que le Rnd() n' était pas satisfaisant.
Pour l'exemple donné, je ne comprends pas.

@Gelinotte: non Gelinotte, "e"(ici en l'occurence "c" & x); c c'est la colonne x la variable.

A+
 

camarchepas

XLDnaute Barbatruc
Re : Choisir des colonnes aléatoirement

Bonsoir Gelinotte,

Super mise en pratique du générateur, bon effectivement , il n'y a que 6 barres de led et pas sept.

Voici Lone-wolf, y'a plus qu'a faire un aléatoire sur la durée et la il y aura du rythme , lol
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…