Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
Texte à ajouter en colonne B
Sub AjouteCommentaire() [A:A].ClearComments For Each c In Range("B2", [B65000].End(xlUp)) c.Offset(0, -2).AddComment c.Value c.Offset(0, -2).Comment.Visible = True c.Offset(0, -2).Comment.Shape.Select Selection.AutoSize = True c.Offset(0, -2).Comment.Visible = False Next c End Sub
bonjour je souhaite copier le contenu d'une cellule dans le commentaire et ce pour toute une collone est faisable ? à bientôt
Bonjour,
Texte à ajouter en colonne B
Sub AjouteCommentaire()
[A:A].ClearComments
For Each c In Range("B2", [B65000].End(xlUp))
c.Offset(0, -2).AddComment c.Value
c.Offset(0, -2).Comment.Visible = True
c.Offset(0, -2).Comment.Shape.Select
Selection.AutoSize = True
c.Offset(0, -2).Comment.Visible = False
Next c
End Sub
Sub AjouteCommentaire() [A:A].ClearComments For Each c In Range("B2", [B65000].End(xlUp)) c.Offset(0, -2).AddComment c.Value c.Offset(0, -2).Comment.Visible = True c.Offset(0, -2).Comment.Shape.Select Selection.AutoSize = True c.Offset(0, -2).Comment.Visible = False Next c End Sub