Discussion :

[Chocotoff]

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 :

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
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

[ZimCri]

Bonjour,

essayes avec :

Code :

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

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

Je pense que ca devrait être bon.

[AVSInfoGest]

Bonjour,

Peux-tu tester ça ?

Code :

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

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

[ZimCri]

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

[Chocotoff]

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