Griser une case via macro VBA

[nadejka]

Bonjour,

Je voudrais griser une case de ma page xls via ma macro VBA suivant des contraintes prédéfinies.

Cette case ne dois plus être accessible pour l'utilisateur (impossible pour lui de modifier le contenu).
Dès qu'il fait un RESET (bouton présent sur la feuille), tout redevient normal.

L'écriture des contraintes n'est pas le pb.

Pouvez-vous m'aider?

Merci d'avance
Nadège

 

[_Thierry]

Bonjour Nadjeka, le Forum

Voici une méthode toute simple, tu grises ta Cellule en Gris (le plus Pâle) Color Index 15

Tu mets ceci dans le Private Module de la Feuille en Question

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Interior.ColorIndex = 15 Then Target.Offset(1, 0).Select
End Sub

Voici l'index des 'ColorIndex'



Le simple fait de colorier ta cellule en Gris elle ne sera plus accessible.

Pour le Reset

Sub Reset()
    Range('A1').Interior.ColorIndex = xlNone
End Sub

.


Bon Appétit
@+Thierry

 

[Nadjka]

Merci du tuyau mais ce n'est pas vraiment ça que je veux.

Il y a pas mal de macro contrainte VBA derrière chaque case:
la D12 ne va pas avec la D25 ni la D27...
la D15 ne va pas avec la D12 ni la D13...
...

En fait quand une personne viendra entrer une quantité dans la D12 alors je voudrais que les cases D25, D27 se grisent.

J'èspère être plus clair.

Nadège