Mise en forme conditionnelle >3 par VBA

Version imprimable

05/02/2013, 18h02
mouftie

Mise en forme conditionnelle >3 par VBA

Bonjour,
Je voudrais écrire mes mises en forme conditionnelle, parce qu'il y en a beaucoup, qu'elles risquent d'être modifiées de temps en temps, et que ça concerne plusieurs feuilles...
ce que je voudrais, c'est qu'en fonction de plages (toujours les mêmes), si l'utilisateur tape des mots clés, la cellule se colore en fonction du mot clé (évidement sans avoir à lancer une macro).
je suppose que pour commencer il convient d'écrire le code dans ThisWorkbook
j'ai essayé avec votre tuto http://silkyroad.developpez.com/Exce...itionnelle/#LV
mais ça manque d'informations, je n'y arrive pas
J'ai essayé avec des select case, mais là encore, je n'ai rien d'automatique
j'ai trouvé qq ch qui commence par

Code:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

mais je ne sais pas ce que c'est qu'une Target, ni comment cela s'utilise :oops:
Je vous joins mon fichier, avec mes bouts de codes.
Merci de bien vouloir m'expliquer comment m'y prendre.
http://cjoint.com/?CBfsaqx1jff
05/02/2013, 18h15
Philippe Tulliez
Bonjour,
Que tu n'aies pas compris le chapitre du tutoriel dont tu parles est une chose, dire que cela manque d'information en est une autre.
Dans la procédure événementielle Worksheet_Change l'argument Target est un objet Range qui représente la ou les cellules qui ont été modifiées
Donc si tu changes la valeur de la cellule A8 en tapant 15, Target.Value sera égal à 15
Code:

1 2 3 Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Target.Value End Sub
06/02/2013, 08h13
mouftie

Bonjour Philippe,
Merci de ta réponse, je ne voulais pas vexer qui que se soit, c'est le seul tuto que j'ai trouvé et je dis merci, mais j'aurais aimé avoir qq exemples d'utilisation avec d'autres opérateurs, d'autant plus que le tuto semble vraiment au plus proche de la boîte de dialogue des mises en forme conditionnelle.

Comment dois-je donner la valeur $E$5avec xlEqual

Code:

.FormatConditions.Add Type:=xlEqual, "=$E$5"

?
Merci
06/02/2013, 09h35
gFZT82

Bonjour,

Tu peux t'aider de l'enregistreur de macro pour coder ce type d'opération.
Pour appliquer une MFC à une cellule contenant une valeur égale à celle de E5.

Code:

.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=$E$5"

Cordialement.

Bonjour
Merci pour ta réponse.
J'ai bien commencé par faire un enregistrement, malheureusement, il reste vide :

Code:

1
2
3
4
Sub MefCond1()
'
' MefCond1 Macro
End Sub

Donc j'ai essayé ça, dans ThisWorkbook :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Range("A1:C3") ', A5:C10, A15:C20
    'Supprime les MFC existantes
    .FormatConditions.Delete
 
    'Ajoute une condition (Vrai lorsque la cellule est non vide)
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=$E$5"
 
    With .FormatConditions(1)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Interior.Color = 16771071       '.Interior.ColorIndex = 15 'Gris
 
    End With
End With
End Sub

Tout fonctionne parfaitement sur les cellules déterminées.
J'ai plus qu'à saisir mes 31 codes, ça va aller plus vite.
Encore merci à tous

J'ai encore un pb, j'ai voulu dupliquer pour les autres codes ayant la même couleur, mais cela n'est pas pris en compte.
J'ai également voulu ajouter une conversion des codes en majuscule, ça non plus ne fonctionne pas :(
Voilà donc mon nouveau code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Range("A1:C3, A6:C7, A11:C14") 'Plage devant pratiquer la MeF
    'Supprime les MFC existantes
    .FormatConditions.Delete
 
    'Ajoute une condition (Vrai lorsque la cellule est non vide)
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=$E$5"
    .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=$E$6"
 
    With .FormatConditions(1)
        'Définit la couleur de fond de la cellule lorsque la condition sera vraie.
        .Interior.Color = 16771071       '.Interior.ColorIndex = 15 'Gris
 
        'Converti les saisie en majuscule
        Target.Value = UCase(Target.Value)
    End With
End With
End Sub

Est-ce qq'1 voit ce qui cloche ?

Re,

Tu n'est pas obligé de passer par les MFC pour réaliser cette mise en forme de cellules.
Fais ce test en plaçant le code dans le module de la feuille 1.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim MaPlage As Range
    Set MaPlage = Range("A1:C3, A6:C7, A11:C14") 'Plage devant pratiquer la MeF
    'Si une seule cellule a été sélectionnée
    If Target.Count = 1 Then
        Application.EnableEvents = False
        'Si la cellule fait partie de la plage à traiter
        If Not Application.Intersect(Target, MaPlage) Is Nothing Then
            'Recherche un mot clé
            Set C = Columns(5).Find(Target, LookIn:=xlValues, lookat:=xlWhole)
            'Si la saisie correspond à un mot clé
            If Not C Is Nothing Then
                'Affecte la couleur du mot clé à la cellule
                Target.Interior.Color = C.Interior.Color
            End If
        End If
        'Convertit la saisie en majuscule
        Target.Value = UCase(Target.Value)
    Application.EnableEvents = True
    End If
End Sub

Cordialement.

06/02/2013, 17h08
mouftie
Bonjour gFZT82,
Merci pour ton aide et tes explications.

J'ai créé un nouveau fichier, dans lequel j'ai copié ma colonne 5 (E), dans VBE j'ai créé un module dans lequel, j'ai collé ta procédure.
Quoique je tape en A1, il ne se passe rien, ni majuscule ni couleur quand je tape un mot de la colonne 5.
Je suis sur cette question depuis ce matin, je ne comprends pas... :?

J'ai même essayé l'exemple de Philippe Tulliez :
Code:

1 2 3 Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Target.Value End Sub
quand je tape 15 en A8, je n'ai aucun message qui me donne une valeur...
06/02/2013, 17h36
gFZT82

Citation:

J'ai créé un nouveau fichier, dans lequel j'ai copié ma colonne 5 (E), dans VBE j'ai créé un module dans lequel, j'ai collé ta procédure.

La procédure Worksheet_Change() correspond à un évènement de la feuille sur laquelle on effectue la surveillance.
Il faut donc que le code soit copié dans le module de la feuille concernée.

Cordialement.
06/02/2013, 18h37
mouftie

Merci gFZT82, mettre le code dans le module de la feuille concernée est une grande avancée !
ton code a l'air de fonctionner, même s'il semble que j'ai qq bug avec des copies / collés / glissés.

C'est vrai que je préférai essayé d'avoir un code avec

Code:

.FormatConditions.Add

, car ça "incrémente la boite de dialogue des mises en forme conditionnelle"
mais là je ne maitrise rien du tout, ni la zone "s'applique à", ni "valeur de la cellule".
De plus, je dois coder un fichier qui a déjà des mises en forme conditionnelle faite manuellement...
Donc je verrais demain, j'en ai marre.
En tout cas merci pour ton aide.