fNouveau venufarel6g8Inscrit le :22/01/2012Dernière activité :16/02/2012 à 21:49Version d'Excel :2000Messages4Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par farel6g8DateAuteur du sujetSujetExtrait du message25/01/2012 à 00:03farel6g8 Compléter un code VBAMerci pour la réponse! J'y penserai pour la présentation de mon prochain post... Bonne nuit...22/01/2012 à 16:29farel6g8 Compléter un code VBAJ'ai effectué quelques modifs et ça fonctionne à présent avec le code suivant (je n'avais pas déverrouillé les cellules J3:J9 sur toutes les feuilles) : Sub WsLock(Optional Y) Dim I As Integer 'Protége ou déprotège toutes les feuilles Application.ScreenUpdating = False If IsMissing(Y) Then For I = 1...22/01/2012 à 11:41farel6g8 Compléter un code VBABonjour et merci d'avoir pris le temps de me répondre. J'ai essayé votre code mais cela ne fonctionne pas... Je débute en VBA et je ne suis pas certain de faire les bonnes manipulations. - Lorsque je remplace le code précédent par le votre et que je lance la macro, une erreur est détectée à partir d...22/01/2012 à 03:35farel6g8 Compléter un code VBAJ'utilise un code VBA pour verrouiller ou déverouiller l'ensembles des feuilles d'un fichier (27 au total) grâce à 2 raccourci (1 pour verrouiller et 1 pour déverrouiller) : Sub WsLock(Optional Y) Dim PWd$ 'Protége ou déprotège toutes les feuilles Application.ScreenUpdating = False If IsMissing(Y) T...Forums