XL 2016 Macro auto-redimensionner toutes les notes

V

ViroMajor

XLDnaute Nouveau

• 12 Mai 2019

• #2

Oar auti-redimensionner, j’entends passer de ça



à ça



sans avoir à intervenir manuellement
tout partout...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2019

• #3

Bonjour


Ca devrait le faire, non ?

VB:

Sub cAutoSize()
Dim c As Excel.Comment
For Each ws In Worksheets
For Each c In ws.Comments
c.Shape.TextFrame.AutoSize = -1
Next c
Next ws
End Sub

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 12 Mai 2019

• #4

Bonjour Staple !

Pas qu’un peu, carrément 😉 merci

Du coup j’ai agrémenter de désengraissage, pour sa ligne, version frittes sans huile
c.Shape.TextFrame.Characters.Font.Bold = False

 

Dernière édition: 12 Mai 2019

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 12 Mai 2019

• #5

vu que trop facile, oermets moi de rajouter une question bonus version numéro complémentaire de tirage

La nouvelle mouture d’Excel me transforme tous les anciens commentaires en notes en rajoutant l’auteur en ligne tout en dessous du texte existant. Ce qui surcharge bêtement



y’aurait moyen de supprimer cette ligne “texte inutile” (en réalité, le nom par défaut de l’auteur)

en ça



Si jamais, ça m’enleverait une écharde du pieds...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2019

• #6

Re

Essaie la précédente macro ainsi modifiée

VB:

Sub cAutoSizeII()
Dim c As Excel.Comment
With Application
.ScreenUpdating = False
  For Each ws In Worksheets
    For Each c In ws.Comments
      c.Shape.TextFrame.AutoSize = -1
      c.Text VBA.Replace(c.Text, .UserName, vbNullString)
    Next c
  Next ws
End With
End Sub

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 12 Mai 2019

• #7

Merci ! Ca fonctionne si tant est que l’on paramètres le bon Username dans les options 😉
Est-ce possible en sus de supprimer la ligne (retour à la ligne) laissée vide là où le username est effacée ?
Après ça, je serais paré pour le grand ménage de printemps (de saison)
Merci encore. je pense que ce sera utile à d’autres...

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2019

• #8

Re

Oui, sans doute.
Tu n'as pas fait d'essais/recherches on your own dans ce sens... 😉

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 12 Mai 2019

• #9

Pas le réflexe d’utiliser l’enregistreur. Message entendu. Bouge pas, je vais t’épater 😉

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 12 Mai 2019

• #10

Et nan, j’arrive qu’au résultat en étant dépendant du texte initial (car il force le texte de l’exemple tout simplement)

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 12 Mai 2019

• #11

Si’il ya une ressource officielle ou “approuvée” de code / syntaxe VBA je suis preneur... codant un tout petit peu dans d’autres languages

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2019

• #12

Re

Il y a l'enregistreur et aussi le temps qui passe (les archives)
Ci-dessous 3ième version
(complétée avec une macro d'avril 2004 rédigée par le grand David McRitchie)

VB:

Sub cAutoSizeIII()
Dim c As Excel.Comment, NoNom$, X&
With Application
NoNom = LCase(.UserName) & ":" & Chr(10): X = Len(NoNom)
.ScreenUpdating = False
  For Each ws In Worksheets
    For Each c In ws.Comments
    If Left(LCase(c.Text), X) = NoNom Then c.Text Mid(c.Text, X + 1)
    c.Shape.TextFrame.AutoSize = -1
    Next c
  Next ws
End With
End Sub

NB: Il reste un petit défaut à cette 3ième macro (je te laisse trouver lequel 😉 )

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 25 Mai 2019

• #13

Bonjour, petite question

VB:

Sub cAutoSize()
Dim c As Excel.Comment
For Each ws In Worksheets
For Each c In ws.Comments
c.Shape.TextFrame.AutoSize = -1
c.Shape.TextFrame.Characters.Font.Bold = False
Next c
Next ws
End Sub

Plutôt qu’avoir à lancer cette macro manuellement suite à avoir manipulé de nouveaux commentaires, n’y-a-t’il pas moyen que l’auto-redimenssionnement et formatage se fasse automatiquement lors de l’ajout de chaque nouveau commentaire ? sinon, ça oblige à lancer cette macro agissant sur tout le classeur (peut prendre du temps à s’exécuter) de temps en temps. Pas optimal. Mieux vaudrait que ça se fasse au fur et à mesure

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Mai 2019

• #14

Bonjour le fil, Viromajor

Tu parles de commentaires créés manuellement ou par VBA?

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 25 Mai 2019

• #15

Hello Staple

Ceux (les notes nouvelle version, ou anciens commentaires) créés manuellement (un par un). Une fois terminés / contenu édité / “fermés“, idéalement il faudrait que la macro d’auto-redimenionnement / formatage se lance toute seule, mais juste appliquée à ce dernier commentaire précisément.

 

Vote positif 0 Vote négatif