Bonjour à tous,


Sur la partie du code présenté j'obtiens le message d'erreur nommé dans le titre.
Ce type de code fonction dans autres feuilles excel.
Cette erreur est du certainement au faite de ma limite dans la connaissance en macro excel, c'est pour cela que je demande votre aide.
merci



Voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Range("I27").Select
ActiveCell.Select
If ActiveCell = 0 Then
ActiveSheet.DrawingObjects("Ellipse 2").Select
     With Selection.Border
          .LineStyle = xlNone
          .Weight = xlHairline
     End With
     Selection.Shadow = False
     With Selection.Interior
          .Pattern = xlSolid
          .ColorIndex = 5
     End With
     With Selection.Border
          .LineStyle = xlContinuous
          .ColorIndex = 5
          .Weight = xlHairline
     End With
     ElseIf ActiveCell = 1 Then
     ActiveSheet.DrawingObjects("Ellipse 2").Select
     With Selection.Border
          .LineStyle = xlNone
          .Weight = xlHairline
     End With
     Selection.Shadow = False
     With Selection.Interior
          .Pattern = xlSolid
          .ColorIndex = 10
     End With
     With Selection.Border
          .LineStyle = xlContinuous
          .ColorIndex = 10
          .Weight = xlHairline
     End With
     ElseIf ActiveCell = 2 Then
     ActiveSheet.DrawingObjects("Ellipse 2").Select
     With Selection.Border
          .LineStyle = xlNone
          .Weight = xlHairline
     End With
     Selection.Shadow = False
     With Selection.Interior
          .Pattern = xlSolid
          .ColorIndex = 3
     End With
     With Selection.Border
          .LineStyle = xlContinuous
          .ColorIndex = 3
          .Weight = xlHairline
     End With
End If