XL 2010 macro vba -création d'une boucle avec une variable aléatoire

[viken76]

Bonjour,

J'aimerai construire une macro vba avec les caractéristiques suivantes :

dans les cellules A1 à A10 de ma feuille Excel, j'ai une liste de chiffres allant de 1 à 10

je voudrais que dans la cellule C1, la macro choisisse de manière aléatoire un chiffre de la plage A1:A10.
Si le chiffre est inférieur ou égale à 5, alors la macro affiche le chiffre sélectionné dans C1 puis continue à effectuer la même opération dans C2 (et ainsi de suite jusqu'à C10).
Si le chiffre est supérieur à 5, alors la macro sélectionne un nouveau chiffre de la plage A1:A10 jusqu'à sélectionner un chiffre inférieur ou égale à 5.

Pourriez vous m'indiquer si ce schéma est réalisable à travers une macro?

Merci d'avance,

 

[Lolote83]

Salut VIKEN76,
Pas sur d'avoir tout bien compris mais la macro du fichier joint fait à prioris ce que tu demandes.
@+ Lolote83

 

[viken76]

Merci pour votre retour rapide
Oui c'est bien ce que je voulais.
Par contre, la macro actuelle doit être lancé à chaque fois pour compléter une cellule.
Crois tu qu'il serait possible de modifier cette macro pour que 10 cellules soient complétées en même temps (C1:C10) lors du lancement de la macro ?

 

[mapomme]

Bonsoir à toutes et tous,

Une autre manière :

Sub NombreAleatoire()
  Range("C1:C10").FormulaLocal = "=ALEA.ENTRE.BORNES(1;5)"
  Range("C1:C10") = Range("C1:C10").Value
End Sub