Discussion :

[HABILER]

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

[EricDgn]

Bonjour,

Quelque chose de ce genre?

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
18
19
20
Option Explicit
 
Sub Adjust_Slicers()
    Dim sc As SlicerCache, sl As Slicer, slItem As SlicerItem
    Dim nCar As Integer, nItem As Integer
    For Each sc In ActiveWorkbook.SlicerCaches
        For Each sl In sc.Slicers
            'Debug.Print sl.Caption, sl.Parent.Name, sl.RowHeight, sl.Height, sl.ColumnWidth, sl.Width
            nCar = 0
            nItem = 0
            For Each slItem In sc.SlicerItems
                nItem = nItem + 1
                nCar = IIf(Len(slItem.Value) > nCar, Len(slItem.Value), nCar)
                'Debug.Print nItem, nCar, slItem.Value
            Next
            sl.Height = (nItem + 1) * sl.RowHeight * 1.2
            sl.Width = 32 + nCar * 4
        Next sl
    Next sc
End Sub

Cordialement.

[HABILER]

Bonjour,

Oui qq dans ce genre mais adaptable au slicer mëme. en fait sur les 4 que j'ai à l'écran 2 ont jusqu'à § rangée et mes données n'apparaissent pas à l'écran.
Les données vides ne sont pas affichées et je voudrais supprimer les blancs laissés par les "vide" de données.

C'est possible?

Merci d'avance

Habiler

[EricDgn]

Désolé, je ne saisis pas le problème. Une image me le permettrait sans doute.
Cordialement.