Problème de macro (format)

[archi]

Re bonjour,

Je joint un fichier pour résoudre un petit problème de macro sur le format cellule

merci d'avance
bye [file name=Brulage_V1.zip size=12113]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Brulage_V1.zip[/file]

 

[ERIC S]

Bonjour

c'est du ping?

par contre tes explications sont succintes : que dois-tu écrire, où, que doit'il se passer?

A+

 

[archi]

Slt Eric,

tout est dans le fichier

bye

 

[ERIC S]

re

ma question est du style : tu modifies les feuilles 'joueur' et la feuille brûlage se met à jour automatiquement avec changement de couleur ?

si oui il faut appeler ta macro à l'activation de la feuille brûlage

essaie :

Private Sub Worksheet_Activate()
coloration Target
End Sub

A+

 

[Hervé]

Bonjour archi, eric

une autre possibilité :

Private Sub Worksheet_Activate()
Dim c As Range
Dim code As Range

For Each c In Range('g5:m6')
    For Each code In Application.Range('Code')
            If code.Text = c.Text Then
                c.Interior.ColorIndex = code.Offset(0, 1).Interior.ColorIndex
            End If
    Next code
Next c
End Sub

salut

 

[archi]

Merci Eric et Hervé,

pour ta macro Hervé il y a un petit bug:
les cellules vides me donne également une couleur ??

 

[Hervé]

re archi

le problème doit venir de ton fichier car chez moi pas de souci.

salut [file name=Brulage_V1_20060215162213.zip size=11463]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Brulage_V1_20060215162213.zip[/file]

 

[archi]

en modifiant quelque valeur dans l'onglet 'Andriolo L.' par exemple,
j'obtiens un bug !!
peux jeter un oeil ??
bye [file name=Brulage_V2.zip size=11797]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Brulage_V2.zip[/file]

 

[Hervé]

re

faut les rendre blanche avant de les colorier :

Private Sub Worksheet_Activate()
Dim c As Range
Dim code As Range

Range('g5:m6').Interior.ColorIndex = xlNone

For Each c In Range('g5:m6')
        For Each code In Application.Range('Code')
                        If code.Text = c.Text Then
                                c.Interior.ColorIndex = code.Offset(0, 1).Interior.ColorIndex
                        End If
        Next code
Next c
End Sub

salut

 

[archi]

d'accord merci, mais maintenant, je perds la couleur d'origine de certaines cellules
jéte un oeil [file name=Brulage_V1_20060215183803.zip size=18279]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Brulage_V1_20060215183803.zip[/file]

 

[Hervé]

re archi

A force de me faire jeter des yeux, je vais finir par etre aveugle 🙂

j'ai pas de souci chez moi.

j'ai vu que tu utilisais une xla cfplus, que je n'ai pas chez moi, le problème ne viendrait pas de là.

je connais pas cette xla, par contre, apparement elle ralentit considérablement excel 😱

en tout cas la macro que je t'ai donné ne peut pas intervenir sur la colonne D.

elle ne fait que mettre à blanc les cellules G5S7 puis recolorier suivant ton tableau.

je ne pense pas que le problème viennent de ce code.

ou alors je comprend mal ta problèmatique.

salut

 

[archi]

justement, le faite de mettre en blanc, enlève
le gris par défaut dans les cellules vides !!
car au départ, j'utilisais MOD(LIGNE();2)dans le MFC
comment reproduire cette mise en forme (une ligne sur deux en gris) dans mon tableau (G5: S7) pour les cellules vides ???

bye

Message édité par: archi, à: 15/02/2006 20:18

 

[Hervé]

re

Ah oui, mais si tu me le dis pas que tu utilisais une mefc pour les gris, c'est sur que je pouvais pas le deviner 🙂

en pièce jointe ton fichier avec une nouvelle mefc

j'ai supprimé de ce fichier les codes de cfplus, ca me gavait de voir mon athlon 64 ramer pour la moindre addition . 😱

salut [file name=Brulage_V1_20060215210156.zip size=13515]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Brulage_V1_20060215210156.zip[/file]

 

[archi]

Merci pour tous Hervé
bye