XL 2016 Macro auto-redimensionner toutes les notes

V

ViroMajor

XLDnaute Nouveau

• 25 Mai 2019

• #16

Parcequ’actuellement, un commentaire ajouté manuellement commence toujours en gras et sans redimensionnement. Donc on les accumule ainsi, jusqu’à plus tard activer cette macro sur tous

Idéalement, à chaque fois qu’on en ajoute un nouveau manuellement, il serait efficace qu’il soit “corrigé” immédiatement.
En somme, ya-t’il un code qui pourrait détecter l’ajout manuel du dernier commentaire afin de le formater par macro ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Mai 2019

• #17

Re

Une piste à creuser (et à blinder sur les bords 😉)
Sur mon PC, cela fonctionne (mais c'est lent)

VB:

Option Explicit
Dim nbShp%
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static nbShp
Dim i%
i = Me.Shapes.Count
Application.EnableEvents = False
If i > nbShp Then
  With Me.Shapes(i)
      .TextFrame.AutoSize = -1
      .TextFrame.Characters.Font.Bold = 0
  End With
End If
Application.EnableEvents = True
nbShp = i
End Sub

A mettre dans le code de la feuille.

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 25 Mai 2019

• #18

Formidable, bravo 🙂 merci
ici, c’est super rapide (pourtant ma machine n’est pas un foudre de guerre)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Mai 2019

• #19

Re

Oui mais comme précédent dit, à l'usage avec cette macro telle quelle, tu risques d'avoir des surprises

Par exemple, insères une forme automatique (un rectangle au hasard)

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 25 Mai 2019

• #20

Je laisserai à d’autres cette joie. Comme j’appliqe toujours les mêmes éléments et design général à mes classeurs, je ne sors plus beaucoup des sentiers battus 🙂

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Mai 2019

• #21

Re

Il ne s'agit pas tant de sortir des sentiers battus.
Le problème est simplement ici
i = Me.Shapes.Count
i comptabilisera toutes les Shapes (et pas seulement les Commentaires) présents sur la feuille.

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 25 Mai 2019

• #22

Bien relevé ! bonne mise en garde

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Mai 2019

• #23

Re

Je me suis compliqué la tâche précédemment
Ci-dessous je me la simplifie 😉

VB:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Not Target.Comment Is Nothing Then
With Target.Comment.Shape.TextFrame
.AutoSize = -1: .Characters.Font.Bold = 0
End With
End If
Application.EnableEvents = True
End Sub

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 27 Mai 2019

• #24

Cette dernière mouture est sans effet ici

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mai 2019

• #25

Bonjour le fil,

Ma mouture ici sur mon PC n'est pas la dernière à produire son petit effet 😉

Testes sur une autre version d'Excel pour voir.

 

Vote positif 0 Vote négatif

V

ViroMajor

XLDnaute Nouveau

• 28 Mai 2019

• #26

Bien le bonjour Staple

Autant pour moi, en fait, il fait de l’effet à condition de le stimuler... il ne s’actionne que si on place le curseur de souris (en cliquant une fois) sur la cellule concernée, autrement non (passer la souris au-dessus de la case ne suffit pas)

Alors que l’ancien code lui s’actionne immédiatement (quand on a terminé le commentaire sans aucune manipulation supplémentaire), sans qu’on ait à lui donner aucun coup de cravache pour avancer !

Je préfère donc le 1er canasson, même s’il est moins polyvalent (risque de conflits avec certains objets)

 

Vote positif 0 Vote négatif