Ajuster la Position et la Dimension des Notes

Solutions Développées sous VBA
Verrouillé
admin
Site Admin
Site Admin
Messages : 237
Enregistré le : 04 oct. 2020, 20:48
Contact :

Ajuster la Position et la Dimension des Notes

Message par admin »

~ ~ ~ ~ ~ ~ ~ ~
Vous voulez restaurer le positionnement des notes (commentaires) et adapter leur taille à leur contenu.

La solution est ici: Ajuster_Notes (clic-droit, enregistrer sous)

Mode d'emploi:
  • Intégrer la source fournie dans votre code
    • /!\ Attention, il vous faudra également Exploser utilisé dans cette version plus rapide.
  • Faire l'appel à la fonction : Ajuster_Notes (Opt. LaLargeur, Opt. LOnglet)
    • Call Ajuster_Notes() :
      • Ajustement sur une largeur de 150 (~5,3 cm) par défaut.
    • Call Ajuster_Notes(100) :
      • Ajustement sur une largeur de 100 (~3,52 cm)
    • résultat = Ajuster_Notes(LaValeur, LeRange, LeType:="NumCol", PasdInfo:=true) :
      • résultat contiendra le numéro de la colonne répondant au critère;
      • sinon : la valeur 0.
    • Call Ajuster_Notes(0, ThisWorkbook.Sheets("Feuil1")) :
      • Ajustement sur une largeur adaptée au contenu sur l'onglet Feuil1 du Fichier "macros".
    • Call Ajuster_Notes(LOnglet:=Workbooks("Fichier.xlsm").Sheets("Base")) :
      • Ajustement sur une largeur de 150 (~5,3 cm) par défaut dans l'onglet "Base" de "Fichier.xlsm".
  • Où :
    • LaLargeur = Entier optionnel permettant de fixer la largeur de la note (150 par défaut et 0 = adapté au contenu)
    • LOnglet = Feuille de Travail où l'ajustement doit être fait (Feuille active par défaut)
Suivi des évolutions:
  • 2009.10.26 (v1.00) : Création initiale, repositionne toutes les notes ajustées au contenu
  • 2012.01.14 (v1.10) : Possibilité d'imposer une largeur, la hauteur dépend du contenu
  • 2021.03.19 (v1.20) : Possibilité de fournir l'onglet à traiter
  • 2022.01.26 (v1.21) : Utilisation de la fonction exploser pour gagner 30% de temps d'exécution

Une remise en forme des notes (commentaires) rapide et adaptable...
Modifié en dernier par admin le 08 oct. 2021, 14:42, modifié 2 fois.
Verrouillé