Discussion :

[birghit]

bonjour

j'ai un petit problème je n'arrive pas à coder en vba une macro pour un tableau sur excel 2010
si la valeur de la cellule A1 est en rouge alors la valeur de la cellule B1 est égale à 0.00€,
si la valeur de la cellule A2 est en rouge alors la valeur de la cellule B2 est égale à 0.00€
si la valeur de la cellule A3 est en rouge alors la valuer de la cellule B3 est égale à 0.00€ et ainsi de suite
en boucle jusqu'à la fin du tableau

MERCI POUR UNE SOLUTION

[ARTURO83]

Bonjour,

D'après l'énoncé de votre problème, il semblerait que la couleur de fond des cellules de la colonne "A" changerait toute seule, je suppose que ce changement se fait par application d'une MFC. Si c'est bien le cas, il suffit de récupérer et tester la formule de la MFC et suivant le résultat obtenu, appliquer en VBA la valeur 0,00€ aux cellules de la colonne "B".

Est-ce bien cela? Si Oui, quelle est la formule employée dans la MFC?

Cdlt

[Transitoire]

Bonjour, compte tenu du peu d'informations, juste un conseil.
J'imagine que sa couleur lui est donnée par une mise en forme conditionnelle. Au lieu de chercher à connaitre la couleur de la cellule, ne serait-il pas plus simple d'utiliser la même condition que celle qui lui a donnée sa couleur.

Cordialement

"Oupps" Bonjour Arturo

RAJOUT:
Le code ci-dessous est a mettre à votre sauce.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim x As Integer
x = 1
 For Each Cell In Range("A1:A40")  'pour une plage de A1 à A40
    If Cell(x, 1).Value < 0 Then
    Cell(x, 2) = 0
    Else
    Cell(x, 2).Value = Cell(x, 1).Value
    End If
Next Cell
End Sub

[birghit]

Merci pour vos réponses
non il n'y a pas de mise en forme conditionnelle

LES sommes au débit sont en noires et lorsque celles ci sont débitées je change la couleur et les mets en rouge(manuellement) et lorsque cette condition est remplie les sommes au credit sont égales à 0.00 c'est pour cela que je souhaite une macro pour que quand la valeur de la cellule A1 est rouge,la cellule B1 est égale à 0.00 € et cela pour tout le tableau

DEBIT	CREDIT
-19,81 €	-19,81 €
-25,00 €	-25,00 €
-48,00 €	-48,00 €
-150,00	- 0.00 €
-9,65 €	- 0,00 €

j'espère m'être mieux expliquée

merci de votre aide

[Transitoire]

Bonsoir,sous réserve que votre rouge soit le même que le mien a mettre ensuite à la sauce de votre document
Mon code étudie donc toute la plage de A1 a A40 .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
Dim x As Integer
x = 1
 For Each Cell In Range("A1:A40")  'pour une plage de A1 à A40
    If Cell.Font.ColorIndex = 3 Then
    Cell(x, 2).Value = 0
    Else
    Cell(x, 2).Value = Cell(x, 1).Value
    End If
Next Cell
End SubÏ

Cordialement

[birghit]

Bonjour, compte tenu du peu d'informations, juste un conseil.
J'imagine que sa couleur lui est donnée par une mise en forme conditionnelle. Au lieu de chercher à connaitre la couleur de la cellule, ne serait-il pas plus simple d'utiliser la même condition que celle qui lui a donnée sa couleur.

Cordialement

"Oupps" Bonjour Arturo

RAJOUT:
Le code ci-dessous est a mettre à votre sauce.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim x As Integer
x = 1
 For Each Cell In Range("A1:A40")  'pour une plage de A1 à A40
    If Cell(x, 1).Value < 0 Then
    Cell(x, 2) = 0
    Else
    Cell(x, 2).Value = Cell(x, 1).Value
    End If
Next Cell
End Sub

Merci beaucoup pour votre aide
probleme résolu