Macro pour commentaires...petite modif souhaitée...

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre intervention afin de modifier une macro servant à créer des commentaires...

voir fichier....


Merci, par avance, pour votre aide si précieuse.

Bien amicalement,
Christian

 

[job75]

Re : Macro pour commentaires...petite modif souhaitée...

Bonjour Christian,

A mettre dans le code de la feuille "Planning" :

Private Sub Worksheet_Activate()
Dim n&, c As Range, t
n = 20 'nombre de lignes, à ajuster
Set c = [C12] 'début
t = Sheets("Agents").[A2].Resize(n, 2) 'adapter A2 si nécessaire
c.Resize(n) = t
c.Resize(n).ClearComments
For n = 1 To n
  If t(n, 2) <> "" Then
    c(n).AddComment t(n, 2)
    c(n).Comment.Visible = False
    c(n).Comment.Shape.TextFrame.AutoSize = True
  End If
Next
End Sub

A+

 

[Christian0258]

Re : Macro pour commentaires...petite modif souhaitée...

Re, le forum, job75,

C'est parfait, merci job75.

Bien à toi,
Christian

 

[job75]

Re : Macro pour commentaires...petite modif souhaitée...

Re,

Pas sûr que tu aies vu la modif que j'ai faite.

C'est mieux de modifier toutes les valeurs d'un coup avec c.Resize(n) = t

A+

 

[Christian0258]

Re : Macro pour commentaires...petite modif souhaitée...

Re, le forum, job75,

En effet, avec beaucoup de retard et je m'en excuse, je n'avais pas vu la modif effectuée.

Je mets en place ce code...

Un grand merci, job75.
Christian