délimiter zone de tirage aléatoire

  • Initiateur de la discussion Initiateur de la discussion mgrizzly
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mgrizzly

XLDnaute Junior
Bonjour,
Ce code tire aléatoirement 3 cellules parmis celle qui ont un 1 dedans seulement il tire ces 3 cellules parmis les lignes de 9 à 59.
Je voudrais qu'il puisse en tirer 3 parmis les lignes 9 à 24, 3 parmis les lignes 25 à 41 et 3 parmis les lignes 42 à 59.
Il doit tirer ces 9 cellules en même temps.

Voici mon code :

Sub FIP_AIP_MUSC()

Dim x As Integer, c As New Collection
'Initialise le générateur de nombres aléatoires
Randomize
'boucle, tant que le nombre d'item de la collection est inférieur à 3
Do While c.Count < 3
'détermination d'un nombre aléatoire de 9 à 59
x = Int(51 * Rnd + 9)
'test si la cellule de la ligne déterminée par x est égale à 1
If Cells(x, 3) = 1 Then
'empêche message d'erreur si la cellule à déjà été trouvé
On Error Resume Next
'utilisation d'une collection pour stocker les cellules trouvées
c.Add Cells(x, 3).Address, CStr(Cells(x, 3).Address)
'si pas d'erreur, on pourrait d'ailleurs se passe de ce test, coloriage de la cellule
If Err = 0 Then Cells(x, 3).Interior.ColorIndex = 3
End If
Loop
'réinitialisation du gestionnaire d'erreur
On Error GoTo 0

End Sub

Merci de m'aider.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
247
Retour