XL 2019 Affecter des profs en salle de Composition

lcouaci

lcouaci

XLDnaute Junior
Bonsoir,
C'est la fin du trimestre, et bientôt les composition. Mais voilà, mon projet excel VBA est d'affecter les profs dans une salle de composition pour la surveillance.
35 profs pour, 24 salle en raison de 2 composition par jours. un comme sur l'image joint. Au fait j'ai pu realisé un vba mais j'arrive le joindre ici; d'ou l'image. Cordialement!!
1033360
 
Trier par date Trier par votes
lcouaci

lcouaci

XLDnaute Junior
Staple1600 à dit:
Bonjour le fil

lcouaci
Pourquoi créer un second post?
Alors que dans l'autre, il y a déjà de la lumière, du monde et des propositions...
:rolleyes:
Cliquez pour agrandir...
Bonsoir,
Désole pour l'insistance mais la proposition des gens que vous appeler lumière du monde n"est pas pour moi. Et difficile à utiliser pour moi
VB: 
Sub Macro1()
 Macro1 Macro
Range("A8").Select
    Selection.Copy
    Range("E3").Select
    ActiveSheet.Paste
    Range("A13").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F3").Select
    ActiveSheet.Paste
    Range("A6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("G3").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H3").Select
    ActiveSheet.Paste
    Range("A4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("AA3").Select
    ActiveSheet.Paste
    Range("A5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O3").Select
    ActiveSheet.Paste
    Range("A6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("P3").Select
    ActiveSheet.Paste
    Range("A7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q3").Select
    ActiveSheet.Paste
    Range("A9").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I3").Select
    ActiveSheet.Paste
    Range("A10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X3").Select
    ActiveSheet.Paste
    Range("A11").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("J3").Select
    ActiveSheet.Paste
    Range("A12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("K3").Select
    ActiveSheet.Paste
    Range("A14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("V3").Select
    ActiveSheet.Paste
    Range("A15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("R3").Select
    ActiveSheet.Paste
    Range("A16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L3").Select
    ActiveSheet.Paste
    Range("A23").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("S3").Select
    ActiveSheet.Paste
    Range("A24").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("T3").Select
    ActiveSheet.Paste
    Range("A25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M3").Select
    ActiveSheet.Paste
    Range("A27").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("N3").Select
    ActiveSheet.Paste
    Range("A28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("U3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=9
    Range("A39").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("W3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=3
    Range("A42").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("Y3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=6
    Range("A44").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-9
    Range("Z3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=3
    Range("A36").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("E4").Select
    ActiveSheet.Paste
    Range("A35").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F4").Select
    ActiveSheet.Paste
    Range("A32").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("G4").Select
    ActiveSheet.Paste
    Range("A31").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H4").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=3
    Range("A41").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("M4").Select
    ActiveSheet.Paste
    Range("E3:AA4").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A13").Select
    Selection.Copy
    Range("E3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=12
    Range("A45").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-15
    Range("F3").Select
    ActiveSheet.Paste
    Range("A3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("G3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=3
    Range("A30").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("H3").Select
    ActiveSheet.Paste
    Range("A12").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I3").Select
    ActiveSheet.Paste
    Range("A4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("J3").Select
    ActiveSheet.Paste
    Range("A8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("K3").Select
    ActiveSheet.Paste
    Range("A6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("L3").Select
    ActiveSheet.Paste
    Range("A5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=3
    Range("A44").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-18
    Range("N3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=6
    Range("A43").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-15
    Range("O3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=-9
    Range("A31").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("P3").Select
    ActiveSheet.Paste
    Range("A16").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Q3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=9
    Range("A39").Select
    ActiveWindow.SmallScroll Down:=-12
    Application.CutCopyMode = False
    Selection.Copy
    Range("R3").Select
    ActiveSheet.Paste
    Range("A25").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("S3").Select
    ActiveSheet.Paste
    Range("A23").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("T3").Select
    ActiveSheet.Paste
    Range("A17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("U3").Select
    ActiveSheet.Paste
    Range("A14").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("V3").Select
    ActiveSheet.Paste
    Range("A10").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("W3").Select
    ActiveSheet.Paste
    Range("A7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("X3").Select
    ActiveSheet.Paste
    Range("A35").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Y3").Select
    ActiveSheet.Paste
    Range("A18").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("Z3").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=6
    Range("A44").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-12
    Range("AA3").Select
    ActiveSheet.Paste
    Range("A35").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("E4").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A19").Select
    Selection.Copy
    Range("E4").Select
    ActiveSheet.Paste
    Range("A17").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("F4").Select
    ActiveSheet.Paste
    ActiveWindow.SmallScroll Down:=9
    Range("A33").Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.SmallScroll Down:=-15
    Range("G4").Select
    ActiveSheet.Paste
    Range("A36").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("H4").Select
    ActiveSheet.Paste
    Range("A26").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("I4").Select
    ActiveSheet.Paste
End Sub
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

L'insistance n’empêche pas la courtoisie...;)
qui aurait été de continuer dans le fil initial eu égard au travail déjà fourni dans celui-ci ;)

PS: Pour info, ta macro pourrait drastiquement être réduite en supprimant les Select et autre Activate.
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

Pour préciser ce que j'évoquais dans mon précédent message
Ci-dessous la "trame" des modifications possibles
VB: 
Sub Macro1()
'Macro1 macro
Range("A8").Copy Range("E3")
Range("A13").Copy Range("F3")
Range("A6").Copy Range("G3")
Range("A3").Copy Range("H3")
Range("A4").Copy Range("AA3")
'etc...
End Sub
 
Vote positif 0 Vote négatif
zebanx

zebanx

XLDnaute Accro
Re-

Une suite de la suite de la suite du travail de Victor21.

Il n'y a qu'un superviseur qui a 8 supervisions et l'on peut surement le "swapper" avec l'un des profs à 6 interventions.
Par exemple en salle 11 avec l'examinateur 23 à priori.
Toujours pas compris pourquoi on parle au départ de 35 superviseurs pour arriver à plus de 40 sur la liste...:oops:

@+

edit : bonjour à staple1600 :cool:
 

Pièces jointes

  • Examinateurs 2.xlsm
    25.9 KB · Affichages: 11
Vote positif 0 Vote négatif
lcouaci

lcouaci

XLDnaute Junior
zebanx à dit:
Re-

Une suite de la suite de la suite du travail de Victor21.

Il n'y a qu'un superviseur qui a 8 supervisions et l'on peut surement le "swapper" avec l'un des profs à 6 interventions.
Par exemple en salle 11 avec l'examinateur 23 à priori.
Toujours pas compris pourquoi on parle au départ de 35 superviseurs pour arriver à plus de 40 sur la liste...:oops:

@+

edit : bonjour à staple1600 :cool:
Cliquez pour agrandir...
Merci pour le coup de main; Cordialement!!
 
Vote positif 0 Vote négatif
lcouaci

lcouaci

XLDnaute Junior
Staple1600 à dit:
Re

Pour préciser ce que j'évoquais dans mon précédent message
Ci-dessous la "trame" des modifications possibles
VB: 
Sub Macro1()
'Macro1 macro
Range("A8").Copy Range("E3")
Range("A13").Copy Range("F3")
Range("A6").Copy Range("G3")
Range("A3").Copy Range("H3")
Range("A4").Copy Range("AA3")
'etc...
End Sub
Cliquez pour agrandir...
Merci à toi pour le coup de main,
Mais comment je peut faire pour que les lignes Range("A").Copy Range("E") soit aléatoire, est ce que la fonction peut être utilisée ici?
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re, Bonjour Victor21, Bonjour zebanx

De quelle fonction tu parles?
Et pour ce qui est de l'aléatoire, ce n'était pas le sujet du message#6

Je voulais juste t'informer qu'on pouvait écrire ta macro initiale en beaucoup moins de lignes de code en n'utilisant pas le Select (comme j'ai commencé à le faire dans mon message)
 
Dernière édition:
Vote positif 0 Vote négatif
lcouaci

lcouaci

XLDnaute Junior
Bonjour,
En fait, en creusant sur mon projet de vba il me semble que juste un code pour un bouton en vba allant de 1 à 24 (nombre décimale) pourrait faire mon affaire. Ainsi les nombres pourront changer seulement en cliquant sur le bouton. J'espère que j'ai été clair cette fois ci.
 
Vote positif 0 Vote négatif
Victor21

Victor21

XLDnaute Barbatruc
Re, Icouaci.

Si vous entrez manuellement des nombres entiers*, vous devrez vérifier chaque fois :
- que le prof affecté à une classe n'a pas déjà été affecté à cette même classe un autre jour
- qu'il n'est pas déjà affecté au même moment dans une autre classe.
Le fichier que je vous ai proposé (ainsi que celui de @zebanx le fait AU TO MA TI QUE MENT ! Vous, têtu ? Non...
*
lcouaci à dit:
[...] juste un code pour un bouton en vba allant de 1 à 24 (nombre décimale) [...]
J'espère que j'ai été clair cette fois ci.
Cliquez pour agrandir...
Un nombre décimal est un nombre réel qui peut s’écrire exactement avec un nombre fini de chiffres après la virgule (lien)
 
Vote positif 0 Vote négatif
lcouaci

lcouaci

XLDnaute Junior
Victor21 à dit:
Re, Icouaci.

Si vous entrez manuellement des nombres entiers*, vous devrez vérifier chaque fois :
- que le prof affecté à une classe n'a pas déjà été affecté à cette même classe un autre jour
- qu'il n'est pas déjà affecté au même moment dans une autre classe.
Le fichier que je vous ai proposé (ainsi que celui de @zebanx le fait AU TO MA TI QUE MENT ! Vous, têtu ? Non...
*

Un nombre décimal est un nombre réel qui peut s’écrire exactement avec un nombre fini de chiffres après la virgule (lien)
Cliquez pour agrandir...
OK merci pour tout !
 
Vote positif 0 Vote négatif

Discussions similaires

lcouaci
  • Question
XL 2019 Répartition Profs et salle pour Composition
2
Réponses
15
Affichages
3 K
Seddiki_adz
S
J
  • Question
Microsoft 365 Construction d'un tableau de bord agence architecture
Réponses
13
Affichages
2 K
vinzwanted
V
J
  • Question
Excel -VBA : Envoie plusieurs partie du même tableau dans un corps mail en fonction de certaines conditions
Réponses
0
Affichages
1 K
JBIK
J
Ayem
  • Résolu(e)
Autres macro-excel-pour-ajouter-une-ligne juste après la dernière ligne de mon tableau -avec-conservation-des formules et formats
Réponses
10
Affichages
5 K
Ayem
Ayem
M
  • Résolu(e)
XL 2010 Solution VBA pour créer/copie des lignes en fonction du nombre de jours entre deux dates
Réponses
5
Affichages
1 K
sylvanu
sylvanu
A
  • Question
Microsoft 365 Lisser budget sur le nombre de mois en fonction des dates début et fin
Réponses
5
Affichages
1 K
aba2s
A
D
  • Question
XL 2013 Valeur cellule en fonction de 2 autres - Transport workbook
Réponses
2
Affichages
830
D4_
D
J
  • Question
[VBA]Résolu:Fonction Si à plusieurs conditions en VBA
Réponses
8
Affichages
3 K
Jack2
J
Z
  • Question
Mettre en évidences des cellules contenant un mot par rapport à une base de données
2
Réponses
28
Affichages
4 K
zored
Z
L
  • Question
[VBA] créer des diagrammes en fontion de range
Réponses
4
Affichages
2 K
Ladoo
L

Membres actuellement en ligne

21 membres et 195 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 109
Messages
2 116 297
Membres
112 714
dernier inscrit
anteflag22