[VBA] Aide pour bloquer taille LISTBOX

Bonsoir,

je suis actuellement sur un projet VBA,
Tout se passe à merveille (d'ailleurs remerciement particulier a polux pour son assistance sur mon dernier problème)

Je rencontre un problème assez bizarre sur Vba, j'ai intégré le calendrier VBA (que l'on peut ajouter à travers l'onglet développeur), le problème est que ce calendrier change tout le temps de taille, en effet, je peux avoir des fois pour la même taille un zoom sur 21jours (au lieu des 30) ou des fois avoir un calendrier en tout petit.
Comment faire pour locker la taille ?

Je rencontre un problème aussi dans ma listbox, en effet suivant la longueur du nom que j'ajoute, ma listbox choisira de se rétrécir ou non, le problème étant que si le nom suivant est long, la listbox ne changera pas de taille, il faudrait donc que je puisse locker la taille de maniere définitive.

Bien sur, je suis intervenu dans les propriétés, mais rien !
J'ai même intégré un zoom, a l'ouverture du workbook mais ça n'a pas marché.

Je vous remercies par avance de votre aide

8 réponses

  1. Contributeur
        ListBox1.IntegralHeight = False
    1. J'ai trouvé pour le calendar , vu qu'il est en premiere colonne, elle est coupé par la bare des ordonnées ( je l'ai donc déplacé en 3e colonne pour avoir de la place)

      En revance pour la listbox j'ai toujours le même probleme... des que je choisis mes personnes la listbox grandi ou rétrécie :(
      1. Bonjour,

        Hélàs non ça ne change rien ...

        Comment faire ? :(

        Merci
        1. Contributeur
          Non, il n'y a rien dans ce code qui redimentionne le calendrier.
          Mais plutôt que de faire ça, tu devrais sélectionner,
          "Déplacer sans dimentionner avec les cellules"
          1. Bonjour,
            Merci pour ta réponse

            Malheuresement j'ai déjà opérer dans Contrôle>>Format de controle>>Propriétés, jy ai locker "lock aspect ratio" mais ça ne change rien.

            J'ai un doute sur le code de ce contrôle, c'est les seules lignes dans mon code que j'ai copié collé
            Private Sub Worksheet_Selectionchange(ByVal Target As Range)
            If Target.Cells.Count > 1 Then Exit Sub
            If Not Application.Intersect(Range("A23,E23"), Target) Is Nothing Then
            Calendar1.Left = Target.Left + Target.Width - Calendar1.Width
            Calendar1.Top = Target.Top + Target.Height
            Calendar1.Visible = True
            Calendar1.Value = Date
            ElseIf Calendar1.Visible Then Calendar1.Visible = False
            End If
            End Sub

            Need Help :(
            1. Contributeur
              Bonjour,
              C'est un contrôle "Calendar" ?
              Clic droit sur le contrôle >> Format de contrôle >> Propriétés. Et voir ce qui est cocher. Idem pour ta liste.
              A+