Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

COMMENTAIRE : les rapprocher de la cellule

6 réponses
Avatar
jean-paul.bataille
Bonjour,

Apr=E9s moult travaux sur un fichier EXCEL, les commentaires attach=E9s
aux diverses cellules sont dispers=E9s dans toute la feuille.

Comment faire -VB ou autre- pour les rapprocher de leur cellule
d'appartenance ?


Remerciements anticip=E9s,
JPB

6 réponses

Avatar
anonymousA
Bonjour,

un exemple avec un commentaire en cellule D10. Ici le commentaire
lorsque affiché en permanence, sera situé au bord à gauche et en
haut de la cellule à droite de celle qui abrite le commentaire

Dim cm As Comment
Set cm = Range("D10").Comment
With cm.Shape
.Left = cm.Parent.Offset(0, 1).Left
.Top = cm.Parent.Offset(0, 1).Top
End With

Si tu as plusieurs cellules avec un commentaire

for each cm in activesheet.Comments
With cm.Shape
.Left = cm.Parent.Offset(0, 1).Left
.Top = cm.Parent.Offset(0, 1).Top
End With
next

A+
Avatar
jean-paul.bataille
Merci ça fonctionne,

Et pour mettre à une taille donnée le cadre du commentaire ?

Comment insérer ceci dans la boucle WITH ENDWITH en cas de plusieurs
cellule
Range("c392").Comment.Shape.Height = 150
Range("c392").Comment.Shape.Width = 250

Pour formater le texte à l'intérieur du cadre ?
Avatar
jean-paul.bataille
Merci ça fonctionne,

Et pour mettre à une taille donnée le cadre du commentaire ?

Comment insérer ceci dans la boucle WITH ENDWITH en cas de plusieurs
cellule
Range("c392").Comment.Shape.Height = 150
Range("c392").Comment.Shape.Width = 250

Pour formater le texte à l'intérieur du cadre ?
Avatar
jean-paul.bataille
Merci ça fonctionne,

Et pour mettre à une taille donnée le cadre du commentaire ?

Comment insérer ceci dans la boucle WITH ENDWITH en cas de plusieurs
cellule
Range("c392").Comment.Shape.Height = 150
Range("c392").Comment.Shape.Width = 250

Pour formater le texte à l'intérieur du cadre ?
Avatar
anonymousA
for each cm in activesheet.Comments
With cm.Shape
.Height = 150
.Width = 250
.Left = cm.Parent.Offset(0, 1).Left
.Top = cm.Parent.Offset(0, 1).Top
End With
next

A+
Avatar
michdenis
Bonjour Jean-Paul,

En supposant que la cellule A1 contient déjà un commentaire :


With Range("A1").Comment.Shape.OLEFormat.Object
.Font.Name = "Arial"
.Font.Size = 14
.Font.Bold = True
.Font.ColorIndex = 2
End With


Salutations!




a écrit dans le message de news:
Bonjour,

Aprés moult travaux sur un fichier EXCEL, les commentaires attachés
aux diverses cellules sont dispersés dans toute la feuille.

Comment faire -VB ou autre- pour les rapprocher de leur cellule
d'appartenance ?


Remerciements anticipés,
JPB