prendre aléatoirement des cellules

[mgrizzly]

Bonjour,
Dans la colonne C de mon tableau (de la ligne 9 à 59) il y a des 1 et des 0.
J'aurais besoin d'un code en VBA qui prenne aléatoirement 3 cellules de la colonne C et uniquement parmi celles qui ont des 1.
Merci de m'aider.

 

[mgrizzly]

Re : prendre aléatoirement des cellules

Toujours pareil et je peux pas joindre mon fichier il est trop gros.
C'est depuis qu'il ne faut pas mettre les résultats dans les cellules jaunes que ça coince.

 

[Pierrot93]

Re : prendre aléatoirement des cellules

Re

le numéro d'index de ton jaune est bien le 6 ??? pour t'en assurer utilises l'enregistreur de macro et regarde le code renvoyé....

 

[mgrizzly]

Re : prendre aléatoirement des cellules

Oui c'est bien le 6.
J'ai essayé d'enlever If p.Interior.ColorIndex <> 6 dans le code et il y a toujours qu'un seul chiffre dans les cellules. Cela ne vient peut-être pas des couleurs.

 

[Pierrot93]

Re : prendre aléatoirement des cellules

re

fais un petit fichier exemple représentant tes données, avec le code utilisé, en version réduite et zippée cela devrait passée sur le forum...

 

[mgrizzly]

Re : prendre aléatoirement des cellules

Voila le fichier.

 

[Pierrot93]

Re : prendre aléatoirement des cellules

Re

chez moi sur ton fichier, lorsque je lance ta macro "FIP_AIP_MUSC" et que la feuille active est bien la feuille "compétence", pas de souci me renvoie bien les neuf valeurs dans l'autre feuille... Comment la lances tu ? Peut être qu'une autre macro active l'autre feuile.... sinon vois pas trop ....

 

[mgrizzly]

Re : prendre aléatoirement des cellules

Je vais tout revoir et je te redis ça.

 

[mgrizzly]

Re : prendre aléatoirement des cellules

Les 9 valeurs que tu trouves sont-elles bien remisent dans toutes les cases non jaune de la feuille "mois en cours" ?

 

[mgrizzly]

Re : prendre aléatoirement des cellules

Sinon Pierrot voici le même fichier un peut plus fourni où je voudrais que lorqu'on rentre un chiffre<=100 dans le userform alors remplissange du calendrier avec 9 agents dans chaques cases.(comme précédemment),chiffre <200 et >100 remplissage avec 6 agents et >=200 remplissage avec 6 agents aussi.
Je te joinds mon fichier, pourrais-tu regarder pourquoi ça ne marche pas.
Je n'ai fais que roulement1 pour l'instant.
Merci.

 

[mgrizzly]

Re : prendre aléatoirement des cellules

Pour les 9 valeurs je crois que j'ai compris:
Ton code n'affiche que 9 valeurs en tout dans la feuille "mois en cours". Je voudrais par contre que le code affiche les 9 valeurs mais dans toutes les cellules non jaune de la ligne 4 à 34.

 

[Pierrot93]

Re : prendre aléatoirement des cellules

Bonjour mgrizzly

Oui les neuf valeurs ne sont renvoyées qu'une seule fois, dans la feuille "mois en cours". Je constate qu'il y a seulement 18 cellules de disponibles (non jaunes et vides), est ce qu'il en sera toujours ainsi ? Si c'est le cas, la même valeur est elle placée dans les 2 premières cellules disponibles ? Plus de questions que de réponse....

@+

 

[Pierrot93]

Re : prendre aléatoirement des cellules

Re

pour le code dans ton usf, essaye comme ceci :

Private Sub BoutonValide_Click()
Dim nbrestes As Integer
nbrestes = Restes.TextBox1.Value
If nbrestes >= 200 Then
    RemplirPlanning3
    ElseIf nbrestes < 200 And nbrestes > 100 Then RemplirPlanning2
    ElseIf nbrestes <= 100 Then RemplirPlanning1
End If
End Sub

@+

 

[mgrizzly]

Re : prendre aléatoirement des cellules

Non il n'y aura pas toujours 18 cellules blanches de disponibles car c'est un programme qui génère un emploi de temps. En cliquant sur le bouton mise à jour, on peut changer la date et passer au mois suivant, qui, lui n'aura pas de jours fériés par exemple mais 22 cellules de couleur blanche. Serait-il possible d'adapter le code pour qu'il affiche les 9 valeurs mais dans toutes les cellules non jaune de la ligne 4 à 34?

 

[Pierrot93]

Re : prendre aléatoirement des cellules

Re

et selon quel(s) critère(s) doivent elles être réparties car si le nombre de cellules disponibles n'est pas divivisible par 9 ??? Je crais fort qu'il faille refaire tout le code.... d'ou l'importance de bien exposer le problème dès le départ et de fournir tous les éléments....

 

[mgrizzly]

Re : prendre aléatoirement des cellules

On doit prendre 3 cellules qui ont des 1 dans les lignes 9 à 24, 3 qui ont des 1 dans les lignes 25 à 41 et 3 qui ont des 1 dans les lignes 42 à 59, sauf les cellules qui sont en rouges (en rouge sont les agents en congés) dans la feuille "compétences". On doit pouvoir les prendre aléatoirement. Il faudrait ensuite afficher les 9 valeurs trouvées précédemment dans toutes les cellules non jaune de la ligne 4 à 34 dans la feuille "mois en cours". Est-ce plus clair ?