Colorer case suivant condition avec VBA
E
Bonjour,
Je souhaite, sur une macro VBA, colorer une case en rouge.
La cellule G8 doit être colorer si:
La cellule F8 contient le Texte "OUI" et si la cellule G8 est vide...
J'aimerais que cela s'applique sur les lignes 3 à 500.
J'ai fait un code (juste pour la ligne 8 pour l'instant):
Je ne peux pas passer par la MFC car l'excel est généré par un logiciel qui applique la même MFC sur toutes les feuilles alors que je veux pouvoir différencier les mise en formes suivant les feuilles.
si quelqu'un a une solution..
Merci
Je souhaite, sur une macro VBA, colorer une case en rouge.
La cellule G8 doit être colorer si:
La cellule F8 contient le Texte "OUI" et si la cellule G8 est vide...
J'aimerais que cela s'applique sur les lignes 3 à 500.
J'ai fait un code (juste pour la ligne 8 pour l'instant):
Sheets("BE").Select
Dim CREATIONAUTO As String
Dim TYPECONFIG As String
CREATIONAUTO = Range("F8")
TYPECONFIG = Range("G8")
If CREATIONAUTO = OUI And TYPECONFIG = "" Then
Range("G8").Interior.ColorIndex = 3
End IfJe ne peux pas passer par la MFC car l'excel est généré par un logiciel qui applique la même MFC sur toutes les feuilles alors que je veux pouvoir différencier les mise en formes suivant les feuilles.
si quelqu'un a une solution..
Merci
Bonjour,
Un essai,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cell As Range
For Each cell In Range("G3:G500")
If cell.Offset(0, -1).Value = "OUI" And cell = "" Then
cell.Interior.ColorIndex = 3
Else
cell.Interior.ColorIndex = 0
End If
Next
End SubE
Bonjour,
Merci pour l'aide! j'ai réussi a obtenir ce que je voulais en changeant juste la première ligne:
Sheets("BE").Select
Dim cell As Range
For Each cell In Range("G3:G500")
If cell.Offset(0, -1).Value = "OUI" And cell = "" Then
cell.Interior.ColorIndex = 3
Else
cell.Interior.ColorIndex = 0
End If(il n'y a pas les Sub car elle est ce code est intégré dans une macro plus grande)
Merci Thrrybo!