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
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+
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
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+
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 ?
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
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 ?
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 ?
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
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 ?
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 ?
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
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 ?
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+
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
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+
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
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!
<jean-paul.bataille@cegetel.fr> a écrit dans le message de news: 1137499741.289250.219210@g44g2000cwa.googlegroups.com...
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 ?