[VBA] Aide pour bloquer taille LISTBOX

sou -  
lermite222 Messages postés 9042 Statut Contributeur -
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. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
        ListBox1.IntegralHeight = False
    5
  2. sou
     
    personne pour m'aider sur les zoom ? :'(
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    0
  4. sou
     
    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 :(
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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"
    0
  7. sou
     
    Bonjour,

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

    Comment faire ? :(

    Merci
    0
  8. sou
     
    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 :(
    0