Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel excel 2007 : commentaires récalcitrants ....

excel 2007 : commentaires récalcitrants ....

2 réponses
Avatar
Alfred WALLACE
Bonjour,
j'ai un soucis avec les commentaires dans les cellulles,
et j'aimerai que ceux ci restent "fig=E9s" l=E0 o=F9 je les place,
avec la taille que je d=E9termine (a la main)....

j'ai essayer avec le "format" des commentaires pour que
ceux-ci ne se d=E9placent pas en fonction de la taille des lignes/
colonnes
mais, cel=E0 ne semble pas fonctionner.

est ce que, par vba, je peux faire une boucle sur tous les
commentaires
d'une feuille, pour leur attribuer une caract=E9ristique ?

Merci pour votre aide.

Jos=E9
Signaler un problème avec ce contenu

2 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
DanielCo
Bonjour,

Tu peux utiliser ceci, en mettant les valeurs que tu veux :

Sub test3()
Dim c As Comment
For Each c In ActiveSheet.Comments
c.Shape.Height = 50
c.Shape.Width = 50
Next c
End Sub

Cordialement.
Daniel


Bonjour,
j'ai un soucis avec les commentaires dans les cellulles,
et j'aimerai que ceux ci restent "figés" là où je les place,
avec la taille que je détermine (a la main)....

j'ai essayer avec le "format" des commentaires pour que
ceux-ci ne se déplacent pas en fonction de la taille des lignes/
colonnes
mais, celà ne semble pas fonctionner.

est ce que, par vba, je peux faire une boucle sur tous les
commentaires
d'une feuille, pour leur attribuer une caractéristique ?

Merci pour votre aide.

José
Avatar
MichD
Bonjour,

Une approche, tu copies ce qui suit dans le module feuille où l'action se déroule

'Déclaration de la variable dans le haut du module
Dim M As String
'----------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If M <> "" Then Range(M).Comment.Visible = False
If Not Target.Comment Is Nothing Then
If Target.Comment.Visible Then
Target.Comment.Visible = False
Else
ActiveCell.Comment.Visible = True
Target.Comment.Shape.Top = Target.Top
Target.Comment.Shape.Left = Target.Left + 200
Target.Comment.Shape.Height = 78
Target.Comment.Shape.Width = 80
End If
M = Target.Address
Else
M = ""
End If
End Sub
'----------------------------------


MichD
--------------------------------------------
"Alfred WALLACE" a écrit dans le message de groupe de discussion :


Bonjour,
j'ai un soucis avec les commentaires dans les cellulles,
et j'aimerai que ceux ci restent "figés" là où je les place,
avec la taille que je détermine (a la main)....

j'ai essayer avec le "format" des commentaires pour que
ceux-ci ne se déplacent pas en fonction de la taille des lignes/
colonnes
mais, celà ne semble pas fonctionner.

est ce que, par vba, je peux faire une boucle sur tous les
commentaires
d'une feuille, pour leur attribuer une caractéristique ?

Merci pour votre aide.

José