MFC en VBA

Bonjour,
J'ai besoin de faire une Mise En Forme Conditionnelle sur 4 critères de cellule ainsi j'ai dû passer en VBA. N'étant pas très bon en VB j'ai fais des recherches et j'ai trouver ce bout de code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub FormatConditionnel() Dim wCell As Range, v As Variant, Nbre As Boolean   For Each wCell In ActiveSheet.UsedRange v = wCell.Value If IsNumeric(wCell.Value) Then wCell.Interior.ColorIndex = _ Switch( _ v = 2000, 1, _ v = 1999, 2, _ v = 450, 3, _ v = 350, 4, _ v = 200, 5, _ v = 150, 6, _ v = 100, 7) Else wCell.Interior.ColorIndex = 0 End If Next wCell End Sub

---

Mais j'ai un souci avec ce code (C'est sans doute du à mon ignorance du VB) en effet je n'arrive pas à choisir la zone d'utilisation de la MFC il utilise donc tout le classeur (ce que je ne veut pas) ensuite plus il enlève la couleur de toutes les autres cellules qui ne font pas parti des critères du coup mon planning est illisible.

Bonjour, je vous propose de passer par un evenement Workbook

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Public wCell As Range, v As variant   Public Function MatchUp(v As variant) MatchUp = Switch( _ v = 2000, 1, _ v = 1999, 2, _ v = 450, 3, _ v = 350, 4, _ v = 200, 5, _ v = 150, 6, _ v = 100, 7) End Function   Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) For Each wCell In Target v = wCell.Value If IsNumeric(wCell.Value) Then wCell.Interior.ColorIndex = _ MatchUp(v) End If Next wCell End Sub

---

Bon courage

Bonjour à tous


Regarde ce fichier : il te sera surement d'une aide interressante

Bonne journée

Bonjour,
Merci casavba j'ai essayer ton code et cala fonctionne mais la cellule change de couleur seulement lorsque l'on clique dessus peut on faire en sorte que cela ce face automatiquement????? Deplus la ou mon cursuer passe la couleur d'origine trépasse....:lol: En effet des que mon curseur ce pose sur une cellule il à pour effet de la remplir de blanc alors que je ne veut pas car cela rend mon planning illisible.

Merci aussi à Wilfried mais je suis vraiment novice en VB donc je n'ai pas compris grand chose moi je ve juste que chaque cellule ayant le chiffre 4 devienne une cellule à fond orange "le code couleur est 38". Etant donné que j'ai déjà utilisé les tois possibilité de MFC par excel je suis obligé de passer par un code.

Bref help me!!!!!!!!!:bug:

Cordialement,
Jonathan

re:

Si tu regarde mon fichier, il n'y a pas de code VBA et pourtant j'ai X MFC possibles. et X peut devenir grand

C'est une Macro complementaire, qui se charge sur Excel et qui ne surcharge pas le classeur, tu n'as aucun code VBA à entrer

Pour charger la Macro : Menu Outils / Macros complementaire

Dans la fenetre Choisir le bouton Parcourir, Chercher la Macro Gw_Mfc_7 et tout valider

Meme si tu ferme Excel et que tu le reouvres, la macro est comprise dans Excel jusqu'au prochain dechargement de la macro (Acte volonatire de l'utilisateur)

Merci de ton aide wilfried ton aide est précieuse une fois que j'ai chargé la macro je fais comment pour que mon fameux chiffre 4 grise la cellule?
==> Cette question est peut etre nul mais je le repette je suis débutant:oops:.
Merci d'avance.
Cordialement,
Jonathan

re:

Tu crees une feuille MFC, en colonne A,

A2:Axxxx (surtout Pas A1, cette cellule est reservée)
Tu y mets tes valeurs
à chacune de ces valeurs, tu y mets la couleur que tu desires : Regarde la Feuille MFC dans le fichier exemple (Colonne A)

Ensuite : tu retournes dans ta feuille, Tu selectionnes Ta plage de saisie et tu y inscris une seule ligne de MFC (Supprime tes autres MFC)

Code:

---

=Gw_mfc()+cellule

---

cellule est la reference de la premiere cellule de la plage selectionnée sans les $ exemple A5
(Voir Feuille 1, Formule MFC de la colonne A, Plage A5:A19)

Cordialement

Ben écoute j'ai envi de te dire merci et mission terminée.:king:
Merci de ton aide.
Bien cordialement,
Jonathan