Discussion :

[Traputaca]

Bonjour,

Je cherche créer une "condition" par rapport a la couleur d'une cellule.

Quand je colorie une cellule en rouge par exemple j'arrive avec vba a mettre une condition

Code :

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

if range("a1").interior.color = 255 then

Sa , no souci.

Mais si ma cellule est rouge car une mise en forme conditionnel l'impose, la couleur rouge n'est pas "vu".

Quelqu'un connait ce problème?


Merci d'avance

[kiki29]

Salut, à lire ( en Anglais )

[Traputaca]

Hello,

Est ce que tu pourrais m'aider a propos de cette fonction ..? Je n'ai pas tput compris... Je maitrise pas bien les function dans VBA..

Merci d'avance

[Marc-L]

Bonjour,

ce n'est pas un problème, c'est le fonctionnement normal d'Excel …

Donc soit utiliser les fonctions codées dans le lien de Philippe, soit dans le code reproduire les conditions des MFC …

[NVCfrm]

bonjour,

il me paraît plus pratique de tester la condition du format tout simplement pour déterminer la couleur.
voir l'exemple sur cette discussion

[Traputaca]

bonjour,


merci beaucoup pour votre aide. J'ai pu essayer d'autres choses mais sans succès ...

j'ai un tableau de valeur, qui sont par MFC rouge ou vert.

je voudrais crée un grosse case, disant "si dans mon tableau, une des cellules est rouge alors écrit "pasbon" sinon écrit "bon""

un truc genre

Code :

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

1
2
3
4
5
6
7
8
9
Sub macro2()
 
  if ActiveSheet.Range("B28:P37").FormatConditions(1).Interior.ColorIndex = 255 then
range("O38") = "Pasbon"
else 
range("O38") = "bon"
end if
 
End Sub

mais je me rend compte qu'en essayant un bout de macro

Code :

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

1
2
3
4
5
6
7
8
9
Sub macro2()
 
Dim couleur As Integer
 
    couleur = ActiveSheet.Range("B34").FormatConditions(1).Interior.ColorIndex
    MsgBox (couleur)
 
 
End Sub

quelque soit la valeur du range, couleur est toujours égal à 2 ...

je ne comprend pas bien.

merci d'avance