Discussion :

[Jonathan Raucy]

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 :

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

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.

[casavba]

Bonjour, je vous propose de passer par un evenement Workbook

Code :

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

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

[wilfried_42]

Bonjour à tous


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

Bonne journée

[Jonathan Raucy]

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.... 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!!!!!!!!!

Cordialement,
Jonathan

[wilfried_42]

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)

[Jonathan Raucy]

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.
Merci d'avance.
Cordialement,
Jonathan