XL 2019 Contenus des commentaires.

[lotislogan]

Bonjour,

J'ai cherché sur le forum et n'ai pas trouvé le sujet lié à mon problème, aussi je vous prie de m'excuser s'il existe déjà.

J'ai une feuille qui contient 5880 commentaires et ce n'est plus du tout gérable. Je voulais savoir si, au besoin en VBA (en précisant toutefois que je suis totalement ignorant du langage), il y a moyen de copier le contenu seul des commentaires et les colloer dans une cellule adjacente (dans une colonne créer pour l'occasion), voire directement dans la cellule du commentaire ?

Je vous remercie par avance de l'aide que vous pourrez m'apporter par cette chaleur.

 

[sylvanu]

Bonjour Lotislogan,
Auriez vous un petit fichier test représentatif ?
Pour savoir dans quelle zone chercher, y a t-il toujours une cellule vide adjacente, etc.

 

[lotislogan]

Bonjour Lotislogan,
Auriez vous un petit fichier test représentatif ?
Pour savoir dans quelle zone chercher, y a t-il toujours une cellule vide adjacente, etc.

Oui, bien sûr, le voici.
On peut bien entendu rajouter autant de colonne que nécessaire afin qu'il y ait toujours une cellule adjacente.

 

[sylvanu]

Re,
Un essai en PJ avec :

Sub RecopieCommentaire()
    Dim DL%, DC%, Plage, c
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row
    DC = Cells(1, Columns.Count).End(xlToLeft).Column
    Set Plage = Range(Cells(1, 1), Cells(DL, DC))
    For Each c In Plage
        If Not Range(c.Address).Comment Is Nothing Then
            Cells(c.Row, c.Column + 1) = c.Comment.Text
        End If
    Next c
End Sub

 

[sylvanu]

Re,
J'ai vu à l'usage qu'afficher les commentaires modifiait évidemment la mise en page.
Alors il y a peut être plus intelligent, c'est d'avoir un "flip/flop" qui affiche ou masque l'ajout de commentaires.
Un appui recopie les commentaires, un second appui les supprime.
Et la macro est quasi la même sauf :

...
        If Not Range(c.Address).Comment Is Nothing Then
            If Cells(c.Row, c.Column + 1) = "" Then
                Cells(c.Row, c.Column + 1) = c.Comment.Text
            Else
                Cells(c.Row, c.Column + 1) = ""
            End If
        End If
...

 

[lotislogan]

Re,
J'ai vu à l'usage qu'afficher les commentaires modifiait évidemment la mise en page.
Alors il y a peut être plus intelligent, c'est d'avoir un "flip/flop" qui affiche ou masque l'ajout de commentaires.
Un appui recopie les commentaires, un second appui les supprime.
Et la macro est quasi la même sauf :

...
        If Not Range(c.Address).Comment Is Nothing Then
            If Cells(c.Row, c.Column + 1) = "" Then
                Cells(c.Row, c.Column + 1) = c.Comment.Text
            Else
                Cells(c.Row, c.Column + 1) = ""
            End If
        End If
...

Mais c'est génial ! Tu as été au-delà de mes espérances. Un grand merci à toi, ça m'enlève une sacrée épine du pied.
Je te souhaite une très bel fin d'été.