Discussion :

[djjilou]

Bonjour,

sur la plage: "de la cellule C4 jusqu´a la derniere cellule non vide de la colonne C", je souhaite surligner les cases dont la valeur dépasse LimitValue.

Voici ce que j´ai fait:

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim LimitValue As Integer
Dim Cell As Range 
 
LimitValue = -10
 
For Each Cell In DataSheet.Range("C4:C" & Range("C65536").End(xlUp).Row)
    If Cell.Value > LimitValue Then
        Cell.Interior.ColorIndex = 6
    End If
Next Cell

Cela ne fonctionne pas: le code surligne les cases C1 à C3 qui sont des entêtes (et en plus qui ne sont pas dans le range demandé !).

Pour info: dans cette colonne, toutes les valeurs sont à 0 (donc toutes >-10) sur C4:C3636 (puisque C1,C2,C3 sont des entêtes).

Plus étrange encore: si je remplace LimitValue par 10 au lieu de -10, alors les colonnes C1 à C4 sont surlignées !! (donc les 3 entêtes et la première valeur (=0)).

Voilà j´ai pourtant cherché des infos sur le usedrange. La syntaxe semble être celle-là pourtant...
Je vous remercie pour votre aide.
Cordialement.

[jackborogar]

Bonjour,

Peux tu envoyer ton fichier stp?

[jackborogar]

Essayes avec ce code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim LimitValue As Integer
 
LimitValue = -10
 
 For i = 1 To DataSheet.Range("C" & Rows.Count).End(xlUp).Row
 
    If DataSheet.Range("C" & i).Value > LimitValue Then
 
        DataSheet.Range("C" & i).Interior.ColorIndex = 6
 
    End If
 
Next i

[djjilou]

C´est parfait ca marche très bien.

Merci beaucoup pour votre réponse rapide.

Où était mon erreur alors? Il semble que ce soit l´utilisation de la variable Cell qui n´ai pas marché?

[CodeFacile]

J'ai pas testé mais l'erreur vient sans doute de la syntaxe , essayes :

Code :

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

1
2
3
4
 
for Each Cell In DataSheet.Range("C4:C" & Range("C65536").End(xlUp).Row).cells
 
...