Question excel

simon78190 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,


Voila je fais un tableaux excel avec le macro en exemple mais je voudrais savoir si c'est possible par exemple:

-Cellule C1 remplie avec OUI ma ligne passe en vert mais si je remplis la cellule D2 avec un OUI ma ligne passe en rouge

-Cellule C1 remplie avec NON ma ligne passe en rouge mais si je remplis ma cellule D2 avec un NON ma ligne reste en rouge

Comment faire?

exemple de la macro que j'ai mit Private Sub Worksheet_Change(ByVal sel As Range)
Select Case Cells(sel.Row, "C").Value ' mettre la colonne concernée
Case "NON" 'est en rouge
Rows(sel.Row).Interior.ColorIndex = 3 ' couleur fond
' Rows(sel.Row).Font.ColorIndex = 5 ' couleur caractères
Case "OUI" 'est en vert
Rows(sel.Row).Interior.ColorIndex = 4 ' couleur fond
' Rows(sel.Row).Font.ColorIndex = 1 ' couleur caractères
Case " " 'est en vert
Rows(sel.Row).Interior.ColorIndex = 2 ' couleur fond
' Rows(sel.Row).Font.ColorIndex = 4 ' couleur caractères
Case Else
' Rows(sel.Row).Interior.ColorIndex = xlNone ' couleur fond
Rows(sel.Row).Font.ColorIndex = xlAutomatic ' couleur caractères

End Select

Select Case Cells(sel.Row, "D").Value ' mettre la colonne concernée
Case "NON" 'est en rouge
Rows(sel.Row).Interior.ColorIndex = 3 ' couleur fond
' Rows(sel.Row).Font.ColorIndex = 5 ' couleur caractères
Case "OUI" 'est en vert
Rows(sel.Row).Interior.ColorIndex = 4 ' couleur fond
' Rows(sel.Row).Font.ColorIndex = 1 ' couleur caractères
Case " " 'est en vert
Rows(sel.Row).Interior.ColorIndex = 2 ' couleur fond
' Rows(sel.Row).Font.ColorIndex = 4 ' couleur caractères
Case Else
' Rows(sel.Row).Interior.ColorIndex = xlNone ' couleur fond
Rows(sel.Row).Font.ColorIndex = xlAutomatic ' couleur caractères

End Select
End Sub
A voir également:

1 réponse

Réponse 1 / 1
Vaucluse Messages postés 26496 Date d'inscription   Statut Contributeur Dernière intervention   6 438
 
Bonsoir
je ne m'avancerais pas sur VBA, mais y a t il réellement besoin d'une macro pour faire ça alors que Excel a une fonction mise en forme conditionnelle qui fait ça très bien?
crdlmnt
0