Mise en forme

[Jacky]

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

 

[STéphane]

tu as oublié le "end select" avant "end sub"
tu fais ucase(target) aors qu'ensuite tu compares à des valeurs en miniscules : "voiture", "camionette", etc.

 

[Jacky]

Merci a Stéphane

Jacky