annee 2017

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

Image 1

Bienvenue

sur le site des amis d'Excel

excel.veriti.net ou fr

Image 2

Musee

Visitez le "Musee VeriTi" 24h/24 - 7j/7, des "pepites" vous y attendent

Voir la suite
Image 3

Hommage

Thierry POURTIER alias 'Ti'
s'en est alle brutalement le samedi 13 novembre 2010...

Voir la suite
Image 4

Historique

Juillet 2013 : A l'occasion du 10eme anniversaire de VeriTi, j'ai décide de réparer et de remettre en ligne le site, avec une nouvelle version plus structurée tout en gardant les mêmes fichiers Excel

Voir la suite

Membre

+ Enregistrement
Articles >Commentaires > Lister les commentaires

Lister les commentaires

Publié par veriland le 12-Aug-2013 21:00 (932 lectures)

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

module

 

Option Explicit

Sub Lister_Commentaire()
'VériTi
'http://www.excel.veriti.net
    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


Naviguer à travers les articles
Article précédent Inscrire le date dans le commentaire de la cellule active Supprimer les commentaires Article suivant
Note 0.00/5
Note: 0.0/5 (0 votes)
Les votes sont désactivés !
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
Auteur Commentaire en débat

Astuces
Sélection d'articles par Catégorie
Userform
Feuille
Cel / Col / Lig
Souris
Impression
Images
Commentaires
Evènements
Fichier
Trucs et astuces
Divers
FAQ Acyd
carte des membres

Carte des membres

Menu Principal
Haut de page des téléchargements
Copyright 2013 Powered by XOOPS © 2001-2013