Bon lundi à tous,

qui pourrait m'informer de la manière d'adapter la hauteur (ou largeur) d'un segment en fonction de son contenu.

En fait diminuer la surface réservée au slicer en fonction de son remplissage. J'ai essayé ceci mais il m'indique une erreur "5 - Invalid procedure call or argument" .

Le code se trouve dans la section vba du sheet même.

Merci d'avance

Habiler

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AdapterTailleSlicer()
    Dim slicer As slicer
    Dim largeur As Double
    Dim hauteur As Double
 
    ' Nom du slicer à ajuster
    Set slicer = ThisWorkbook.SlicerCaches("Specialisatie").Slicers("Specialisatie")
 
    ' la largeur initiale du slicer
    largeur = 100
    hauteur = 10
 
    ' Ajustez la largeur en fonction du contenu
    slicer.AdjustColumnWidth = True
    slicer.ColumnWidth = largeur
 
End Sub