Erreur 1004:autosize commentaire

[jeromeN95]

Bonjour,

J'ai récuperer ce bout de code :

Sub Ajust_Commentaires()
  Dim Wks As Worksheet, Cmt As Comment
  For Each Wks In Worksheets
    For Each Cmt In Wks.Comments
 Cmt.Shape.OLEFormat.Object.AutoSize = True
      With Cmt.Shape.OLEFormat.Object.Font
        .Name = "Tahoma"
        .Size = 14
    End With
      Cmt.Shape.OLEFormat.Object.ShapeRange.Fill _
      .ForeColor.SchemeColor = 42
    Next Cmt
  Next Wks
 End Sub

Il permet de changer la taille, la police, ... des commentaires.
Or chez moi il ne le fait pas.

J'ai une erreur d'execution 1004 : Impossible de définir la propriété autosize de la classe texbox.

Je précise que j'ai des Textbox directement sur la feuille.

Merci a tous et bonne fêtes des pères à tous !

 

[JNP]

Re : Erreur 1004:autosize commentaire

Re 🙂,
Ça faisait longtemps 😛...
Bon, ton code fonctionne chez moi, même avec un ActiveX TextBox dans la feuille 🙄...
Mets éventuellement un fichier test pour vérifier, mais ça ne m'étonerait pas que ce code soit du 2007 non compatible avec 2003 😱...
Bon dimanche 😎

 

[jeromeN95]

Re : Erreur 1004:autosize commentaire

Ha, maince alors. :-(
Puff, tu as pas un bout de code dans tes archives qui aumente a 14 la police des commentaires par Hazard??

Attend, non, il fonctionne si j'enleve les textbox!

Une explication herelok?

 

[JNP]

Re : Erreur 1004:autosize commentaire

Re 🙂,
Comme je le disais, mets un bout de fichier qui merde, qu'on puisse tester 🙄...
A + 😎

 

[jeromeN95]

Re : Erreur 1004:autosize commentaire

Celui du #1 fonctionne en partie, car il me change la couleur de fond...