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.