[XL-2007] Mise en forme selon format d'origine

[chipster008]

Bonjour,

J'ai un tableau pour suivre les heures des salariés.
Colonne A et B, nom et prénom
Colonne C taux horaire
Plage D17:O25 heures effectuées par semaine.

Certaines heures à vérifier sont en rouge.

J'ai fais un tableau juste dessous construit pareil sauf que sur la plage D17:O25 je fais le produit du taux horaire et des heures effectuées.

Jusque là c'est basique.

Par contre je voudrais que le produit soit de la même couleur que les heures effectuées marquées dans letableau du dessus.

Est ce que quelqu'un a une idée ?

[Daniel.C]

Bonjour,

Non testé :

Code :

1
2
3
4
5
6
7
8
Sub test1()
    'Réf. 111025.xlsm chipster008
    Dim c As Range
    [A17:O25].Copy [A26]
    For Each c In [D26:O34]
        c.Value = c.Value * Cells(c.Row, 3)
    Next c
End Sub

[chipster008]

Merci beaucoup le code seul marche.

Par contre sur la feuille j'ai déjà une macro, quand je mets le code à la suite il m'affiche un message d'erreur type d'incompatibilité.

Ci dessous le code déjà existant :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
Dim maPlage As Range
    With ActiveSheet
    Set maPlage = Union(.Range("D26:O34"), .Range("D39:O44"), .Range("D49:O52"))
    End With
 
Dim totCellNoires As Double
    totCellNoires = 0
 
Dim maCellule As Range
For Each maCellule In maPlage
 
    If maCellule.Font.Color = 0 Then totCellNoires = totCellNoires + maCellule.Value
 
Next maCellule
 
Range("M11").Value = totCellNoires
 
End Sub

[Daniel.C]

Essaie comme ça :

Code :

1
2
3
4
5
6
7
8
9
10
Sub test1()
    'Réf. 111025.xlsm chipster008
    Dim c As Range
    Application.EnableEvents = False
    [A17:O25].Copy [A26]
    For Each c In [D26:O34]
        c.Value = c.Value * Cells(c.Row, 3)
    Next c
    Application.EnableEvents = True
End Sub

[chipster008]

ça me met toujours le message incompatibilité de type

[Daniel.C]

Sur quelle ligne ?

[chipster008]

Code :

 Set maPlage = Union(.Range("D26:O34"), .Range("D39:O44"), .Range("D49:O52"))

[Daniel.C]

J'ai testé avec la dernière macro que j'ai postée. Je ne peux pas répliquer ton problème. A partir du moment où j'ai codé :

Code :

Application.EnableEvents = False

la macro :

Code :

Private Sub Worksheet_Change(ByVal Target As Range)

ne peut pas se déclencher.

[chipster008]

ça me met le message à chaque fois mais ça me souligne pas la ligne tout le temps.

Je te mets un exemple du fichier

[Daniel.C]

Vu, c'est parce que les cellules de la colonne C ne sont pas toutes numériques; mets :

Code :

1
2
3
4
5
6
7
8
9
10
Sub test1()
    'Réf. chipster008.xls
    Dim c As Range
    Application.EnableEvents = False
    [A17:O25].Copy [A26]
    For Each c In [D26:O34]
        If IsNumeric(Cells(c.Row, 3)) Then c.Value = c.Value * Cells(c.Row, 3)
    Next c
    Application.EnableEvents = True
End Sub