XL 2019 Boucle horizontale

[gilboss]

Bonjour,
Sur une ligne de C3 à AG3 j'ai les 31 jours du mois. Sur une autre ligne de C5 à AG5 j'ai 31 valeurs variables.
Je saurai faire pour une cellule, mais je n'arrive pas à faire une boucle horizontale avec les lettres des colonnes. (incrément de C à AG)
Si C5 est différent de 1, la cellule C3 s'efface et se protège en écriture. Si C5 est égale à 1, la cellule C3 se libère en écriture.
Et cela jusqu'à la colonne AG.
Une macro qui se déclenchera à l'ouverture de la page du mois au moment je cliquerai sur le bouton.
Si vous pourriez m'aider à écrire cette macro, je vous en serai très reconnaissant.

 

[yal]

Bonjour

For i = 3 to 34
    x = Cells(3,i) ' 3 étant le numéro de la ligne et i le numéro de la colonne
    y = Cells(5,i)
next i

 

[gilboss]

Merci pour cette boucle. J'ai inséré une fonction if à l'intérieur de cette boucle qui fonctionne bien, mais sans le end if. Si je met end if, j'ai une erreur end if sans if. Étonnant.

 

[yal]

Ça dépend comment il est écrit :
If blabla then ceci pas besoin de end if
If blabla then
ceci
End if là il est nécessaire
Ceci dit sans voir le code difficile d'être précis

 

[gilboss]

D'accord mon then ceci est sur la même ligne.
J'ignorais que le fait de mettre le then sur la ligne inférieure a une importance.
Merci.

 

[yal]

A ton service