Incompatibilité de type 13
Bonjour à tous,
qui pourrait me dire où est le problème dans mon code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("E5:CS154")) Is Nothing Then Exit Sub
Select Case Target.Value
Case 13 'valeur 13
Target.Offset(0, 0).Interior.ColorIndex = 32
Target.Offset(0, 0).Font.ColorIndex = 32
Case 1 'valeur 1
Target.Offset(0, 0).Interior.ColorIndex = 4
Target.Offset(0, 0).Font.ColorIndex = 4
Case 2 'valeur 2
Target.Offset(0, 0).Interior.ColorIndex = 40
Target.Offset(0, 0).Font.ColorIndex = 40
Case 3 'valeur 3
Target.Offset(0, 0).Interior.ColorIndex = 39
Target.Offset(0, 0).Font.ColorIndex = 39
Case 4 'valeur 4
Target.Offset(0, 0).Interior.ColorIndex = 15
Target.Offset(0, 0).Font.ColorIndex = 15
Case 5 'valeur 5
Target.Offset(0, 0).Interior.ColorIndex = 35
Target.Offset(0, 0).Font.ColorIndex = 35
Case 6 'valeur 6
Target.Offset(0, 0).Interior.ColorIndex = 44
Target.Offset(0, 0).Font.ColorIndex = 44
Case 7 'valeur 7
Target.Offset(0, 0).Interior.ColorIndex = 42
Target.Offset(0, 0).Font.ColorIndex = 42
Case 8 'valeur 8
Target.Offset(0, 0).Interior.ColorIndex = 38
Target.Offset(0, 0).Font.ColorIndex = 38
Case 9 'valeur 9
Target.Offset(0, 0).Interior.ColorIndex = 34
Target.Offset(0, 0).Font.ColorIndex = 34
Case 10 'valeur 10
Target.Offset(0, 0).Interior.ColorIndex = 36
Target.Offset(0, 0).Font.ColorIndex = 36
Case 11 'valeur 11
Target.Offset(0, 0).Interior.ColorIndex = 3
Target.Offset(0, 0).Font.ColorIndex = 3
Case Else
Target.Offset(0, 0).Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
J'ai une erreur d'incompatibilité de type 13 dès que je veux sélectionner et supprimer le contenue de 2 cellules en même temps.
Merci d'avance,
Cordialement,
Jéjé62600
Bonjour
A essayer
Au debut
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(("E5:CS154")) Is Nothing And Target.Count = 1 Then
Select Case Target.ValueA la fin
End Select
End If
End SubCordialement
Bonjour Amadéus,
merci pour ton aide mais j'ai une nouvelle erreur avec le code que tu m'as donné :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range(("E5:CS154")) Is Nothing And Target.Count = 1 Then
Select Case Target.Value
Case 13 'valeur 13
Target.Offset(0, 0).Interior.ColorIndex = 32
Target.Offset(0, 0).Font.ColorIndex = 32
Case 1 'valeur 1
Target.Offset(0, 0).Interior.ColorIndex = 4
Target.Offset(0, 0).Font.ColorIndex = 4
Case 2 'valeur 2
Target.Offset(0, 0).Interior.ColorIndex = 40
Target.Offset(0, 0).Font.ColorIndex = 40
Case 3 'valeur 3
Target.Offset(0, 0).Interior.ColorIndex = 39
Target.Offset(0, 0).Font.ColorIndex = 39
Case 4 'valeur 4
Target.Offset(0, 0).Interior.ColorIndex = 15
Target.Offset(0, 0).Font.ColorIndex = 15
Case 5 'valeur 5
Target.Offset(0, 0).Interior.ColorIndex = 35
Target.Offset(0, 0).Font.ColorIndex = 35
Case 6 'valeur 6
Target.Offset(0, 0).Interior.ColorIndex = 44
Target.Offset(0, 0).Font.ColorIndex = 44
Case 7 'valeur 7
Target.Offset(0, 0).Interior.ColorIndex = 42
Target.Offset(0, 0).Font.ColorIndex = 42
Case 8 'valeur 8
Target.Offset(0, 0).Interior.ColorIndex = 38
Target.Offset(0, 0).Font.ColorIndex = 38
Case 9 'valeur 9
Target.Offset(0, 0).Interior.ColorIndex = 34
Target.Offset(0, 0).Font.ColorIndex = 34
Case 10 'valeur 10
Target.Offset(0, 0).Interior.ColorIndex = 36
Target.Offset(0, 0).Font.ColorIndex = 36
Case 11 'valeur 11
Target.Offset(0, 0).Interior.ColorIndex = 3
Target.Offset(0, 0).Font.ColorIndex = 3
Case Else
Target.Offset(0, 0).Interior.ColorIndex = xlColorIndexNone
End Select
End If
End Sub
Il me note en surlignant le Then
Erreur de compilation
Attendu : séparateur de liste ou )
Merci d'avance,
Jéjé62600
Bonjour
une parenthèse entrante s'est glissée malencontreusement après le Range de cette ligne, enlève la pour avoir
If Not Application.Intersect(Target, Range("E5:CS154")) Is Nothing And Target.Count = 1 ThenCordialement