








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".
- Call Ajuster_Notes() :
- 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)
- 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...