Taille commentaire automatique

[MARIE74]

Bonjour a toutes et a tous

Météo 2° léger nuage (regionMegeve)

Je souhaiterais que cette macro fonctionne automatiquement des que dans une cellule je fais clic droit « insérer un commentaire »

Merci de votre aide

Sub Comments_AutoSize()
Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In ActiveSheet.Comments
With MyComments
.Shape.TextFrame.AutoSize = True
If .Shape.Width > 300 Then
lArea = .Shape.Width * .Shape.Height
.Shape.Width = 200
' An adjustment factor of 1.1 seems to work ok.
.Shape.Height = (lArea / 200) * 1.1
End If
End With
Next ' comment
End Sub

(macro de Dana DeLouis)

D’avance merci

A+

 

[Hellboy]

Bonjour a tous

En insérant ce code directement dans le Module ThisWorkbook de ton fichier, je crois que ça va faire ce que tu souhaite:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In Sh.Comments
With MyComments.Shape
  .TextFrame.AutoSize = True
  If .Width > 300 Then
        lArea = .Width * .Height
      .Width = 200
' An adjustment factor of 1.1 seems to work ok.
      .Height = (lArea / 200) * 1.1
  End If
End With
Next MyComments ' comment
End Sub

Message édité par: Hellboy, à: 20/03/2006 10:10

Message édité par: Hellboy, à: 20/03/2006 10:24

 

[MARIE74]

Re a tous

Salut Hellboy

Merci pour cette reponse tres rapide

Mais probleme erreur d'execution 438
Propriete ou methode non geré par cet objet

lArea = .Width * .Shape.Height
cette ligne est surlignée en jaune par le debogueur

Peux tu y remedier

Merci A+

 

[Hellboy]

re

Oups, j'ai corrigé le code original.
Le lArea = .Width * .Shape.Height
est devenu
lArea = .Width * .Height

 

[MARIE74]

Re a tous

Re a toi Hellboy

OK tu a bien modifié cette ligne, le debogueur c'est calmé

Mais cette macro ne donne rien la taille du commentaire ne change pas automatiquement

Voila la macro modifiée

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim MyComments As Comment
Dim lArea As Long
For Each MyComments In Sh.Comments
With MyComments.Shape
.TextFrame.AutoSize = True
If .Width > 300 Then
lArea = .Width * .Height
.Width = 200
' An adjustment factor of 1.1 seems to work ok.
.Height = (lArea / 200) * 1.1
End If
End With
Next MyComments ' comment
End Sub

Désolée d'etre chi........e pour un lundi matin

Merci d'avance

 

[Hellboy]

re

Chez moi ça marche Nickel.
Ou as tu mis ce code ?
Tu peux joindre ton fichier s.v.p. ?

 

[MARIE74]

Re a tous

Re a toi Hellboy

J'ai mis cette macro dans ThisWorkBook

Effectivement cette macro fonctionne uniquement avec la fonction afficher le message, c'est a ce moment que la taille de l'affichage s'adapte

Est il possible de la faire fonctionner au moment de la frappe d'un texte

Regarde fichier joint


A+

 

[MARIE74]

Re a tous

oups!!!!

Perdu fichié

 

[MARIE74]

Re a tous

Bon fichier trop gros

Désolée

A=

 

[MARIE74]

Re a tous

Dernier essai pour fichier [file name=essaiMarie74.zip size=7433]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaiMarie74.zip[/file]

 

[Hellboy]

re

Effectivement cette macro fonctionne uniquement avec la fonction afficher le message, c'est a ce
moment que la taille de l'affichage s'adapte

Est il possible de la faire fonctionner au moment de la frappe d'un texte

1- Est ce qu'il y a déjà un message, ou le but est de l'ajouter au moment du click droit ou les deux ?

2- La frappe du texte ???? Dans le commentaire ?

 

[MARIE74]

Re a tous

Re a toi Hellboy

Je souhaite que cela fonctionne en saisie et/ou modification d'un commentaire .



Merci

A+


2- La frappe du texte ???? Dans le commentaire ?
La je ne saisie pas ton probleme

 

[Hellboy]

re

Oui ça doit ce faire, mais il n'existe pas de procédure évènementiel déjà toute faite pour accomplir ce que tu veut faire. Il faut en creer une, et la ça dépasse mes compétenses.

a+

 

[MARIE74]

Re a toute et a tous

Merci Hellboy

Ecoute pour l'instant je vais utiliser la macro comme elle est car elle me dépanne bien.

Prend ton temps pour voir avec d'autres crak du VBA et des que tu as une solus mais moi au courant.


Encore merci de ton aide


A+