|
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.veriti.fr
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
Date de création : 24/05/2005 - 19:21
Dernière modification : 25/05/2005 - 21:09
Catégorie : Commentaires
Page lue 3206 fois
 Prévisualiser la page
 Imprimer la page
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 38
Haut 
