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

job75

XLDnaute Barbatruc

• 16 Septembre 2014

• #2

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

Bonjour Christian,

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

Code:

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+

 

Dernière édition: 16 Septembre 2014

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 16 Septembre 2014

• #3

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

Re, le forum, job75,

C'est parfait, merci job75.

Bien à toi,
Christian

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Septembre 2014

• #4

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+

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 2 Octobre 2014

• #5

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

 

Vote positif 0 Vote négatif