Discussion :

[Michael54]

Bonjour à tous,

Je suis sur la fin d'un projet VBA pour mes études, et je galère sur un point.
J'ai deux colonnes dans mon classeur, l'une est actualisé toutes les 10 secondes par un lien API, l'autre est une copie de ces colonnes en direct qui se rafraichit toute les 2 secondes.

Mon objectif est de faire un petit code VBA qui va me colorier les cellules de la première colonne si les données actualisés sont supérieurs ou inférieurs aux données brut sur la seconde.

J'ai trouvé un code, mais il me fait cellule par cellule, et je cherche plus un code qui va colorier l'ensemble si besoin !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If Cells(10, 4).Value > Cells(10, 5).Value Then
        Cells(10, 4).Interior.Color = RGB(0, 255, 0)
        Application.Wait Time + TimeSerial(0, 0, 2)
        Cells(10, 4).Interior.Color = RGB(255, 255, 255)
    Else
        If Cells(10, 4).Value < Cells(10, 5).Value Then
            Cells(10, 4).Interior.Color = RGB(255, 0, 0)
            Application.Wait Time + TimeSerial(0, 0, 2)
            Cells(10, 4).Interior.Color = RGB(255, 255, 255)
            'code de coloration Rouge
        Else
        End If

En gros j'ai réussi pour une cellule, mais je cherche qu'il me fasse ceci pour la colonne entière ( si possible avec le XlDown... )

Est ce que quelqu'un aurait une idée?

Merci bien

[casefayere]

Bonjour,
pas sur d'avoir tout compris, mais si tu compares D2 => E2, D3 => E3, ce code à améliorer

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
Sub toto1()
Dim x As Long
For x = 2 To Range("D" & Rows.Count).End(xlUp).Row
    If Range("D" & x).Value > Range("E" & x).Value Then
      Range("D" & x).Interior.Color = RGB(0, 255, 0)
      Application.Wait Time + TimeSerial(0, 0, 2)
      'Range("D" & x).Interior.Color = RGB(255, 255, 255)' pourquoi
    Else
      If Range("D" & x).Value < Range("E" & x).Value Then
        Range("D" & x).Interior.Color = RGB(255, 0, 0)
        Application.Wait Time + TimeSerial(0, 0, 2)
        'Range("D" & x).Interior.Color = RGB(255, 255, 255)'pourquoi
            'code de coloration Rouge
    End If
Next x
End Sub

si tu compares D2 => E2/E3/E4/....

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
Sub toto()
Dim x As Long, y As Long
For x = 2 To Range("D" & Rows.Count).End(xlUp).Row
  For y = 2 To Range("E" & Rows.Count).End(xlUp).Row
    If Range("D" & x).Value > Range("E" & y).Value Then
      Range("D" & x).Interior.Color = RGB(0, 255, 0)
      Application.Wait Time + TimeSerial(0, 0, 2)
      'Range("D" & x).Interior.Color = RGB(255, 255, 255)' pourquoi
    Else
      If Range("D" & x).Value < Range("E" & y).Value Then
        Range("D" & x).Interior.Color = RGB(255, 0, 0)
        Application.Wait Time + TimeSerial(0, 0, 2)
        'Range("D" & x).Interior.Color = RGB(255, 255, 255)'pourquoi
            'code de coloration Rouge
    End If
  Next y
Next x
End Sub

attention si ton tableau possède beaucoup de données, il vaudra mieux passer par des variables tableau
PS : je n'ai pas testé les codes (vite fait), ne retenir que le principe des boucles

[Michael54]

Merci pour ta réponse.

Si j'ai bien compris le code, Excel va comparer toutes les cellules de la colonne une par une?

Je me suis peut être mal exprimé. Les colonnes sont des cours de bourses, et je veux mettre la coloration dans la cellule selon si le prix augmente ou descend ! donc forcements ils varient pas tous dans le même sens, mais le petit code VBA devra me montrer en même temps les couleurs de variations...
Car pour l'instant le code me montre les variations mais une à une. La ligne 1 apparaît rouge, ensuite la ligne 2 apparaît verte etc...

Y aurait il un moyen que le code me compare d'un coup les lignes 1 à 20 par exemple pour qu' il me traite les conditions de couleur sur l'ensemble

Et au passage... les variables tableaux ? c'est mettre la valeur dans une variable c'est cela? je cherchais aussi a le faire car mon code est beaucoup trop lent...

[casefayere]

Et au passage... les variables tableaux ? c'est mettre la valeur dans une variable c'est cela? je cherchais aussi a le faire car mon code est beaucoup trop lent...

voir http://silkyroad.developpez.com/vba/tableaux/

Y aurait il un moyen que le code me compare d'un coup les lignes 1 à 20 par exemple pour qu' il me traite les conditions de couleur sur l'ensemble

pas trop compris mais je pense qu'il faut prévoir des variables tableau bien structurées, tu as beaucoup de données, combien (à peu-près) ?
parce, s'il faut que la feuille se ré-actualise toutes les 2 secondes, j'ai des doutes

[Michael54]

VBA-projet.xlsm

Voici le classeur, il faut cliquer sur oui et la macro se lance (c'est pas terminé)
Sur la ligne BNP Parisbas, le code fonctionne. Et je souhaite que l'ensemble des lignes réagissent de la même facon que BNP, mais toute en même temps...

Comme un vrai outil de finance enfait
Exemple que je cherche à reproduire :
http://www.boursorama.com/bourse/act...PCAC&validate=

Site en flash...

Il faut peut être activer les références WinHttp Services pour que les liens URL fonctionnent