Il y a quelque jours, j'ai demandé un peut d'aide(merci Monique) pour réaliser un planning avec cycle.Tout fonctionne bien comme je le veut mais sur le planning a certain endroit je n'ai pas la bonne réponse, pour temps le cycle est bon.
Avertissement: il y a une Sub Autpen (non désactivée ) dans le classeur
(création d'un menu personnalisé)
Sub auto_open()
On Error Resume Next
Set Barre = CommandBars.Add
Barre.Name = "Type d'absence"
Barre.Visible = True
Set Menu = Barre.Controls.Add(msoControlComboBox)
For i = 1 To Application.CountA(Range("mescouleurs"))
Menu.AddItem Range("mescouleurs")(i).Value
Next
Menu.AddItem "Efface"
Menu.AddItem "Colorie saisis"
Menu.OnAction = "Couleur"
Menu.Text = "Sélectionner puis choisir"
End Sub
Staple1600, je ne sais pas remplacer mon fichier par le tiens car je suis limité a 48ko et le tiens fait 52,2 Ko , il est compressé au maxi avec winzip c'est peut être la raison que personne peut l' ouvrir.