Macro pour colorier une zone qui ne fonctionne pas

WUTED à dit:

Bonjour Trance4life,

Y'a un soucis avec le type de tes variables : b est un String et Cells(1,26).Value est un Double. Tu peux mettre :

Code:

If CInt(Cells(1, 26).Value) = CInt(b) Then

Pour pallier à ce problème.
Bonne journée.

Cliquez pour agrandir...

Papou-net à dit:

Bonjour Trance4life,

Il suffit de définir les variables concernées en type numérique pour éviter les erreurs de comparaison.

Modifie donc ton code comme suit :

Code:

Sub Macro1()

Dim a As Integer
Dim b As Byte
Dim c

a = Format(Range("C2").Value, "yy")
If a > Format(Range("B2").Value, "yy") Then
  Range("B6").Value = CDate("01/01/" & a)
  Range("C6").Value = Format(Range("C2").Value, "mm/dd/yyyy")
  ElseIf a = Format(Range("B2").Value, "yy") Then
  Range("B6").Value = ""
End If
b = Format(Range("B2").Value, "ww")
If Cells(1, 26).Value = b Then
  i = 23
  With Range(Cells(4, i + 3), Cells(20, i + 3)).Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent6
    .TintAndShade = 0
    .PatternTintAndShade = 0
  End With
End If
End Sub

Tu remarqueras par ailleurs que j'ai supprimé toutes les lignes avec ".Select". Elles sont totalement inutiles car tu peux modifier les cellules sans les sélectionner au préalable : le code y gagne en clarté et en rapidité.

Cordialement.

Edit :Oups, bonjour WUTED, Vorens, vous êtes les plus rapides sur ce coup !

Cliquez pour agrandir...

Vorens à dit:

Salut,

C'est VBA qui attribue automatiquement un type si il n'est pas spécifier et vu que ton format de cellule était lui aussi non spécifié il a choisi de prendre le type string pour ta variable.

Pour une valeur dans une cellule, le type de base sera un string.

De plus, tu peux voir le type d'une variable en effectuant un clic droit sur ta variable puis "information expresse"

Cliquez pour agrandir...