Modifier la présentation feuille avec macro

Bonjour

je cherche a modifier la présentation de l'onglet mensuel qui contient des macros.

• agrandir la hauteur des lignes
• agrandir la hauteur des bulles d'informations pour voir tout le texte
• ajouter 2 mini calendriers mois M-1 et M en haut reprenant la période du PROGRAMME PROJET1
  • 

• ajouter un bouton exporter en pdf

Merci beaucoup pour votre aide

Bonjour,

pour la hauteur des lignes dans le code GraphMensuel :

'                If UBound(Ts, 1) > 3 Then
'                    .Rows(i + 4).RowHeight = 56 + ((UBound(Ts, 1) - 4) * 18)
'                End If
                .Rows(i + 4).RowHeight = 156

A ce moment là toutes les lignes auront 156 de hauteur peu importe le nombre de shape dessinés, du coup s'il y en a beaucoup certain ne seront pas visible ou ne seront plus sur la bonne ligne...

Pour la hauteur des shapes il faut modifier le "16" dans la procédure "Histo" afin d'agrandir en hauteur :

    With ActiveSheet
        Set sh = .Shapes.AddShape(msoShapeRoundedRectangle, L, T, W, 16)

Là encore vous modifierez en dur les données donc plus d'ajustement, ou alors il faut remplacer le 16 par une valeur calculée fonction du nombre de ligne à afficher.

Pour le reste je laisse la main.

Sinon pour ces deux points vous pouvez vous renseigner auprès de Pierre56...

@ bientôt

LouReeD