Yldie
XLDnaute Junior
Bonsoir à tous et bonne fête de la zik,
Je suis
Mon code qui marche sur certains PC, ne marche pas sur le mien, voici ce code (mise en forme conditionnelle dépassant les 3 critères habituels) :
Sub conditionnel()
ActiveSheet.Unprotect ("password")
Application.ScreenUpdating = False
For Each Cellule In [B4:W34]
Cellule.Select
ActiveCell.Interior.ColorIndex = xlNone
With Cellule
Select Case .Value
Case Is = ""
ActiveCell.Interior.ColorIndex = 0
Case Is = "piscine 1"
ActiveCell.Interior.ColorIndex = 34
Case Is = "piscine 2"
ActiveCell.Interior.ColorIndex = 33
Case Is = "aqua"
ActiveCell.Interior.ColorIndex = 32
ActiveCell.Font.ColorIndex = 2
End Select
End With
Next Cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("password")
End Sub
il me met à chaque fois qqchose comme erreur de compilation ou de syntaxe ou caché dans le module.......bref BUG à chaque fois et visiblement il apprécie pas Cellule et les [ : ]
HELP, AU SECOURS, A L'AIDE..........MERCI D'AVANCE !!!
Je suis
Mon code qui marche sur certains PC, ne marche pas sur le mien, voici ce code (mise en forme conditionnelle dépassant les 3 critères habituels) :
Sub conditionnel()
ActiveSheet.Unprotect ("password")
Application.ScreenUpdating = False
For Each Cellule In [B4:W34]
Cellule.Select
ActiveCell.Interior.ColorIndex = xlNone
With Cellule
Select Case .Value
Case Is = ""
ActiveCell.Interior.ColorIndex = 0
Case Is = "piscine 1"
ActiveCell.Interior.ColorIndex = 34
Case Is = "piscine 2"
ActiveCell.Interior.ColorIndex = 33
Case Is = "aqua"
ActiveCell.Interior.ColorIndex = 32
ActiveCell.Font.ColorIndex = 2
End Select
End With
Next Cellule
Application.ScreenUpdating = True
Range("a1").Select
ActiveSheet.Protect ("password")
End Sub
il me met à chaque fois qqchose comme erreur de compilation ou de syntaxe ou caché dans le module.......bref BUG à chaque fois et visiblement il apprécie pas Cellule et les [ : ]
HELP, AU SECOURS, A L'AIDE..........MERCI D'AVANCE !!!