Discussion :

[LANGAZOU]

Bonjour,

j'ai 2 feuilles excel, la première ("BC") contienne des montants ,nombres de jours et des taux et sous la deuxième feuille ("Feuil2") une grille des Taux . je veux créer une macro dans la feuille une qui vérifie l'appartenance du montant et du nombre de jours dans la grille des taux (feuille 2) et me colorer les taux hors grille de taux.

voici le code que j'ai utilisé mais il me semble incorrect vu qu'il me colore du n'importe quoi.

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
Sub GRILLE()
 
Dim TheRow As ListRow
 
For i = 2 To 1000
 
For Each TheRow In Feuil2.ListObjects("Tab_Taux").ListRows
 
    'On recherche la ligne qui correspond à critère Montant et Nbr de jour
   If Sheets("BC").Cells(i, 5) <> "" And Sheets("BC").Cells(i, 12) <> "" And Sheets("BC").Cells(i, 8) <> "" Then
 
    If Sheets("BC").Cells(i, 12) >= TheRow.Range(1, 1).Value And Sheets("BC").Cells(i, 12) <= TheRow.Range(1, 2).Value And Sheets("BC").Cells(i, 5) >= TheRow.Range(1, 3).Value And Sheets("BC").Cells(i, 5) <= TheRow.Range(1, 4).Value Then
        'On controle le taux
        If Sheets("BC").Cells(i, 8) > TheRow.Range(1, 5).Value Then
 
            Sheets("BC").Cells(i, 8).Font.Color = RGB(255, 0, 0)
 
 
            'On quitte la boucle
            Exit For
        End If
    End If
 
 End If
Next
 
Next
 
End Sub

Merci pour votre réponse.

[vinc_bilb]

Bonjour,

Sans exemple, je n'ai pas le niveau d'abstraction nécessaire pour y comprendre quelque chose....
Question: pourquoi passer par du code? Un format conditionnel ne pourrait-il pas faire l'affaire?

[LANGAZOU]

Bonjour,

vous avez complètement raison ,un format conditionnel me semble plus simple et plus adéquat.

Merci pour votre réponse.