XL 2016 Modification d'un code hben

  • Initiateur de la discussion Initiateur de la discussion Seddiki_adz
  • 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 !

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.
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
 
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 ??
 
Re, bonsoir Job,

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 ??
Non juste j'ai cacher des colonne
j'ai modifier le fichier manuellement si tu veut je te l'envoyer
Merci pour ton aide
 
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
1685562179430.png

Tableau destination.
1685562261143.png


Donc impossible d'être compatible de la macro.
 
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
Regarde la pièce jointe 1171300
Tableau destination.
Regarde la pièce jointe 1171301

Donc impossible d'être compatible de la macro.
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

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

Re,

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.
Merci
excellent
 
- 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
9
Affichages
317
Réponses
3
Affichages
126
Réponses
11
Affichages
166
Réponses
4
Affichages
296
Réponses
7
Affichages
257
  • Question Question
Réponses
8
Affichages
255
Retour