Arrondi + prortection en VBA

[TISBA]

Bonjour tout le monde!

Je cherche 2 choses.

- La 1er, le code qui permet d'arrondir toute les valeurs d'une collone au 5ème supérieur (2 ==> 5; 17 ==> 20 ....)

- Ensuite je veux protéger mes feuilles mais uniquement quand l'utilisateur est dessus! Je sais que pour activer la protection on peut mettre un code du genre Workshhet_activate (). Mais pour désactiver la protection, y a t'il un code comme Worksheet_desactivate ???


Merci d'avance pour le coup de main!

 

[N_Christian]

Bonjour TISBA


protéger une feuille avec un 'MdP'
ActiveSheet.Unprotect 'MdP'

autoriser une feuille
ActiveSheet.Protect Password:='MdP', DrawingObjects:=True, Contents:=True, Scenarios:=True


A+ Christian

 

[Tisba]

Impec pour ce qui est de la protection !

 

[JCA06]

Bonjour Tisba, Christian, et bonjour le Forum !

C'est un plaisir de répondre à ta question !

Voici la formule magique en F2 par exemple :
=+ARRONDI.SUP(E2/5;0)*5

A plus