Discussion :

[arthur83fr]

bonjour
je butesur un pb depuis hier apres midi
j'ai un tableau excel avec Colonne A la date et ensuite de colonne B à Colonne AF des chiffres décimaux.
lors de l'appel de ma procedure coloration, cela colorie la ligne 1 de B1 à AF1
hors je veux colorer la plage B2 à AFderniere ligne.

donc je planche et je comprends pas
un peu de vos lumières me serait bien utile
je pense que c'est un truc tout con que je ne vois pas

merci de votre aide

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
Sub Coloration()    '   colorie en gris la cellule si > 0,00
    ' fonctionne sur la plage de cellule B/ligne 2   à    AF/derniere ligne
 
Sheets("Comptabilité").Select
 
Dim DerLign As Long
Dim Fin As Long
DerLign = Range("A" & Rows.Count).End(xlUp).Row
MsgBox (DerLign)
Fin = DerLign + 2
MsgBox (Fin)
 
 
Dim xCell As Range
  For Each xCell In Range(Range("B2"), Range("AF" & Fin).End(xlUp))
 
 
    If xCell.Value > "0,00" Then xCell.Interior.ColorIndex = 15
  Next xCell
 
End Sub

[arthur83fr]

bonjour,
jai trouvé mon erreur
elle se situe à la ligne 15

Code :

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

For Each xCell In Range(Range("B2"), Range("AF" & Fin))

cela fonctionne mieux ainsi.

les joies du copier/coller grrrrrrrrrrrr

[Patrice740]

Bonjour,

Pourquoi utiliser une macro VBA quand les fonctionnalités natives d'Excel offrent la solution (Mise en forme conditionnelle) ????