un internaute
XLDnaute Impliqué
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
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
VB:
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
Dernière édition: