extraction des commentaires

L

LaurentTBT

Guest

• 6 Octobre 2003

• #2

Bonsoir Olivia,

Si par exemple tu as un commentaire en A1, alors
Range("A1").Comment.Text te permet de le retrouver.

Bon courage.

Laurent.

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 6 Octobre 2003

• #3

Bonsoir Olivia re Laurent et toi le forum,

Voici une procédure qui te permettra de lister tous les commentaires présents sur une feuille vers une autre...

Option Explicit

Sub Liste_Commentaires()
'Afficher le contenu des commentaires
'd'une feuille sur une autre feuille
'Vériland octobre 2003
'http://www.excel-downloads.com/html/French/forum/messages/1_52393_52393.htm
Dim Commentaire, Cellule As Range
Dim i As Long
'
Application.ScreenUpdating = False
'
Set Commentaire = Feuil1.Cells.SpecialCells(xlCellTypeComments)
Feuil2.Range("a1:c1").Value = Array("N° Cellule", "Valeur", "Commentaire")
'
i = 1
For Each Cellule In Commentaire
With Feuil2
i = i + 1
.Cells(i, 1).Value = Cellule.Address
.Cells(i, 2).Value = Cellule.Value
.Cells(i, 3).Value = Cellule.Comment.Text
End With
Next Cellule
'
Application.ScreenUpdating = True
'
End Sub

Le principe est simple...on spécifie dans Feuil1 les cellules qui contiennent un commentaire ...

ensuite on place les entêtes de colonnes sur Feuil2 (a1:c1) puis on affiche en boucle :

1) Le numéro de la cellule...2) sa valeur...3) le contenu du commentaire qu'elle contient...

PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs gras du post dedans...

 

Vote positif 0 Vote négatif

L

LaurentTBT

Guest

• 6 Octobre 2003

• #4

Véri, je me permet (entre Vosgiens) ce que Thierry nous dit souvent:
Dim Commentaire, Cellule As Range
à remplacer par
Dim Commentaire as Range, Cellule As Range

Bonne nuit.

 

Vote positif 0 Vote négatif

L

LaurentTBT

Guest

• 6 Octobre 2003

• #5

Olivia, peux-tu mettre ton fichier en pièce jointe, car pour moi, la soluce de Véri me semble tout à fait marcher comme il faut

 

Vote positif 0 Vote négatif

O

Olivia

Guest

• 6 Octobre 2003

• #6

Merci beaucoup c'est trés sympa de me donner un coup de pouce.

J'ai encore un soucis quand j'ecécute la macro,

1) ca me renvoie des références de cellules dans lesquelles je n'ai pas de commentaires.

2) ca me renvoie un nombre inférieur de commentaire par rapport à ceux présent dans le fichier.


Encore merci

 

Vote positif 0 Vote négatif

L

LaurentTBT

Guest

• 6 Octobre 2003

• #7

J'espère ne pas t'avoir dit de bétise, je vérifierai demain, mais il me semble bien que le fait de tout mettre sur la même ligne permet juste de ne pas répeter le mot DIM pour chaque variable. Le type de variable doit être spécifié à chaque fois, sinon, elle sera initialisée en Variant.

Enfin, je te confirmerai cela ,demain, car maintenant, j'ai du mal à rester eveillé.

Bonne nuit.

Laurent.

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 6 Octobre 2003

• #8

Arf un ot' Vosgiens dans le Forum ?...hi hi hi

ah ben tu vois moi j'pensais qu'à partir du moment où les variables étaient sur le même ligne le Dim spécifiait le Range pour les deux...

Bon ben j'voulais p'têt réduire la macro à la Lien supprimé mais ça marche pas chez moi...loool

j'espère juste qu'il y a bien des commentaires sur la feuille car je n'ai pas inclue de procédure qui gère le contraire...wouarf!

Bonne nuit aussi

 

Vote positif 0 Vote négatif

O

Olivia

Guest

• 6 Octobre 2003

• #9

Je m'était melangée dans les feuilles ca marche impecable, merci beacoup, vous etes géniaux. Bonne nuit
Olivia

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 7 Octobre 2003

• #10

voici un petit programme écrit justement la semaine dernière à la demande d'une québecoise (mais qui cela peut-il bien être ?), qui fera tout ça automatiquement.
Il est capable de recenser les commentaires
-d'une colonne
-d'une feuille
-ou du fichier entier.
Ceux ci sont affichés dans une feuille créée pour la circonstance, triés par feuille et par cellule.
Pour l'utiliser, il faut déjà le lancer, puis activer le fichier à analyser et faire un clic droit sur une des cellules du fichier. On voit alors 3 options supplémentaires dans le menu "Cell", on clique sur l'option désirée et voilà.

 

Pièces jointes

• ListeCommentaires2.zip

  24.5 KB · Affichages: 157

Vote positif 0 Vote négatif

A

andré

Guest

• 7 Octobre 2003

• #11

Salut Ti,

A mon avis, mais je puis me tromper, connaissant quelque peu tes affinités, j'opterai bien pour une petite souris québecoise !

Ne vois-tu rien au bout de ta lorgnette ?

Ândré.

 

Vote positif 0 Vote négatif