Ajout de commentaires automatique

[drone]

Bonjour,
j'ai un petit problème avec une macro pour insérer des commentaires de façon automatique.
je suis parti de ça :

Sub Macro5()
    Range("A6").Select
    Application.CutCopyMode = False
    Range("A6").AddComment
    Range("A6").Comment.Visible = False
    Range("A6").Comment.Text Text:="toto" & Chr(10) & ""
    Range("A6").Select
End Sub

et j'aimerais m'en servir pour ajouter automatiquement dans les cellules que je sélectionne, en commentaire, le texte d'une cellule de la même ligne, par exemple dans la colonne "E".
Un petit coup de main ne serait pas de refus.

 

[Cousinhub]

Re : Ajout de commentaires automatique

Bonjour drone,
essaie :

Sub Macro1()
For Each cel In Range("D1 : D3")
cel.AddComment
cel.Comment.Text Text:=Range("E" & cel.Row).Text
Next cel
End Sub

Edit : pas d'espace dans D1 : D3

 

[drone]

Re : Ajout de commentaires automatique

au lieu d'avoir D1: D3, j'aimerais avoir des cellules préalablement sélectionnées, c'est possible?

 

[Cousinhub]

Re : Ajout de commentaires automatique

Bien sûr, tu remplaces Range("D...
par Selection

 

[drone]

Re : Ajout de commentaires automatique

Merci, c'est ce que j'allais rajouter.
En tous cas merci pour cette rapidité et cette efficacité.

 

[drone]

Re : Ajout de commentaires automatique

juste une petite modification au cas où un commentaire existerait déjà :

Sub Macrocommentaires()
For Each cel In Selection
Dim Z As Variant
Set Z = cel.comment
If Z Is Nothing Then cel.AddComment
cel.comment.Text Text:=Range("E" & cel.Row).Text
Next cel
End Sub

 

[drone]

Re : Ajout de commentaires automatique

En une petite modification pour que la taille des cadres des commentaires soit ajustée suivant le texte :

Sub Macrocommentaires()
For Each cel In Selection
Dim Z As Variant
Set Z = cel.comment
If Z Is Nothing Then cel.AddComment

cel.comment.Text Text:=Range("E" & cel.Row).Text
With cel.comment.Shape
.Placement = xlFreeFloating
.TextFrame.AutoSize = True
End With
    
    Next cel
End Sub