Discussion :

[emillio]

Bonjour à tous,

Je souhaiterai colorer des cellules selon le chiffre contenu dans une autre cellule.
Par exemple si A1=1 alors colorer le cube B1,B2,C1,C2 en rouge.
si A1=2 alors colorer le cube B1,B2,C1,C2 en vert.
sinon ne rien faire.
Sachant que certaines des cellules du cube sont des listes déroulantes...

J'ai beau chercher sur le forum, je ne trouve pas de discution à ce propos.

Merci d'avance!

[Gege70]

Bonjour,
Penche toi sur la mise en forme conditionnelle.

[emillio]

Parfait. Je trouve presque toutes les caractéristiques de la cellule. Je voudrais pouvoir griser la cellule et je ne trouve pas cette condition.
Merci

[ouisansdoute]

LA mise en forme conditionnelle n'accepte que trois conditions jusqu'à 2003. Peut-être est-ce ce qui t'empêche de trouver le grisé ?

[wilfried_42]

Bonjour à tous

Je ne sais pas si j'ai tout compris, mais dans les MFC, apres avoir appuyer sur le bouton format, choisir l'onglet Motif, choisir une couleur de fond

Maintenant si tu as plus de 3 formats à appliquer (4 si on concidere le Formatage de Base), il ne te reste plus que la Macro

Regarde le Lien Suivant

[Gege70]

Parfait. Je trouve presque toutes les caractéristiques de la cellule. Je voudrais pouvoir griser la cellule et je ne trouve pas cette condition.
Merci

Griser la cellule ... ? = la rendre inactive ?

[emillio]

Je me suis mal exprimé. Oui grisée = inactive, bloquée.

[Gege70]

Je me suis mal exprimé. Oui grisée = inactive, bloquée.

Par la MFC tu n'as accès qu'à la mise en forme de la cellule (bordures, fond et fonte). Pour ce que tu demandes il faudrait passer par du VBA

[emillio]

Ok. Je vais chercher dans cette direction car le VBA est encore un mystère...
Merci pour l'info!

[emillio]

J'ai beau cherché je ne trouve pas une fonction pouvant m'aider...
Je n'ai jamais codé en VBA et je suis un peu perdu... quelqu'un pourrait venir à mon secour?
Merci

[wilfried_42]

re:

Pour Bloquer une cellule dans une feuille, (Bloquer à la saisie) c'est une protection

1 Tu deverouilles toute les cellules et tu proteges ta feuille

2 une fois que tu veux en verrouiller une

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sheets("Feuil1").unprotect ' deprotection de la feuille
with Sheets("Feuil1").range("A1") ' Cellule A1 concernée
       .locked = true ' Cellule A1 verouillée
       .Interior.ColorIndex = 2 ' Interieur grisé
       .Interior.Pattern = xlLightUp ' Avec des rayures
       .Interior.PatternColorIndex = xlAutomatic
End With
sheets("Feuil1").protect ' Mise en place de la protection

Bonne journée

[emillio]

Si j'ai bien compris, je clique droit sur l'onglet de ma page, visualiser le code et je copie le code que tu m'as envoye.

En fait je souhaite bloquer un certain nombre de cellules suite a la reponse d'une cellule.
Si J27=VRAI, alors bloquer les cellules G28:I67.

Je ne sias pas du tout comment coder, tu sais ou je pourrais trouver un tutoriel pour apprendre a realiser ce code?

Merci pour ton aide!

[wilfried_42]

re:

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
       if target.address<>"$J$27" then exit sub
       activesheet.unprotect
       with range("G28:I67")
             .locked = true ' Cellule A1 verouillée
             .Interior.ColorIndex = 2 ' Interieur grisé
             .Interior.Pattern = xlLightUp ' Avec des rayures
             .Interior.PatternColorIndex = xlAutomatic
       End With
       activesheet.protect
End Sub

[emillio]

Merci pour le code Wilfried,

Je crois avoir adapte le code et je l'ai mis dans le code mais quand je le lance on me di que la procedure est trop grande donc erreur de compilation.
Pourrais tu me dire si le tien fonctionne?
Merci

[wilfried_42]

re:
chez moi la procedure fonctionne tres bien (Version Excel 2002)

Bonne journée

[emillio]

Merci pour ton code!

Cependant, si je veux utiliser la mise en forme conditionnelle pour juste colorer un groupe de cellule, j'ai beau appliquer les formules et les exemples du forum, seulement la cellule en haut a gauche de la zone selectionnee se colorie...
Aurais tu une solution sans macro?
merci

[wilfried_42]

re:

il nous faut un fichier exemple, on ne peut deviner :

1 le groupe de cellule,
2 les tests conditionnels pour appliquer les formats

@ te lire

[emillio]

Salut,
Voici un fichier joint pour te donner une idee de se que je veux faire.
Si l'on coche la case "Slots 3&4 same as Slots 1&2" alors il apariat True dans I3. Ceci serait la condition pour que se colore les colones F, G et H. Pour que l'utilisateur n'y est plus acces.
Merci pour ton aide!

[wilfried_42]

re:

Ton fichier en retour

Bon week end