Création d'une MsgBox

Bonjour,

Sans doute parce que tu as une plage de sélectionnée.

Ajoute au début :

if target.cells.count>1 then exit sub

eric

Bonjour eriiic,

Au début de quel code ?

Bonjour

Ces histoires de protection

Une solution serait de déprotéger en début et de protéger en fin de chaque macro

Une autre solution

1. Placer ce code dans ThisWorkbook
   

   Private Sub Workbook_Open()
   Dim I As Integer
   
     For I = 1 To Sheets.Count
       Sheets(I).Protect Password:=pwd, UserInterfaceOnly:=True, DrawingObjects:=False, Contents:=True, Scenarios:=True
       Sheets(I).EnableSelection = xlUnlockedCells
     Next I
   End Sub

2. De réactiver la ligne dans le Module "Planning"
   

   Public Const pwd As String = "220305"

3. Supprimer dans la macro Sub maj_boutons() du module "Planning" , les 2 lignes de déprotection et protection
4. Tu enregistres le fichier
5. Tu fermes le fichier puis tu l'ouvres

Je n'ai pas tout testé mais le peu que j'ai testé (écriture dans une page, Mise à jour des boutons) se passent très bien

J'ai suivi ta méthode.

Mais il y avait encore des bugs lors des données entrées dans les pages.

J'ai réactivé les protection et déprotection de chaque bouton pour ne plus avoir ces bugs.

L'application des nouveaux codes ne fonctionne que si je laisse les 2 lignes de déprotection et protection.

Avec tout ça, les premiers tests sont concluants.

Pas évidents avec la protection des feuilles mais indispensables lorsque 25 personnes, plus au moins aguerris en informatique, le manipule.

Merci pour ton aide précieuse.

Re,

désolé pour ma proposition hors de propos, j'étais resté sur la page 1.

Donc plutôt en retard sur la réponse... :-s

eric