Discussion :

[athos7776]

Bonjour, j'ai un petit soucis avec mon code. Je veux que dans mon code, on me renvoie la soustraction de 2 cellules. J'ai testé avec une msgbox et tout semble aller. On me renvoie la bonne valeur. Cependant, lorsque la soustraction me renvoie la bonne valeur, je voudrais qu'il me colore en rouge la cellule active dans ma boucle For Each ainsi que la cellule à sa droite (même ligne, + 1 colonne). C'est là que j'ai l'impression que ça bug. On dirait que ma boucle "For Each Cell in Range..." n'accepte que les cellules active et ne veut pas faire de "Offset".

Avez-vous des suggestions ou des solutions?

Merci. Voici mon code en gros :

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
30
31
32
33
34
35
36
37
38
39
Private Sub Worksheet_Change(ByVal target As Range)
 
Dim Soustraction As Double
Dim cell As Range
Dim ligne As Integer
Dim col As Integer
 
ligne = Target.Row
col = Target.Column
 
 
For Each cell In Range("H" & ligne & ":AR" & ligne)
 
Soustraction = Target.Offset(0, 0).value  - Target.Offset(0, 1).value
 
    'Mise en forme Conditionnelle Heure de Diner
 
                If Soustraction = "1" Then
                                    'Heure de Diner
                                    If cell.Offset((-ligne + 3), 0).Value < Target.Offset(0, -3).Value + "0,12501" And cell.Offset((-ligne + 3), 0).Value > Target.Offset(0, -3).Value + "0,12499" And Target.Offset(0, 0).Value < 15 And Target.Offset(0, 0).Value > 0 Then
 
                                            cell.Interior.Color = 255
                                            cell.FormulaR1C1 = ""
                                            cell.Offset(0, 1).Interior.Color = 255
                                            cell.Offset(0, 1).FormulaR1C1 = ""
 
                                    End If
                Else
                                    'Heure de Diner
                                    If cell.Offset((-ligne + 3), 0).Value < Target.Offset(0, -3).Value + "0,12501" And cell.Offset((-ligne + 3), 0).Value > Target.Offset(0, -3).Value + "0,12499" And Target.Offset(0, 0).Value < 15 And Target.Offset(0, 0).Value > 0 Then
 
                                            cell.Interior.Color = 255
                                            cell.FormulaR1C1 = ""
 
 
                                    End If
                End If
 
Next Cell

[Patrice740]

Bonjour,

Remplace

Code :

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

Soustraction = "1"

par

Code :

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

Soustraction = 1

et

Code :

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

target.Offset(0, -3).Value + "0,12499"

par

Code :

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

target.Offset(0, -3).Value + 0.12499

Patrice

[athos7776]

Merci Patrice740, mais malheureusement ceci ne corrigeait en rien mon problème.

J'ai décidé d'ajouter un OR dans ma condition logique, ce qui m'a permis spécifier les caractéristiques de la case à droite de ma cellule.

Merci quand même