Discussion :

[jf29840]

Bonjour,

je souhaite comparer les 2 derniers chiffres d'une cellule pour les comparer à une valeur contenue dans une autre cellule.
ex : pour "CW10", je veux récupérer le "10" et le comparer au numéro de la semaine en cour qui ce trouve dans une autre cellule.

voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
If Left(Cells(n, m), 2) = "CW" Then
                    If Right(Sheets("Planning Contrôles 2011").Cells(n, m), 2) < Sheets("Planning Contrôles 2011").Cells(6, 81)  Then
                        With Cells(n, m).Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .Color = RGB(213, 127, 40)
                        End With
                    End If
                End If

Il me semble que le problème vienne d'une incompatibilité de types.

Merci de votre aide

[Philippe Tulliez]

Bonjour,
Ajoute Val() cela devrait aller

Code :

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

If val(Right(Sheets("Planning Contrôles 2011").Cells(n, m), 2)) < val(Sheets("Planning Contrôles 2011").Cells(6, 81) ) Then