[XL-2010] Colorier cellules en VBA

Colorier cellules en VBA

Bonjour,
Je n'arrive pas à faire la dernière partie de mon travail d'informatique.

Pouvez vous m'aider ? Elle concerne les traitements VBA.

Le but de cette macro est de colorier en rouge les cellules de véhicules ayant plus de 15000kms. Je pense que le traitement doit plus ou moins ressembler à ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub Véhicules() Dim Kmsaucompteur As Double Kmsaucompteur = Application.WorksheetFunction.Max(Sheet10.Range("L2:L101")) For ligne = 2 To 101 For colonne = 12 To 12 Next colonne Sheet4.Range(Chr(76) & ligne).Select ActiveCell.Value = Kmsaucompteur If Kmsaucompteur > 15000 Then ActiveCell.Interior = RGB(255, 0, 0) Next ligne End Sub
Par après, serait-il possible de créer un tableau reprenant tous les véhicules coloriés en rouge ? Merci d'avance

Bonjour,

essayes avec :

Code:

If Kmsaucompteur > 15000 Then ActiveCell.Interior.Color = RGB(255, 0, 0)

Je pense que ca devrait être bon.

Bonjour,

Peux-tu tester ça ?

Code:

1
2
3
4
5
6
7
8
Sub Véhicules()
    colonne = 12
    With ActiveSheet
        For ligne = 2 To .UsedRange.Rows.Count + .UsedRange.Row - 1
            If .Cells(ligne, colonne).Value > 15000 Then .Cells(ligne, colonne).Interior.Color = RGB(255, 0, 0)
        Next ligne
    End With
End Sub

Je viens de tester, le code fonctionne. Les cases avec une valeur > 15000 sont bien rouge

Parfait merci, ça fonctionne. Par contre, y a-t-il un moyen de récupérer ces données qu'on vient de colorier en rouge, et de créer un nouveau tableau avec ?
Par données, j'entend toute la ligne pas uniquement celle dédiée au kms au compteur.
Merci d'avance :)