Ajouter 1 à la même cellule sur plusieurs feuilles

Bonjour au forum,

J'ai écris ce code pour remettre à l'état initial un fichier puis incrémenter de 1 la même cellule sur une partie de mes feuilles du fichier.

Voici le code :

Sub ResetAll()

Dim Mdp As String

Mdp = Application.InputBox("Veuillez introduire votre mot de passe :")
If Mdp <> "mdp" Then MsgBox "Accès refusé !": Exit Sub

Dim ws As Worksheet
    For Each ws In Worksheets
           If Not ws.Name Like "Statistiques" Then
                ws.Unprotect "mdp"
                ws.Range("B16:W46").ClearContents
                ws.Range("B16:W46").Locked = False
                ws.Range("G10") = Range("G10").Value + 1
                ws.Range("L49") = "Non signé"
                ws.Protect "mdp"
           End If
    Next ws

End Sub

Le code fonctionne bien mise à part le fait que sur ma 1ère feuille, il incrémente bien ma cellule G10 de 1, mais toutes les autres sont incrémentées de 2

Par exemple j'ai 2016 dans toutes mes cellules G10 de toutes mes feuilles, et lors du lancement de la macro, j'ai bien 2017 sur la 1ère feuille, mais dès la 2ième et toutes les suivantes ont 2018 comme valeur...

Auriez-vous une idée ?

Merci d'avance !

Nico.

Bonjour,

Normal !

ws.Range("G10") = Range("G10").Value + 1

Pas de qualificateur : G10 de la feuille active + 1.

Cordialemetn.

Bonjour,

Modifie la ligne comme suivant et teste :

ws.Range("G10") = ws.Range("G10").Value + 1

Ah MFerrand ! Bonjour

Tu as vu que j'ai quand même suivi tes conseils pour essayer de rédiger un code propre 8)

Bref, merci pour ta réponse, mais malheureusement je ne la comprends pas...

Je lui demande bien de prendre feuille par feuille, d'incrémenter de 1 ma cellule G10, puis de passer à la suivante non?

Que se passe t-il ?

Bonjour Raja

Merci pour ta réponse, je comprends mon erreur maintenant, cela fonctionne parfaitement

Excellente journée à toi

Nico.

Fallait te mettre le point...