Discussion :

[laurent481826]

Bonsoir ,
http://www.developpez.net/forums/d14...o/#post8110059
Tu pourrais me donner à nouveau un coup de main ?
Je ne trouve pas la solution après une journée complète de recherche !!
Voila ... j'ai quatre feuilles dans mon classeur et je voudrais que lorsque tel cellule du classeur 2 et tel celllule du classeur 3 et tel cellule du classeur 4 sont égal à "Buy" alors il me marque dans la feuille 1 une reférence et me colorie la cellule en vert ... et pareil quand il y a Sell dans ces cellules.

Je suis vraiment bloqué

Merci d'avance

Voici mon code qui ne fonctionne pas :

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
Sub DetectionPosition()
 
 
 
For ligne = 7 To 1800
 
If Sheets("RSI").Cells(ligne - 5, 9) = "Buy" And _
   Sheets("MACD").Cells(ligne - 5, 8) = "Buy" And _
   Sheets("AROON").Cells(5, ligne - 5) = "Buy" Then
 
   Sheets("GENERAL").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("AROON").Range("E" & ligne - 4).Value And _
   Sheets("GENERAL").Range("A65536").End(xlUp).Offset(1, 0).Font.ColorIndex = 4 And _
   Sheets("GENERAL").Range("B65536").End(xlUp).Offset(1, 0).Value = Sheets("AROON").Cells(5, ligne + 2).Value
 
If Sheets("RSI").Cells(ligne - 5, 9) = "Sell" And _
   Sheets("MACD").Cells(ligne - 5, 8) = "Sell" And _
   Sheets("AROON").Cells(5, ligne - 5) = "Sell" Then
 
   Sheets("GENERAL").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("AROON").Range("E" & ligne - 4).Value And _
   Sheets("GENERAL").Range("A65536").End(xlUp).Offset(1, 0).Font.ColorIndex = 3 And _
   Sheets("GENERAL").Range("B65536").End(xlUp).Offset(1, 0).Value = Sheets("AROON").Cells(5, ligne + 2).Value
 
End If
End If
 
Next ligne
 
End Sub

[eric4459]

Bonjour Laurent,
Essayes de supprimer les "And" dans

Code :

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

1
2
3
Sheets("GENERAL").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("AROON").Range("E" & ligne - 4).Value And _
   Sheets("GENERAL").Range("A65536").End(xlUp).Offset(1, 0).Font.ColorIndex = 4 And _
   Sheets("GENERAL").Range("B65536").End(xlUp).Offset(1, 0).Value = Sheets("AROON").Cells(5, ligne + 2).Value

Ecris simplement

Code :

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

1
2
3
Sheets("GENERAL").Range("A65536").End(xlUp).Offset(1, 0) = Sheets("AROON").Range("E" & ligne - 4).Value 
   Sheets("GENERAL").Range("A65536").End(xlUp).Offset(1, 0).Font.ColorIndex = 4 
   Sheets("GENERAL").Range("B65536").End(xlUp).Offset(1, 0).Value = Sheets("AROON").Cells(5, ligne + 2).Value

Eric