Erreur de syntaxe

[Yldie]

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 !!!

 

[Yldie]

Re : Erreur de syntaxe

Vraiment désolé STAPLE, j'ai essayé tous tes codes mais en vain.....il n'y a plus d'erreur (ça c'est déjà très bien !!!) mais le résultat est qu'il ne prend que qques cellules du tableau mais pas l'ensemble de mes "Case is"

On devrait bien y arriver qd même.......

 

[Staple1600]

Re : Erreur de syntaxe

Re


Teste la pièce jointe

Tu verras que cela fonctionne

 

[Cousinhub]

Re : Erreur de syntaxe

Re-

Yldie, dans l'éditeur VBE, (dans la page Macro), tu cliques sur Outils/options, dans l'onglet "Editeur", décoche "Déclaration des variables obligatoire"

juste pour le fun, et remet-le ensuite, c'est une très bonne habitude....

 

[Yldie]

Re : Erreur de syntaxe

Voici ma pièce jointe avec erreur 400 maintenant (ça faisait longtemps....),
Je vais voir ça Bh², j'ai la tête dans le guidon et vous remercie encore tous très sincèrement

 

[TooFatBoy]

Re : Erreur de syntaxe

Pas d'erreur chez moi avec ce fichier avec EXCEL 2000 sous WinXP.