Masquer un jour automatiquement dans un calendrier

Bonjour,

J'essaye de créer un tuto qui est présenté sur le site, "Création d’un calendrier automatique"

j'ai créer le tableau correctement de ce coté la pas de souci, mais je bloque sur la partie VBA. Etant débutant ces compliqué.

""Sub Masquer_Jour()
Dim Cells(6, 2) As Long
For Num_Col = 30 To 32 ' Boucle sur les cellules des jours 29, 30 et 31
If Month (Cells(6, 30), Cells(6, 31), Cells(6, 32)) >= Cells(1, 1) Then

Columns(30).Hidden = True
Else
Columns(30).Hidden = False

Columns(31).Hidden = True
Else
Columns(31).Hidden = False

Columns(32).Hidden = True
Else
Columns(32).Hidden = False
End If
Next
Range("B6:AF13").ClearContents 'Supprime le contenu dans les cellules
End Sub""

Je bloque sur cette ligne " If Month (Cells(6, 30), Cells(6, 31), Cells(6, 32)) >= Cells(1, 1) Then "

Jai une erreur " Erreur de compilation : Attendu : Then ou GoTo "

Si quelqu'un peut m'aider ou m'aiguillé pour corriger l'erreur.

En vous remerciant d'avance.

Cordialement Fabrice

Bonsoir,

il faut revoir le code, il ne peut y avoir plusieurs Else pour un seul If, si vous voulez mettre plusieurs tests de conditions à la suite alors il faut mettre ElseIf et refaire une test.

Ici vous faites un test avec le premier If, puis Then si le test est Vrai, puis Else si c'est faux, et là vous continuez avec des Else... C'est ceci qui n'est pas bon:

Si LouReeD="Fort" alors 'premier test si vrai
Msgbox ("Fort")
Sinon Si LouReeD =" Pas bon" alors ' si le premier test est faux alors on fait un nouveau test et s'il est vrai
Msgbox ("Pas bon !")
Sinon ' sinon plus de test on fait ce qu'il faut faire dans le cas où tous les test sont faux
MsgBox ("Indiférent")
Fin des SI ' fin de la suite de tests

@ bientôt

LouReeD