Discussion :

[maaaher75]

salut à tous

J'ai céée un code VBA Excel pour emplois du temps, mais je n'ai pus pas le transformer en fichier excel
svp aidez moi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
### 
Sub CreerEmploiDuTemps()
 
Dim EmploiEleves As Worksheet
Dim EmploiEnseignants As Worksheet
Dim EmploiSalles As Worksheet
Dim EmploiDuTemps As Worksheet
 
Set EmploiEleves = Worksheets("Emploi des élèves")
Set EmploiEnseignants = Worksheets("Emploi des enseignants")
Set EmploiSalles = Worksheets("Emploi des salles")
Set EmploiDuTemps = Worksheets.Add(After:=Worksheets(Worksheets.Count))
EmploiDuTemps.Name = "Emploi du temps"
 
' Création des en-têtes de colonne pour l'emploi du temps
EmploiDuTemps.Range("A1") = "Horaire"
EmploiDuTemps.Range("B1") = "Lundi"
EmploiDuTemps.Range("C1") = "Mardi"
EmploiDuTemps.Range("D1") = "Mercredi"
EmploiDuTemps.Range("E1") = "Jeudi"
EmploiDuTemps.Range("F1") = "Vendredi"
EmploiDuTemps.Range("G1") = "Samedi"
 
' Remplissage des horaires dans la colonne A
For i = 1 To 12
    EmploiDuTemps.Range("A" & i + 1) = Format(TimeValue("8:00") + TimeValue("0:30") * (i - 1), "hh:mm")
Next i
 
' Remplissage des emplois du temps des élèves
For i = 2 To 13
    For j = 2 To 7
        EmploiDuTemps.Cells(i, j) = EmploiEleves.Cells(i, j)
    Next j
Next i
 
' Remplissage des emplois du temps des enseignants
For i = 2 To 13
    For j = 2 To 7
        EmploiDuTemps.Cells(i + 14, j) = EmploiEnseignants.Cells(i, j)
    Next j
Next i
 
' Remplissage des emplois du temps des salles
For i = 2 To 13
    For j = 2 To 7
        EmploiDuTemps.Cells(i + 28, j) = EmploiSalles.Cells(i, j)
    Next j
Next i
 
End Sub
 
###

[Philippe Tulliez]

Bonjour,
Utiliser ChatGPT pour créer un code VBA demande une certaine connaissance du langage lui même.
Je l'ai testé et j'ai dû le corriger à maintes reprises pour arriver à obtenir ce que je voulais et encore par moment il peut répondre des choses insensées

[Valtrase]

Salut,
Quelle est l'erreur que tu rencontres, c'est une erreur ou un mauvais fonctionnement

Donnes nous un exemple de résultat visuel que tu souhaite, car d'après le code fournis je ne comprends pas trop.