Problème de macro (format)

ERIC S

XLDnaute Barbatruc

• 15 Février 2006

• #2

Bonjour

c'est du ping?

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

A+

 

Vote positif 0 Vote négatif

A

archi

XLDnaute Impliqué

• 15 Février 2006

• #3

Slt Eric,

tout est dans le fichier

bye

 

Vote positif 0 Vote négatif

ERIC S

XLDnaute Barbatruc

• 15 Février 2006

• #4

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+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Février 2006

• #5

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

A

archi

XLDnaute Impliqué

• 15 Février 2006

• #6

Merci Eric et Hervé,

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Février 2006

• #7

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]

 

Pièces jointes

• Brulage_V1_20060215162213.zip

  11.2 KB · Affichages: 21

Vote positif 0 Vote négatif

A

archi

XLDnaute Impliqué

• 15 Février 2006

• #8

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]

 

Pièces jointes

• Brulage_V2.zip

  11.5 KB · Affichages: 19

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Février 2006

• #9

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

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

A

archi

XLDnaute Impliqué

• 15 Février 2006

• #10

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]

 

Pièces jointes

• Brulage_V1_20060215183803.zip

  17.9 KB · Affichages: 20

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Février 2006

• #11

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

 

Vote positif 0 Vote négatif

A

archi

XLDnaute Impliqué

• 15 Février 2006

• #12

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

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 15 Février 2006

• #13

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]

 

Pièces jointes

• Brulage_V1_20060215210156.zip

  13.2 KB · Affichages: 21

Vote positif 0 Vote négatif

A

archi

XLDnaute Impliqué

• 16 Février 2006

• #14

Merci pour tous Hervé
bye

 

Vote positif 0 Vote négatif