EXCEL ANNEE 2017
L'heure est venue de vous presenter
Une excel et bonne annee 2017 !
De la part de toute l equipe de VeriTi
Ajouter contenu cellule dans un commentaire
Publié par veriland le 11-Aug-2013 16:00 (8682 lectures)Pour cet exemple, il faut à la base une feuille nommée "Import" ... avec cette procédure, la valeur de la cellule A1 de cette feuille, s'inscrit en commentaire dans la cellule A1 de la feuille active ...
Code à placer dans un module
Option Explicit
Sub Ajout_Commentaire()
'Ti
'http://www.excel.veriti.net
Dim CelS As Range, CelDest As Range, AncienCom As Variant
'on importe le texte de la cellule A1 de la feuille "Import"
Set CelS = Worksheets("Import").Range("A1")
'on insère cette valeur dans la cellule A1 de la feuille active
Set CelDest = ActiveSheet.Range("A1")
'on ajoute le commentaire
With CelDest
On Error Resume Next
.Comment.Delete
.AddComment
.Comment.Shape.TextFrame.AutoSize = True
.Comment.Text CStr(CelS)
End With
'et le tour est joué
End Sub
| Naviguer à travers les articles | |
Commentaire conditionnel
 |
|
|
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
|
||||
