[XL-2003] MFC avec formule

[bbcancer]

Bonjour,

J'ai un petit souci.
On m'a bien aidé déjà auparavant et c'ets grace à ce forum que j'avais trouvé ce code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range) 
 
Application.ScreenUpdating = False
 
If Intersect(Target, [$D$4:$GE$39]) Is Nothing Then Exit Sub 
    For Each Cel In Target 
        Set Cel_R = Sheets("Feuil1").[$B$2:$B$31].Find(Cel, LookIn:=xlValues, LookAt:=xlWhole) 
            If Cel_R Is Nothing Then
                Cel.Interior.ColorIndex = xlNone
            Else
        Cel.Interior.ColorIndex = Cel_R.Interior.ColorIndex 
        Cel.Font.ColorIndex = Cel_R.Font.ColorIndex 
        Cel.Font.Bold = Cel_R.Font.Bold 
            End If
    Next Cel
 
End Sub

Ce code marche très bien si je rentre ma ou mes lettres correspondantes.

Par contre, j'ai une feuille qui dans chaque case renvoie à une cellule d'une autre feuille, et la dans cette feuille, ce code ne marche pas...

Quelqu'un peut-il m'aider?

Merci

Cordialement

[Pierre Fauconnier]

Salut.

1. Pourquoi ne pas placer une vraie MFC, plutôt que de faire mouliner du code?

2. En la plaçant par code événementiel, tu attaches la modification du format à une feuille particulière. Il te faudrait donc soit dupliquer ton code dans le module de l'autre feuille, soit attacher le code à un événement de classeur

Code :

1
2
3
4
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ...
    ...
End Sub

Mais là aussi, je pense qu'il est plus simple de gérer une vraie MFC (voir ma signature à propos du développement VBA en Excel)

[bbcancer]

Bonjour

Je ne maitrise pas encore tout j'ai débuter en vba il n'y a pas trop longtemps.

Je ne pouvais pas mettre de vrai MFC car j'ai plus que 3 couleurs
Et le code que tu donnes je l'ajoute en module ou je laisse sur les feuilles (comme il est fait pour là)?

JE peux mettre un exemple de fichier si c'est plus simple.

Merci

[Pierre Fauconnier]

Ok pour la mfc par macro.

Je n'ai pas compris ceci

Par contre, j'ai une feuille qui dans chaque case renvoie à une cellule d'une autre feuille, et la dans cette feuille, ce code ne marche pas...

[bbcancer]

En fait, j'ai plusieurs feuille dans mon classeur.
Sur une feuille, j'ai ma légende (lettre et format à appliquer)
Sur une 2 autres feuilles (matin et après midi), quand je rentre la légende (c'est un planning), ma MFC s'applique automatiquement grace à ce code.
Sur une autre feuille (we), chaque cellule est renvoyé en fonction des feuilles matin et aprem (='matin'!D4). C'est pour éviter de réécrire manuellement la légende.
C'est plus clair?

[Pierre Fauconnier]

Ok.

Tu dois donc adapter aussi le format de cellules qui contiennent les formules telles que

Code :

=matin!d4

Cela signifie que tu dois insérer le code dans la boucle, en fonction de la relation qui unit les cellules de la feuille Matin et de la feuille qui contient la formule citée plus haut. Sur cette feuille, la plage à modifier est la même que celle de la plage source ([$D$4:$GE$39])?

[bbcancer]

Oui ma plage source est la même. Du coup comment je dois adapter mon code?
Merci

[Pierre Fauconnier]

Tu pourrais essayer ceci:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Change(ByVal Target As Range) 
 
Application.ScreenUpdating = False
 
If Intersect(Target, [$D$4:$GE$39]) Is Nothing Then Exit Sub 
    For Each Cel In Target 
        Set Cel_R = Sheets("Feuil1").[$B$2:$B$31].Find(Cel, LookIn:=xlValues, LookAt:=xlWhole) 
            If Cel_R Is Nothing Then
                Cel.Interior.ColorIndex = xlNone
            Else
            Cel.Interior.ColorIndex = Cel_R.Interior.ColorIndex 
            Cel.Font.ColorIndex = Cel_R.Font.ColorIndex 
            Cel.Font.Bold = Cel_R.Font.Bold 
            with worksheets("feuille").range(Cel.address)
                .Interior.ColorIndex = Cel_R.Interior.ColorIndex 
                .Font.ColorIndex = Cel_R.Font.ColorIndex 
                .Font.Bold = Cel_R.Font.Bold
            End With 
            End If
    Next Cel
 
End Sub

[EDIT] Il faut bien entendu adapter le nom de la feuille à ton cas [/EDIT]

L'idée est de faire correspondre le format conditionnel de la cellule dépendante à celui de la cellule antécédante, au moment de la modification de cette dernière.

[bbcancer]

Soit je me suis trompée dans le nom de ma feuille (feuille à adapter), soit je comprends pas pourquoi ca en marche pas

Pour le nom de la feuille à adapter, je mets bien le nom de la feuille sur laquelle la formule est renvoyé? (Par exemple ma feuille matin)?

[Pierre Fauconnier]

Non, c'est le nom de la feuille qui contient "=matin!d4" que tu dois renseigner

[bbcancer]

Ça marche pas
Tu veux que je t'envoie un exemple de mon fichier?

[Pierre Fauconnier]

A ce stade, ce serait peut-être une bonne chose, en effet

[bbcancer]

Voilà je te joins mon exemple.
Mon problème se situe donc sur ma feuille WE qui renvoie aux feuilles matin et aprem.
J'espère que du coup ca sera un peu plus clair.
Je te remercie

oup's je crois que mon fichier ne s'est pas inséré
En fait il était trop gros donc j'ai du le simplifier. Les colonnes vont jusqu'au mois de juin et pour le reste de l'année j'ai fait 3 autres onglets

Est-il possible dans mon code de lui dire de marquer tout en majuscule, ou s'il y a possibilité de respecter la case? (Car par exemple pour le lieux Je souhaiterais mettre Aaa donc 1er lettre en majuscule et le reste en minuscule) au sinon tout le reste est forcément en majuscule


Une autre question : pourquoi quand je supprime une ligne ou une colonne (pareil lorsque je colle), mon fichier plante et je suis obligé de le forcer à se fermer (mais j'annule pour qu'il me prenne en compte mes changements). je sais pas si c'est très clair

Je n'arrive pas à envoyer le fichier je comprends pas pourquoi j'ai essayer de l'alléger. Et il me marque :"Échec de l'upload du fichier. "
Bon je réessaye.
Je te remercie encore pour ton aide

Bon ca y est ca marche...
Dur dur pour le simplifier

Bon du coup j'ai été obligé de supprimer pas mal de chose...

Alors sur mon fichier original
Ma feuille "Légende" va de la ligne 2 à 32
Ma feuille " Planning Matin S1" va de la ligne 4 à 46 et de la colonne B à GB
Ma feuille " Planning Aprem S1" va de la ligne 4 à 39 et de la colonne B à GB
Ma feuille " Planning we S1" va de la ligne 4 à 73 et de la colonne B à GB

Ma feuille we est un recap des feuilles matin et aprem

Merci

[bbcancer]

Bonjour,

Apparemment mon problème est trop compliqué ou c'est juste que tu n'as pas eu le temps de voir pourquoi ca ne marchait pas...
Merci encore