VBA, incrémentation
Bonjour,
j'ai fait une macro que voici:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
Set cellule = Application.Intersect(Range("M5:AQ41"), Target)
If cellule Is Nothing Then Exit Sub
Select Case Target.Value
Case "JR"
Target.Interior.ColorIndex = 35
Case "CP"
Target.Interior.ColorIndex = 50
Case Empty
Target.Interior.ColorIndex = 0
End Select
End Sub
le problème c'est que quand je veux incrémenter mes cellules, ca me met erreur d'execution "13", incompatibilité de type. Meme si ca ne m'empeche pas d'incrémenter, ca m'enerve ce message. Comment résoudre le problème? merci d'avance
j'ai fait une macro que voici:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cellule As Range
Set cellule = Application.Intersect(Range("M5:AQ41"), Target)
If cellule Is Nothing Then Exit Sub
Select Case Target.Value
Case "JR"
Target.Interior.ColorIndex = 35
Case "CP"
Target.Interior.ColorIndex = 50
Case Empty
Target.Interior.ColorIndex = 0
End Select
End Sub
le problème c'est que quand je veux incrémenter mes cellules, ca me met erreur d'execution "13", incompatibilité de type. Meme si ca ne m'empeche pas d'incrémenter, ca m'enerve ce message. Comment résoudre le problème? merci d'avance
Configuration: Windows 2003 Internet Explorer 6.0
