Modifier la valeur de la même cellule sur plusieurs feuilles

Bonjour le forum,

J'ai un fichier excel avec 52 feuilles correspondant à chaque semaine de l'année.

Sur chacune de ces feuilles, la cellule B9 contient l'année (pour l'instant 2016).

Mes feuilles s'appellent "Semaine 1", "Semaine 2", etc.

J'aimerais pouvoir modifier simultanément, via une macro, la valeur de cette cellule sur chacune des feuilles (donc que la cellule B9 de chaque feuilles contenant 2016 soit modifié par 2017 par exemple), pour anticiper les futurs changements d'années et m'éviter ainsi des copier/coller fastidieux.

Quelqu'un aurait-il une idée de code ?

Un tout grand merci d'avance.

Nico.

Bonsoir,

Clique droit sur un onglet. Sélectionner toutes les feuilles et saisir en B9 l'année.

Bonjour Raja,

Merci pour ta réponse

J'avais effectivement pensé à cela mais mes feuilles sont protégées par un mot de passe, je vais donc intégrer dans la macro un bout de code pour supprimer la protection, modifier les cellules, et réactiver la protection...

Une autre idée ?

Nico.

C'est quelquechose comme ca.

Sub CheckFeuil()
Année = 2016
    For i = 1 To 52
        Sheets(i).Select    'ou .Activate
        ActiveSheet.Unprotect "Mot de passe"
        Sheets(i).Range("B9").Value = Année
        ActiveSheet.Protect "Mot de passe"
    Next i
End Sub

Re,

Essaye ça :

Sub test()
    Dim ws As Worksheet
    For Each ws In Worksheets
           If ws.Name Like "Semaine*" Then
                ws.Unprotect "mdp"
                ws.Range("B9") = 2016
                ws.Protect "mdp"
           End If
    Next ws
End Sub

Bonjour Raja, Zarik, le forum,

C'est superbe, cela fonctionne parfaitement !

Merci beaucoup pour votre aide

Nico.

Rechercher des sujets similaires à "modifier valeur meme feuilles"