J
Jacky
Guest
Bonjour
J'ai essayé cette macro mais elle ne foctionne pas
j'attend une aide de votre part
Merci
Private SubWorksheet_SelectionChange(ByVal Target As Excel.Range)
Select Case UCase(Target) 'UCASE = convertion de la frappe en
majuscule
Case "voiture"
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Case "camion"
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Case "utilitaire"
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case "camionette"
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
J'ai essayé cette macro mais elle ne foctionne pas
j'attend une aide de votre part
Merci
Private SubWorksheet_SelectionChange(ByVal Target As Excel.Range)
Select Case UCase(Target) 'UCASE = convertion de la frappe en
majuscule
Case "voiture"
With Selection.Interior
.ColorIndex = 7
.Pattern = xlSolid
End With
Case "camion"
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Case "utilitaire"
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case "camionette"
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub