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
Il me semble que le problème vienne d'une incompatibilité de types.
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
Merci de votre aide
Partager