Discussion :

[tomy7]

bonjour ,
j aimerai colorier la ligne de la cellule active en une couleur lorsque j entre ok ds cette cellule
voici mon sub, il fonctionne mais il faut que je reclic sur la ligne alors que j aimerai juste faire : "ok" puis touche entrer et sa passe en rouge.

Code :

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

1
2
3
4
5
6
7
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveCell.Value = "ok" Then
ActiveCell.EntireRow.Select
Selection.Interior.ColorIndex = 3
End If
End Sub

merci

[ouskel'n'or]

Au lieu de placer ton code dans Workbook_sheetSelectionChange, place-le dans le feuille de code de la feuille de calculs en mettant

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "ok" Then Target.EntireRow.Interior.ColorIndex = 3
End Sub

[tomy7]

merci comme d habitude tu me depannes bien.

[ouskel'n'or]

Marchera pas si tu mets Ok ou OK... Je mettrais plutôt

Code :

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

If Lcase(Target) = "ok" Then Target.EntireRow.Interior.ColorIndex = 3

Juste une idée