erreur dans macro

[cafrine]

Bonsoir à tout le forum

J'ai créé une feuille avec pleins de liste déroulante dans les celulles.
1 macro pour réinitialiser les celulles (tout effacer).
Mais si je protège la feuille, la macro ne fontionne plus... >> Problème sur la ligne :
' Selection ClearContents'

Macro ( de pure débutante )
Range( _
'P1:R2,O35:R38'). _
Select
Range('O35').Activate
Selection.ClearContents
Range('F5:N6').Select
End Sub

Merci à vous

Si je peux abuser :comment figer ma page d'accueil ou limiter la barre de défilement vert. et horiz.
encore merci et bonne soirée

cafr....

 

[Robert]

Bonsoir Cafrine, bonsoir le forum,

Je vais encore énervé Didier (mydearfriend) mais une solution toutes simple est de déprotéger ton onglet au début de la macro et de la reproteger à la fin. Ton code amélioré (évite les Select inutiles qui ralentissent l'exécution du code) :

Sub Macro1()
ActiveSheet.Unprotect
Range('P1:R2,O35:R38').ClearContents
Range('F5:N6').Select 'pour quoi faire ???
ActiveSheet.Protect
End Sub

 

[cafrine]

bonjour

Un grand merci pour ton aide Robert...
Cà fonctionne impeccable

Bon dimanche à tous

Cafr....