ajouter verouiller cellule a une macro

[arrazki]

Bonjour,


J'ai créer une macro qui me permet de report une valeur a partir d'une couleur verte.
dans mon fichier j'ai fais une macro qui reporte la valeur qui se trouve en AB1. C'est à dire s'il ya une couleur vert dans une cellule de la colonne O alors on reporte la valeur de AB1 en Z. la macro marche bien! mais je voudrai ajouté kelkechose a cette marco mais je n'y arrive pas.
Je voudrai qu'une fois la valeur renseigner en Z la cellule renseigner se verouille. Je ne veux verouiller que la celleule renseigner et et éventuelment mettre une couleur pour montrer que c'est verouiller.

Pouvez m'aider?

C'est une vrai colle

Ci-joint le fichier

 

[Yaloo]

Re : ajouter verouiller cellule a une macro

Bonjour arrazki,

Pour verrouiller une cellule il faut dans un premier temps :
Pour la cellule Z1 : Range("Z1").Locked = False ou [Z1].Locked = False ou Cells(1, 26).Locked = False

Puis protéger ta feuille, pour Feuil1 : Sheets("Feuil1").Portect "MotDePasse"

A te relire

Martial

 

[arrazki]

Re : ajouter verouiller cellule a une macro

la macro se bloque! je veux k'une fois remplie la cellule se verouille

 

[Yaloo]

Re : ajouter verouiller cellule a une macro

Re,

Pardon j'ai fait l'inverse. Il faut que tu déverrouilles toutes tes cellules, tu cliques sur l'intersection entre les N° de ligne et les Lettres des colonnes. Normalement toutes tes cellules vont être sélectionnées.
Clic-droit puis Format des cellules, dans l'onglet "Protection" tu décoches "Vérouillée".

Ensuite dans ta macro, il faut faire 3 choses :

1 - En début de macro il faut déprotéger ta feuille avec

Sheets("Feuil1").Unprotect "MotDePasse"

2 - Vérouiller ta cellule avec

Range("Z1").Locked = True

3 - Re-vérrouiller ta feuille avec

Sheets("Feuil1").Protect "MotDePasse"

Normalement, ça devrait fonctionner.

A+

Martial

 

[arrazki]

Re : ajouter verouiller cellule a une macro

impossible! kan je lance la macro elle se bloque. je pense k'une fois verouiller la macro n'arrive pas a recalculer.
Peux tu regarder stp dans mon fichier excel? ça fais des jours que je bloque dessu! j'ai l'impression que c'est impossible.

 

[Yaloo]

Re : ajouter verouiller cellule a une macro

Re,

Le problème, c'est que dans ton fichier il n'y a pas de macro avec des couleurs mais juste une fonction si_spéciale.

Donc difficile de tester quoi que ce soit.

A+

 

[arrazki]

Re : ajouter verouiller cellule a une macro

Re,

Le problème, c'est que dans ton fichier il n'y a pas de macro avec des couleurs mais juste une fonction si_spéciale.

Donc difficile de tester quoi que ce soit.

A+

Re,

Dslé je pensai avoir mis la macros
Ci-joint le fichier avec la mcro dans visual basic

Merci

 

[Yaloo]

Re : ajouter verouiller cellule a une macro

Bonjour arrazki,

Vois ton fichier ci-dessous, ta macro modifiée et une autre pour mettre les cellules en vert :

Le mot de passe est 123

A+

Martial

 

[arrazki]

Re : ajouter verouiller cellule a une macro

Merci beaucoup martial c parfait

 

[arrazki]

Re : ajouter verouiller cellule a une macro

aH! dslé de revenire vers toi! ta repris le nom de l'onglet pour boquer la feuille mais le pb c que le nom de mon ongler 28-02-2012 est variable, du coup la macro bloque si je change le nom.

 

[Yaloo]

Re : ajouter verouiller cellule a une macro

Bonsoir arrazki,

Il suffit de remplacer

Sheets("Au 28-02-2013").Unprotect MdP

et

Sheets("Au 28-02-2013").Protect MdP

Par

ActiveSheet.Unprotect MdP

et

ActiveSheet.Protect MdP

Cela mettra les protections et déprotections sur la feuille active.

A+

Martial

 

[arrazki]

Re : ajouter verouiller cellule a une macro

Bonjour Martial,

C'est niquel ça marche super bien

Merci beaucoup