re chico
très difficile sans voir le fichier.
Je crois que l'on ne peut pas créer un commentaire (addcomment) sur une cellule si celle-ci en contient déjà un, j'ai donc rajouté une ligne pour le addcomment.
je pense avoir corrigé la syntaxe pour le rajout de commentaire.
mais sans certitude. Si ceci n'allait pas, il serait bien de nous faire parvenir un fichier exemple.
Dim cel As Range
Dim titre As Boolean
Dim o7 As Range
Set cel = Worksheets('Calendrier_An').Range('U3')
Set o7 = Worksheets('Calendrier_An').Range('O7')
titre = False
For i = 0 To 32
If o7 = cel.Offset(i) Then
If titre = False Then
If Not o7.Comment Is Nothing Then o7.Comment.Delete
o7.AddComment.Text 'Anniversaire de:'
End If
o7.Comment.Text o7.Comment.Text & Chr(13) & cel.Offset(0, -4).Value & ' ' & cel.Offset(0, -3).Value & ' ' & cel.Offset(0, -1).Value & ' an'
o7.Comment.Visible = False
titre = True
End If
Next i
salut