Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Afficher les commentaires sur une feuille à part

Afficher les commentaires sur une feuille à part

7 réponses
Avatar
Laurent
Bonjour,
Auriez vous une idée comment affciher les commentaires de mon document sur
une feuille à part.
Le but est de travailler sur ces commentaires.
J'ai une solution de contournement qui est d'editer la page des commentaire
en pdf puis de travailler sur le pdf. Mais cette solution ne me satisfait pas

Merci d'avance
Laurent
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
ChrisV
Bonjour Laurent,

Fichier/Mise en page.../Feuille
Impression/Commentaires : A la fin de la feuille


ChrisV


"Laurent" a écrit dans le message de
news:
Bonjour,
Auriez vous une idée comment affciher les commentaires de mon document sur
une feuille à part.
Le but est de travailler sur ces commentaires.
J'ai une solution de contournement qui est d'editer la page des
commentaire
en pdf puis de travailler sur le pdf. Mais cette solution ne me satisfait
pas

Merci d'avance
Laurent


Avatar
Laurent
C'est ce qui me permet d'éditer, maintenant je souhaite travailler sur ces
valeurs (recherche addition etc...) je veux le même principe mais au lieu de
l'imprimer sur la dernière page je voudrais les extraire sur une nouvelle
feuille

Cdlmt
Laurent


Bonjour Laurent,

Fichier/Mise en page.../Feuille
Impression/Commentaires : A la fin de la feuille


ChrisV


"Laurent" a écrit dans le message de
news:
Bonjour,
Auriez vous une idée comment affciher les commentaires de mon document sur
une feuille à part.
Le but est de travailler sur ces commentaires.
J'ai une solution de contournement qui est d'editer la page des
commentaire
en pdf puis de travailler sur le pdf. Mais cette solution ne me satisfait
pas

Merci d'avance
Laurent







Avatar
ChrisV
Re,

Connais-tu à l'avance l'emplacement des commentaires, ou la proc doit-elle
balayer toutes les cellules de l'onglet de référence...?


ChrisV


"Laurent" a écrit dans le message de
news:
C'est ce qui me permet d'éditer, maintenant je souhaite travailler sur ces
valeurs (recherche addition etc...) je veux le même principe mais au lieu
de
l'imprimer sur la dernière page je voudrais les extraire sur une nouvelle
feuille

Cdlmt
Laurent


Bonjour Laurent,

Fichier/Mise en page.../Feuille
Impression/Commentaires : A la fin de la feuille


ChrisV


"Laurent" a écrit dans le message de
news:
Bonjour,
Auriez vous une idée comment affciher les commentaires de mon document
sur
une feuille à part.
Le but est de travailler sur ces commentaires.
J'ai une solution de contournement qui est d'editer la page des
commentaire
en pdf puis de travailler sur le pdf. Mais cette solution ne me
satisfait
pas

Merci d'avance
Laurent









Avatar
Laurent
La procédure doit balayer toutes les cellules.


Re,

Connais-tu à l'avance l'emplacement des commentaires, ou la proc doit-elle
balayer toutes les cellules de l'onglet de référence...?


ChrisV


"Laurent" a écrit dans le message de
news:
C'est ce qui me permet d'éditer, maintenant je souhaite travailler sur ces
valeurs (recherche addition etc...) je veux le même principe mais au lieu
de
l'imprimer sur la dernière page je voudrais les extraire sur une nouvelle
feuille

Cdlmt
Laurent


Bonjour Laurent,

Fichier/Mise en page.../Feuille
Impression/Commentaires : A la fin de la feuille


ChrisV


"Laurent" a écrit dans le message de
news:
Bonjour,
Auriez vous une idée comment affciher les commentaires de mon document
sur
une feuille à part.
Le but est de travailler sur ces commentaires.
J'ai une solution de contournement qui est d'editer la page des
commentaire
en pdf puis de travailler sur le pdf. Mais cette solution ne me
satisfait
pas

Merci d'avance
Laurent














Avatar
ChrisV
Re,

La procédure doit balayer toutes les cellules.


Ok... dans un module du classeur

Sub recupCom()
Dim i As Long
Dim c As Range
Dim aC As String
On Error Resume Next
Set Zn = Selection.SpecialCells(xlCellTypeComments).Select
If Err.Number = 1004 Then Exit Sub
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
aC = ActiveCell.Address
asH = ActiveSheet.Name
Sheets("Commentaires").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Commentaires"
Sheets(asH).Activate
i = 0
For Each c In Selection
i = i + 1
With Sheets("Commentaires")
.Cells(i, 1) = c.Address
.Cells(i, 2) = Application.Clean(c.NoteText)
End With
Next c
Range(aC).Select
Set Zn = Nothing
End Sub

