Discussion :

[guismoman33]

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

[Pierre Fauconnier]

Bonjour

C'est à mon avis dans les cascades de IF... END IF qu'il y a un problème. Il est malaisé de reconstituer le tableau des valeurs logiques avec des IF et des XOR (Bien penser que XOR renvoie TRUE lorsqu'une seule des propositions est TRUE, et FALSE dans tous les autres cas...)

Personnellement, je découperais mon code via des Select Case... End Case.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case Target.Row
    Case 51
        ...
    Case 53
        ...
    Case 29
        ...
End Select

Le code y gagnerait en clarté.

Si tu n'y arrives pas, précise les conditions qui doivent être remplies pour que l'on puisse t'aider au mieux

[guismoman33]

Tu ne comprend pas mes conditions?
Si je clique sur :
-A15 ==> tel formule dans G34
-D15 ==> tel formule dans G34
-G15 ==> tel formule dans G34
-A29 ==> tel formule dans G34
-D29 ==> tel formule dans G34


-A51 ==> tel numéro dans C56
-C51 ==> tel numéro dans C56
-C53 ==> tel numéro dans C56
-E51 ==> tel numéro dans C56
-G51 ==> tel numéro dans C56

[Pierre Fauconnier]

Moi, j'utiliserais une suite de 10 CASE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select case target.address
    case "$A$15"
        ....
    case "$D$15"
        ...
    case ...
        ...
End Select

[guismoman33]

Peut tu me donnez plus de précisions stp...Peut tu me faire un exemple d'un entre deux case stp!!!!Mais il ne faut pas oublier que mes case en question sont des case cliquable qui execute une action

[Pierre Fauconnier]

je pensais que mon exemple était assez clair.

Le bloc Select... End Select permet d'évaluer différentes valeurs et remplace avantageusement l'imbrication de IF.

Tu remplaces donc les ... entre deux Case par le code que tu souhaite appliquer lorsque la condition est remplie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select case target.address
    case "$A$15"
        MsgBox "La cellule cliquée est $A$15"
    case "$D$15"
        ...
    case ...
        ...
End Select

Bien entendu, tu peux avoir plusieurs lignes dans un bloc Case...

t'aidera à y voir plus clair.