Mise en forme conditionnelle avec code VBA

[gerard55]

Bonjour à tous,
j'ai une mise en forme conditionnelle avec un code VBA avec Target. ça fonctionne bien lorsque l'on tape le code souhaité. Mais lorsque ce code est issu d'une formule ou d'un autre fichier, ça ne fonctionne pas.
exemple : E8 est égal = f8 . Si CP n'était pas inscrit avant l'écriture de la formule, ça ne marche pas. (fichier joint)
Y-a-t-il une solution pour régler ce problème.
Merci d'avance.
Gérard

 

[Pierrot93]

Re : Mise en forme conditionnelle avec code VBA

Bonjour,

peut être tester la cellule devant être réellement modifiée, dans ton exemple la cellule F1 et ensuite boucler sur les "Dependents"

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim c As Range
If Target.Count > 1 Or Target.Address <> "$F$1" Then Exit Sub
For Each c In Target.Dependents
    'ton code de mise enforme
Next c
End Sub

bonne journée
@+

 

[gilbert_RGI]

Re : Mise en forme conditionnelle avec code VBA

Bonjour

ajoutez ces lignes

Private Sub Worksheet_Calculate()
Worksheets("Feuil1").UsedRange.Columns("A:f").Calculate
End Sub

 

[gerard55]

Re : Mise en forme conditionnelle avec code VBA

Bonjour Pierrot et Gibert_RGI
Merci pour vos réponses
Le code de Pierrot ne fonctionne pas et il était limité à la formule liée à la cellule F1.

Le code de gibert_RGI me semble intéressant. Je l'ai ajouté dans la le code de la feuille 1 sans modifier mon code actuel. Mais, il me renvoie le message suivant:
Erreur d'éxécution 438 Propriété ou méthode non gérée par cet objet.
A+
Gérard

 

[Pierrot93]

Re : Mise en forme conditionnelle avec code VBA

Re, bonjour Gilbert🙂

Le code de Pierrot ne fonctionne pas et il était limité à la formule liée à la cellule F1.

bah... fonctionne chez moi.... toutes les cellules qui font référence à F1 passe dans la boucle...

 

[gilbert_RGI]

Re : Mise en forme conditionnelle avec code VBA

hello, Pierrot93


fonctionne chez moi aussi

 

[gerard55]

Re : Mise en forme conditionnelle avec code VBA

J'ai du mal me faire comprendre
ça prend bien la valeur de la cellule F1 mais pas la mise en forme (la couleur de la cellule prévue).
Gérard

 

[Pierrot93]

Re : Mise en forme conditionnelle avec code VBA

Re,

A voir le code que tu as utilisé.... pour compléter l'exemple :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim c As Range
If Target.Count > 1 Or Target.Address <> "$F$1" Then Exit Sub
For Each c In Target.Dependents
    if c.Value = "CP" Then c.Interior.ColorIndex = 33
Next c
End Sub

 

[gerard55]

Re : Mise en forme conditionnelle avec code VBA

Je te remercie Pierrot effectivement ça fonctionne. Mais, ça ne répond que partiellement à mon besoin car j'ai un tableau de 100 noms avec tous les jours du mois. Une formule (index / équiv) qui récupère les éléments dans une base de données. Je les récupère bien mais, la mise en forme ne se fait pas. Avec la formule que tu proposes, c'est difficile à adapter car il y a une cellule d'origine pour une cellule dépendante.
Gérard

 

[Pierrot93]

Re : Mise en forme conditionnelle avec code VBA

Re,

bah... regarde peut être également du coté de la solution proposé par Gilbert....

 

[Pierrot93]

Re : Mise en forme conditionnelle avec code VBA

Re,

A noter que l'on peut également contrôler une plage de cellules :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim c As Range
If Target.Count > 1 Or Intersect(Target, Range("A1:F2")) Is Nothing Then Exit Sub
For Each c In Target.Dependents
With c
    Select Case LCase(.Value)
        Case "at", "m", "mt", "pt", "cp"
            .Interior.ColorIndex = 36
        Case "mtt"
            .Interior.ColorIndex = 38
        Case Else
            .Interior.ColorIndex = xlNone
    End Select
End With
Next c
End Sub