au cas zou... pour récupérer les commentaires par formule:

Function recupC(c As Range)
recupC = Application.Clean(c.NoteText)
End Function


ChrisV


"Laurent" a écrit dans le message de
news:
La procédure doit balayer toutes les cellules.


Re,

Connais-tu à l'avance l'emplacement des commentaires, ou la proc
doit-elle
balayer toutes les cellules de l'onglet de référence...?


ChrisV


"Laurent" a écrit dans le message de
news:
C'est ce qui me permet d'éditer, maintenant je souhaite travailler sur
ces
valeurs (recherche addition etc...) je veux le même principe mais au
lieu
de
l'imprimer sur la dernière page je voudrais les extraire sur une
nouvelle
feuille

Cdlmt
Laurent


Bonjour Laurent,

Fichier/Mise en page.../Feuille
Impression/Commentaires : A la fin de la feuille


ChrisV


"Laurent" a écrit dans le message
de
news:
Bonjour,
Auriez vous une idée comment affciher les commentaires de mon
document
sur
une feuille à part.
Le but est de travailler sur ces commentaires.
J'ai une solution de contournement qui est d'editer la page des
commentaire
en pdf puis de travailler sur le pdf. Mais cette solution ne me
satisfait
pas

Merci d'avance
Laurent
















Avatar
Laurent
Ok
Ca repond à mon besoin, en fait j'aurais préféré une solution hors macro,
mais je ne pense pas qu'il y en ait

Merci pour la macro


Re,

La procédure doit balayer toutes les cellules.


Ok... dans un module du classeur

Sub recupCom()
Dim i As Long
Dim c As Range
Dim aC As String
On Error Resume Next
Set Zn = Selection.SpecialCells(xlCellTypeComments).Select
If Err.Number = 1004 Then Exit Sub
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
aC = ActiveCell.Address
asH = ActiveSheet.Name
Sheets("Commentaires").Delete
Sheets.Add(Before:=Sheets(1)).Name = "Commentaires"
Sheets(asH).Activate
i = 0
For Each c In Selection
i = i + 1
With Sheets("Commentaires")
.Cells(i, 1) = c.Address
.Cells(i, 2) = Application.Clean(c.NoteText)
End With
Next c
Range(aC).Select
Set Zn = Nothing
End Sub

au cas zou... pour récupérer les commentaires par formule:

Function recupC(c As Range)
recupC = Application.Clean(c.NoteText)
End Function


ChrisV


"Laurent" a écrit dans le message de
news:
La procédure doit balayer toutes les cellules.


Re,

Connais-tu à l'avance l'emplacement des commentaires, ou la proc
doit-elle
balayer toutes les cellules de l'onglet de référence...?


ChrisV


"Laurent" a écrit dans le message de
news:
C'est ce qui me permet d'éditer, maintenant je souhaite travailler sur
ces
valeurs (recherche addition etc...) je veux le même principe mais au
lieu
de
l'imprimer sur la dernière page je voudrais les extraire sur une
nouvelle
feuille

Cdlmt
Laurent


Bonjour Laurent,

Fichier/Mise en page.../Feuille
Impression/Commentaires : A la fin de la feuille


ChrisV


"Laurent" a écrit dans le message
de
news:
Bonjour,
Auriez vous une idée comment affciher les commentaires de mon
document
sur
une feuille à part.
Le but est de travailler sur ces commentaires.
J'ai une solution de contournement qui est d'editer la page des
commentaire
en pdf puis de travailler sur le pdf. Mais cette solution ne me
satisfait
pas

Merci d'avance
Laurent





















Avatar
michdenis
Bonjour Laurent,

Il y a aussi ceci :

-----------------------------------
Sub Commentaires()
Dim Sh As Worksheet, C As Comment
Dim Tblo(), A As Integer
For Each Sh In Worksheets
For Each C In Sh.Comments
A = A + 1
ReDim Preserve Tblo(A)
Tblo(A) = C.Text
Next
Next
If A = 0 Then Exit Sub
Application.ScreenUpdating = False
Worksheets.Add
With ActiveSheet.Range("A1")
.Resize(UBound(Tblo) + 1) = _
Application.Transpose(Tblo)
.Value = "Liste des commentaires"
.EntireColumn.AutoFit
End With
End Sub
'-----------------------------------


Salutations!


"Laurent" a écrit dans le message de news:
Bonjour,
Auriez vous une idée comment affciher les commentaires de mon document sur
une feuille à part.
Le but est de travailler sur ces commentaires.
J'ai une solution de contournement qui est d'editer la page des commentaire
en pdf puis de travailler sur le pdf. Mais cette solution ne me satisfait pas

Merci d'avance
Laurent