Discussion :

[mika2626]

Bonjour à tous,

J'ai crée un emploi du temps qui se présente de la manière suivante



j'ai le code suivant mais quelque chose ne marche pas, avez vous une idée ??

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For Each c In Worksheets("Feuil1").Range("B2", Range("IV1").End(xlToLeft))
c.Activate
Application.DisplayAlerts = False
Départ = ActiveCell.Address
Do While ActiveCell.Row < 15
If ActiveCell <> ActiveCell.Offset(1, 0) Then
Range(Départ, ActiveCell.Address).Merge
Départ = ActiveCell.Offset(1, 0).Address
End If
ActiveCell.Offset(1, 0).Activate
Loop
Next

Merci beaucoup