[RÉSOLU] Ajouter 1 an aux commentaires

[un internaute]

Bonjour le forum
Quelqu'un a fait ça l'autre jour
Peut-on l'adapter en lui faisant ajouter 1 an lorsque je passe en 2019?
Décembre 2017 deviendra donc Décembre 2018
Mes commentaires cellule A2 sont les suivants avec ces couleurs et sur 2 lignes:
Rappel consommation
Décembre 2017
Bien cordialement

Option Explicit
Sub CopieCommentaires()
Dim R As Worksheet 'déclare la variable R (onglet de Référence)
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As String 'déclare la variable TC (Texte du Commentaire)

  Set R = Worksheets("Année 2018") 'définit l'onglet de référence R (celui où il y a le commentaire, à adapter)
  On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
  TC = R.Range("A2").Comment.Text 'définit le texte du commentaire TC (génère une erreur si A3 ne contient pas de commentaire)
  If Err <> 0 Then 'condition : si une erreur a été générée
     MsgBox "il n'y a pas de commentaire ! Action terminée." 'message
     Exit Sub 'sort de la procédure
  End If 'fin de la condition
  MsgBox "commentaire à copier :  " & TC
  Application.EnableEvents = False
  For Each O In Worksheets 'boucle sur tous les onglets O du classseur
     If O.Name <> R.Name Then 'condition : si le nom de l'onglet O est différent du nom de l'onget de référence R
       R.Range("A2").Copy O.Range("A2")
     End If 'fin de le condition
  Next O 'prochain onglet de la boucle
  Application.EnableEvents = True
End Sub

 

[un internaute]

Bonjour Lone-wolf
Eh! bein dis-donc!!!
je regarde ça mais ça fonctionne
UN GRAND MERCI à toi
Bonne fin de WE
Donc résolu
Cordialement