|
Avec cette procédure, on va créer une nouvelle feuille et lister les commentaires de la feuille active ... le listing est réparti sur quatre colonnes avec le nom de la feuille, l'adresse de la cellule, la valeur de cette cellule et le texte du commentaire ... Code à placer dans un module 
Option Explicit
Sub Lister_Commentaire()
'VériTi
'http://www.veriti.fr
Application.ScreenUpdating = False
Dim Plage As Range, Cell As Range
Dim Feuille As Worksheet, NouvFeuil As Worksheet
Dim Lig As Long
'*******************
Set Feuille = ActiveSheet
On Error Resume Next
Set Plage = Feuille.Cells.SpecialCells(xlCellTypeComments)
If Plage Is Nothing Then
MsgBox "Il n'y a aucun commentaire sur la feuille : " & Feuille.Name
Exit Sub
End If
Set NouvFeuil = Worksheets.Add
NouvFeuil.Range("A1:D1").Value = Array("Feuille", "Cellule", "Valeur", "Commentaire")
Lig = 1
For Each Cell In Plage
With NouvFeuil
Lig = Lig + 1
.Cells(Lig, 1).Value = Feuille.Name
.Cells(Lig, 2).Value = Cell.Address(0, 0)
.Cells(Lig, 3).Value = Cell.Value
.Cells(Lig, 4).Value = Cell.Comment.Text
End With
Next Cell
Application.ScreenUpdating = True
End Sub
Date de création : 24/05/2005 - 19:21
Dernière modification : 25/05/2005 - 21:22
Catégorie : Commentaires
Page lue 3031 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 39
Haut 
