Est-il possible de faire retrouver la place d'origine à des commentaires ?
J'ai ajouté, déplacé, effacé des colonnes d'un tableau mais tous les
commentaires sont maintenant très loin de leurs cellules, seulement reliés
par un fil.
Cela revient à selectionner commentaire par commentaire et à le ramener sur
sa cellule de liaison.
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
garnote
Salut Denis,
Voici une suggestion : Sélectionne une plage quelconque contenant ou non des commentaires et lance cette macro :
Sub Ajuster_Positions_Des_Commentaires() Dim c As Range On Error Resume Next For Each c In Selection.SpecialCells(xlCellTypeComments) c.Comment.Shape.Left = c.Left + c.Width + 10 c.Comment.Shape.Top = c.Top - 10 Next c End Sub
Serge
"DENIS" a écrit dans le message de news:
Bonjour à tous,
Est-il possible de faire retrouver la place d'origine à des commentaires ? J'ai ajouté, déplacé, effacé des colonnes d'un tableau mais tous les commentaires sont maintenant très loin de leurs cellules, seulement reliés par un fil. Cela revient à selectionner commentaire par commentaire et à le ramener sur sa cellule de liaison.
Merci Denis
Salut Denis,
Voici une suggestion :
Sélectionne une plage quelconque contenant ou non
des commentaires et lance cette macro :
Sub Ajuster_Positions_Des_Commentaires()
Dim c As Range
On Error Resume Next
For Each c In Selection.SpecialCells(xlCellTypeComments)
c.Comment.Shape.Left = c.Left + c.Width + 10
c.Comment.Shape.Top = c.Top - 10
Next c
End Sub
Serge
"DENIS" <DENIS@discussions.microsoft.com> a écrit dans le message de news: 1080EFC7-FE39-448F-AF7A-C0BAA22F9AB4@microsoft.com...
Bonjour à tous,
Est-il possible de faire retrouver la place d'origine à des commentaires ?
J'ai ajouté, déplacé, effacé des colonnes d'un tableau mais tous les
commentaires sont maintenant très loin de leurs cellules, seulement reliés
par un fil.
Cela revient à selectionner commentaire par commentaire et à le ramener sur
sa cellule de liaison.
Voici une suggestion : Sélectionne une plage quelconque contenant ou non des commentaires et lance cette macro :
Sub Ajuster_Positions_Des_Commentaires() Dim c As Range On Error Resume Next For Each c In Selection.SpecialCells(xlCellTypeComments) c.Comment.Shape.Left = c.Left + c.Width + 10 c.Comment.Shape.Top = c.Top - 10 Next c End Sub
Serge
"DENIS" a écrit dans le message de news:
Bonjour à tous,
Est-il possible de faire retrouver la place d'origine à des commentaires ? J'ai ajouté, déplacé, effacé des colonnes d'un tableau mais tous les commentaires sont maintenant très loin de leurs cellules, seulement reliés par un fil. Cela revient à selectionner commentaire par commentaire et à le ramener sur sa cellule de liaison.
Merci Denis
DENIS
Merci beaucoup,
c'est excellent !
Denis
Salut Denis,
Voici une suggestion : Sélectionne une plage quelconque contenant ou non des commentaires et lance cette macro :
Sub Ajuster_Positions_Des_Commentaires() Dim c As Range On Error Resume Next For Each c In Selection.SpecialCells(xlCellTypeComments) c.Comment.Shape.Left = c.Left + c.Width + 10 c.Comment.Shape.Top = c.Top - 10 Next c End Sub
Serge
"DENIS" a écrit dans le message de news:
Bonjour à tous,
Est-il possible de faire retrouver la place d'origine à des commentaires ? J'ai ajouté, déplacé, effacé des colonnes d'un tableau mais tous les commentaires sont maintenant très loin de leurs cellules, seulement reliés par un fil. Cela revient à selectionner commentaire par commentaire et à le ramener sur sa cellule de liaison.
Merci Denis
Merci beaucoup,
c'est excellent !
Denis
Salut Denis,
Voici une suggestion :
Sélectionne une plage quelconque contenant ou non
des commentaires et lance cette macro :
Sub Ajuster_Positions_Des_Commentaires()
Dim c As Range
On Error Resume Next
For Each c In Selection.SpecialCells(xlCellTypeComments)
c.Comment.Shape.Left = c.Left + c.Width + 10
c.Comment.Shape.Top = c.Top - 10
Next c
End Sub
Serge
"DENIS" <DENIS@discussions.microsoft.com> a écrit dans le message de news: 1080EFC7-FE39-448F-AF7A-C0BAA22F9AB4@microsoft.com...
Bonjour à tous,
Est-il possible de faire retrouver la place d'origine à des commentaires ?
J'ai ajouté, déplacé, effacé des colonnes d'un tableau mais tous les
commentaires sont maintenant très loin de leurs cellules, seulement reliés
par un fil.
Cela revient à selectionner commentaire par commentaire et à le ramener sur
sa cellule de liaison.
Voici une suggestion : Sélectionne une plage quelconque contenant ou non des commentaires et lance cette macro :
Sub Ajuster_Positions_Des_Commentaires() Dim c As Range On Error Resume Next For Each c In Selection.SpecialCells(xlCellTypeComments) c.Comment.Shape.Left = c.Left + c.Width + 10 c.Comment.Shape.Top = c.Top - 10 Next c End Sub
Serge
"DENIS" a écrit dans le message de news:
Bonjour à tous,
Est-il possible de faire retrouver la place d'origine à des commentaires ? J'ai ajouté, déplacé, effacé des colonnes d'un tableau mais tous les commentaires sont maintenant très loin de leurs cellules, seulement reliés par un fil. Cela revient à selectionner commentaire par commentaire et à le ramener sur sa cellule de liaison.