Autofit cellules fusionnées
p
Bonjour tout le monde,
Je viens vers vous avec un petit code pour faire un autofit sur les hauteurs de cellules fusionnées.
Mon fichier marche déjà mais n'est pas optimal. (voir pièce-jointe)
Dans le code j'ai 2 problèmes que je n'arrive pas à comprendre (j'ai fait une magouille pour contourner les problèmes sur le fichier):
- je veux connaitre la largeur totale des colonnes des cellules fusionnées et ce code ne marche pas:
Si je ne peux pas utiliser cette fonction simple, y a t'il une autre solution?
- si je supprime un ligne à la fin du code, la hauteur de plage devient énorme. Pouvez-vous l'expliquer? (voir hauteur de la plage "C11:E11" en ouvrant le fichier.
"
Si vous ne comprenez pas qqc sur mon fichier, n'hésitez pas à demander.
merci bien
p
Bonjour,
la solution est de ne pas fusionner ...
P.
p
Bonjour,
la solution est de ne pas fusionner ...
Function NbCells(Plage As Range) NbCells = Plage.MergeArea.Count End Function Function Largeurfusion(Plage As Range) Dim a&, c&, lar& a = Plage.MergeArea.Count For Each c In Plage.MergeArea lar = c.ColumnWidth + lar Next Largeurfusion = lar End FunctionP.