MFC avec formule

**bbcancer** · 31/08/2011, 11h34

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 :

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
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** · 31/08/2011, 11h41

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 :

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

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** · 31/08/2011, 13h54

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** · 31/08/2011, 14h04

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** · 31/08/2011, 14h15

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** · 31/08/2011, 19h27

Ok.

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

Code :

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

=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** · 01/09/2011, 11h08

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