commentaires...

Salut Nico,
essai ceci :
Sub Commentaire()
Dim I As Integer
Dim Plage As Range
Dim Cel As Range

With Worksheets("Feuil1")
Set Plage = .Range(.[B1], .[B65536].End(xlUp))
End With

For Each Cel In Plage.SpecialCells(xlCellTypeComments)
I = I + 1
With Worksheets("Feuil2").Range("A" & I)
.Value = Cel
.Offset(, 1) = Cel.Comment.Text
End With
Next Cel

Set Cel = Nothing
Set Plage = Nothing
End Sub

Hervé.

"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message news:
Ovpq3jH4EHA.4028@TK2MSFTNGP15.phx.gbl...

Bonjour,

est-t'il possible de rechercher dans une colonne tous les commentaires
(affichés ou masqués) et de coller dans une autre feuille le contenu de la
cellule et le commentaire à côté.

Exemple :

Dans feuil1
j'ai en B4 "toto" avec un commentaire
En B8 "mimi" avec un commentaire.
......

Je souhaiterais en feuil2 avoir :
En A1 --> "toto" puis en B1 "le commentaire"
En A2 --> "mimi" puis en B2 "le commentaire"
......

Merci

Nico

Bonjour Nico,

Tu peux essayer ceci ... en adaptant le nom des feuilles et la plage de cellules qui t'intéresse : Range("A1:A25") dans
mon exemple.

'-------------------------------
Sub CopierCommentaires()

Dim Rg As Range, b as long
On Error Resume Next
With Worksheets("Feuil1") 'Feuille Source
Set Rg = .Range("A1:A25").SpecialCells(xlCellTypeComments)
If Err <> 0 Then
Err = 0
Exit Sub
End If
End With
If Not Rg Is Nothing Then
With Worksheets("Feuil2") 'Feuille Destination
For Each C In Rg
b = b + 1
.Range("A" & b) = C.Value
.Range("B" & b) = C.NoteText
Next
.Columns("A:B").AutoFit
End With
End If
Set Rg = Nothing

End Sub
'-------------------------------


Salutations!



"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news: Ovpq3jH4EHA.4028@TK2MSFTNGP15.phx.gbl...
Bonjour,

est-t'il possible de rechercher dans une colonne tous les commentaires
(affichés ou masqués) et de coller dans une autre feuille le contenu de la
cellule et le commentaire à côté.

Exemple :

Dans feuil1
j'ai en B4 "toto" avec un commentaire
En B8 "mimi" avec un commentaire.
......

Je souhaiterais en feuil2 avoir :
En A1 --> "toto" puis en B1 "le commentaire"
En A2 --> "mimi" puis en B2 "le commentaire"
......

Merci

Nico

Bonsoir,

La proc suivante devrait t'avancer.
Elle s'adapte facilement aux différents cas de figure

Sub AfficheComments()
Ligne = 1
For Each c In Sheets("Feuil1").Comments
If c.Parent.Column = 1 Then 'seulement pour la colonne A (1)
Sheets("Feuil2").Cells(Ligne, 1) = c.Parent.Value
Sheets("feuil2").Cells(Ligne, 2) = c.Text
Ligne = Ligne + 1
End If
Next c
End Sub

Bonne soirée

Rai


"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news: Ovpq3jH4EHA.4028@TK2MSFTNGP15.phx.gbl...

Bonjour,

est-t'il possible de rechercher dans une colonne tous les commentaires
(affichés ou masqués) et de coller dans une autre feuille le contenu de la
cellule et le commentaire à côté.

Exemple :

Dans feuil1
j'ai en B4 "toto" avec un commentaire
En B8 "mimi" avec un commentaire.
......

Je souhaiterais en feuil2 avoir :
En A1 --> "toto" puis en B1 "le commentaire"
En A2 --> "mimi" puis en B2 "le commentaire"
......

Merci

Nico

Extra !!!
Merci à vous 3

Nico

"Rai" <raimondpointschmidt@berlin.de> a écrit dans le message de news:
uPEbV$H4EHA.2012@TK2MSFTNGP15.phx.gbl...
Bonsoir,

La proc suivante devrait t'avancer.
Elle s'adapte facilement aux différents cas de figure

Sub AfficheComments()
Ligne = 1
For Each c In Sheets("Feuil1").Comments
If c.Parent.Column = 1 Then 'seulement pour la colonne A (1)
Sheets("Feuil2").Cells(Ligne, 1) = c.Parent.Value
Sheets("feuil2").Cells(Ligne, 2) = c.Text
Ligne = Ligne + 1
End If
Next c
End Sub

Bonne soirée

Rai


"Nico" <nico.loureiro@wanadoo.fr> a écrit dans le message de news:
Ovpq3jH4EHA.4028@TK2MSFTNGP15.phx.gbl...

Bonjour,

est-t'il possible de rechercher dans une colonne tous les commentaires
(affichés ou masqués) et de coller dans une autre feuille le contenu de la
cellule et le commentaire à côté.

Exemple :

Dans feuil1
j'ai en B4 "toto" avec un commentaire
En B8 "mimi" avec un commentaire.
......

Je souhaiterais en feuil2 avoir :
En A1 --> "toto" puis en B1 "le commentaire"
En A2 --> "mimi" puis en B2 "le commentaire"
......

Merci

Nico