[VBExc]Récup.leContenu d'1cell.ds1commentaire
Fermé
alaincool
Messages postés
2
Date d'inscription
lundi 23 décembre 2002
Statut
Membre
Dernière intervention
23 janvier 2003
-
23 déc. 2002 à 09:21
WhiteFang Messages postés 2063 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 - 26 déc. 2002 à 05:32
WhiteFang Messages postés 2063 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 15 février 2008 - 26 déc. 2002 à 05:32
2 réponses
j ai eu une réponse sur un autre forum, il faut enlever
le : entre text et =
par contre, la routine marche pas, aucune des données de la
cellule n'est copiée dans le commentaire.
par exemple, ma formule conditionnelle de la cellule =si(....Etc...
n'est pas du tout copiée dans le commentaire..
Où est le bogue?
Si je trouve la réponse sur un autre forum, je la redonnerais ici..
MERCI POUR VOTRE AIDE
le : entre text et =
par contre, la routine marche pas, aucune des données de la
cellule n'est copiée dans le commentaire.
par exemple, ma formule conditionnelle de la cellule =si(....Etc...
n'est pas du tout copiée dans le commentaire..
Où est le bogue?
Si je trouve la réponse sur un autre forum, je la redonnerais ici..
MERCI POUR VOTRE AIDE
WhiteFang
Messages postés
2063
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
26 déc. 2002 à 05:32
26 déc. 2002 à 05:32
;-))
Sub SupprCommentaires()
On Error Resume Next
Dim L, C
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Cells(L, C).Comment.Delete
Next
Next
End Sub
Sub AjoutCommentaire()
Dim Commentaire, Adresse
Commentaire = "Formule = " & Mid(Format(ActiveCell.Formula), 2)
Adresse = ActiveCell.Address(, , xlA1)
ActiveSheet.Range(Adresse).AddComment Commentaire
End Sub
;-)))
Wild and Free
Sub SupprCommentaires()
On Error Resume Next
Dim L, C
For L = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For C = 1 To ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Cells(L, C).Comment.Delete
Next
Next
End Sub
Sub AjoutCommentaire()
Dim Commentaire, Adresse
Commentaire = "Formule = " & Mid(Format(ActiveCell.Formula), 2)
Adresse = ActiveCell.Address(, , xlA1)
ActiveSheet.Range(Adresse).AddComment Commentaire
End Sub
;-)))
Wild and Free