Bonjour voila j'ai réalisé un programme qui donne une action à certaine cellule par exemple je clique sur A15 et une formule ce met dans la cellule G34...
Mais pour toutes les cellules A15, D15, G15, A29, D29 cela ne marche cependant pour le reste ça marche...Avez vous une explication , car ceci est urgent et très important...
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
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 
If Target.Row <> 51 Or (Target.Column < 1 Xor Target.Column > 7) Then
      If Target.Row <> 53 Or (Target.Column < 3 Xor Target.Column > 3) Then
          If Target.Row <> 29 Or (Target.Column <> 1 Or Target.Column <> 4) Then
              If Target.Row <> 15 Or (Target.Column <> 1 Xor Target.Column <> 4 Xor Target.Column <> 7) Then
               Exit Sub
              End If
          End If
      Else
      Workbooks(1).Sheets(1).Range("C56").Value = 12
      End If
Else
        If Target.Row = 51 And Target.Column = 1 Then
        Workbooks(1).Sheets(1).Range("C56").Value = 5
        End If
        If Target.Row = 51 And Target.Column = 3 Then
        Workbooks(1).Sheets(1).Range("C56").Value = 10
        End If
        If Target.Row = 51 And Target.Column = 5 Then
        Workbooks(1).Sheets(1).Range("C56").Value = 100
        End If
        If Target.Row = 51 And Target.Column = 7 Then
        Workbooks(1).Sheets(1).Range("C56").Value = 200
        End If
        If Target.Column = 1 And Target.Row = 15 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*3"
        End If
        If Target.Row = 29 And Target.Column = 1 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*3"
        End If
        If Target.Row = 29 And Target.Column = 4 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*4"
        End If
        If Target.Row = 15 And Target.Column = 7 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*4"
        End If
        If Target.Row = 15 And Target.Column = 4 Then
        Workbooks(1).Sheets(1).Range("G34").Value = "=C32*10*C34*10*2"
        End If
End If
End Sub