Ouvrir le programme dans Private Sub Workbook_Open

J'ai un fichier nommé Planning1 dans lequel j'ai le programme suivant:

Private Sub Workbook_Open(

Sheets("2025").Activate
m = Cells(2, 6).Value 'm=mois'
q = Cells(2, 3).Value 'q=quantième du mois'
For k = 1 To q
With Cells(2 + k, 2 + 3 * (m - 1))
.Interior.ColorIndex = 1 'noir'
.Font.ColorIndex = 2 'blanc'
End With
Next k
End Sub

Je veux remplacer l'année 2025 en 2026 mais je ne sais plus comment récupérer ce programme pour le modifier

Hello,

y'a des gens à qui on explique les choses une fois et ils comprennent. Avec vous il semblerait que ça soit plus difficile

Pour mettre votre code il faut utiliser le bouton </>

Et aussi, "version 2508" n'est pas correcte, c'est 2016, 2019, 2021, 2024 ou 365 !!! Merci de corriger dans votre profil

Quand à votre problème, je pense que remplacer le chiffre 5 par 6 devrait faire l'affaire

Bonsoir,

sous votre classeur Excel faite "Alt+F11" pour ouvrir l'éditeur de VBA puis suivez le jaune, le vert et le rose :

@ bientôt

LouReeD