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

XL 2016 Modification d'un code hben

Seddiki_adz

XLDnaute Impliqué
bonjour
j'ai besoin d'aide pour corriger le code hben
le code fonctionne avec plage 2
je veut qu'il fonctionne aussi avec le plage 3 ou si je créer une autre plage
Merci d'avance
 

Pièces jointes

  • repartion des profs.xls
    55 KB · Affichages: 10
Solution
Re,
il manque le tableau de surveillance de chaque jours
Il ne faut qu'un problème par fil, et non plusieurs sinon le futur lecteur aura du mal à suivre.
Alors juste une exception, car j'ai l'impression qu'il n'y aura pas de fin.
Rappelez vous qu' XLD est là pour aider et non pour faire.

En PJ feuille Surveillants, on choisit la matinée et on a l'affectation des surveillants en fonction des salles.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Seddiki_adz,
Un essai en PJ.
La macro est automatique quand on sélectionne la feuille "Feuil1"
Mais à bien tester, je n'ai fait que quelques tests non exhaustifs.
 

Pièces jointes

  • repartion des profs (1).xls
    76.5 KB · Affichages: 4

Seddiki_adz

XLDnaute Impliqué
Bonjour Mr job75 bonjour tout le monde
ce code dispatch les profs sur salles
Sub hben()
Application.ScreenUpdating = False
vv = [V1]: ww = vv + 1
Range("T:T").ClearContents
Set myrange2 = Range("T3:T" & ww + 2)
Randomize
For j = 1 To vv
5: Y = Int(Rnd * ww)
For Each cel In myrange2
If cel = Y Or Y = 0 Then GoTo 5
Next cel
Cells(j + 2, 20).Value = Y
Next j
For Each cel In myrange2
If cel.Value > ([B1] - 1) * [B2] Then cel.Value = ""
Next cel
Application.ScreenUpdating = True
End Sub
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re, bonsoir Job,
si j'ajoute une colonne H ou autres colonne le code ne fonctionne pas
Vous plaisantez ?
Votre nouvelle PJ n'a pas la même structure que l'ancien, et de plus il n'y a pas le dispatch Séance/Prof, ni le tableau inverse Prof/Séance. De plus il n'y a pas le code que j'avais mis.
Je jette l'éponge, j'ai l'impression d'avoir bossé pour rien. Et demain il y aura un nouveau fichier ??
 

Seddiki_adz

XLDnaute Impliqué
Non juste j'ai cacher des colonne
j'ai modifier le fichier manuellement si tu veut je te l'envoyer
Merci pour ton aide
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
si tu veut je te l'envoyer
Non, inutile.
1- Votre nouvelle PJ n'a pas la même structure que l'ancien,
2- il n'y a pas le tableau dispatch Séance/Prof,
3- ni le tableau inverse Prof/Séance.
4- De plus il n'y a pas le code que j'avais mis.
Le code que je vous ai donné fonctionne que sur cette structure. Il n'y a aucun planning dans votre fichier, comme celui prévu :
Tableau origine

Tableau destination.


Donc impossible d'être compatible de la macro.
 

Seddiki_adz

XLDnaute Impliqué
Non tu n'a pas me compris je parle de mon fichier joint
le code du module dispatch fonction seulement avec la colonne T
 

Pièces jointes

  • 2024.xls
    137.5 KB · Affichages: 3

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
il manque le tableau de surveillance de chaque jours
Il ne faut qu'un problème par fil, et non plusieurs sinon le futur lecteur aura du mal à suivre.
Alors juste une exception, car j'ai l'impression qu'il n'y aura pas de fin.
Rappelez vous qu' XLD est là pour aider et non pour faire.

En PJ feuille Surveillants, on choisit la matinée et on a l'affectation des surveillants en fonction des salles.
 

Pièces jointes

  • repartion des profs (1) (2).xls
    92 KB · Affichages: 6

Seddiki_adz

XLDnaute Impliqué
Merci
excellent
 

Discussions similaires

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