VBA créer label avec un ascenseur verticale

Pouloupe -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour, tout est dans le titre je n'arrive pas à crée un label avec un ascenseur verticale.

Sous Excel.

8 réponses

  2. Pouloupe
     
    Personne ne sais comment il faut faire? j'ai vraiment besoin d'aide SVP.
    0
  4. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,
    3 Up!!! ça doit être urgent...
    Réponse 1 : Il me semble que ça n'est pas possible. J'en veux pour preuve que la propriété "ScrollsBar" n'est pas disponible pour ce type de contrôle...
    Réponse 2 (qui en fait est une question) : C'est pour faire quoi? Je demande car il y a certainement une solution alternative à l'utilisation du label...
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Pouloupe
     
    je viens de trouver la solution, et c'est d'une stupidité affligeante mais je suis désoler je débute en VBA.

    Donc ce qu'il faut faire c'est rajouter une barre de défilement que l'on trouve simplement dans la barre d'outils a coté de son label

    Par contre je sais pas encore comment les lié la barre et le label. Quand j'aurais trouver je mettrai ma solution et je marque comme résolu. ;-)

    A plus cordialement.
    0
  7. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Qu'y a-t-il dans ton label, une image ? du texte ?
    Pour du texte, mettre un autre label dans le premier et lier sont top à la valeur du scroll.
    Idem pour une image mais avec une PictureBox.
    A+
    L'expérience instruit plus sûrement que le conseil. (André Gide)
    Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
    0
  8. Pouloupe
     
    salut bon je bloque encore au même point je n'arrive pas lier ma scrollbar à mon label.

    Je penser mettre :
    ControlSource= "nom_du_label" mais il n'accepte pas (valeur de propriété non valide)

    Si quelqu'un sait comment faire.
    0
  9. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Pas possible de faire avec des labels, il faut un container.
    Exemple avec une image : Une Frame, DANS la frame une picturebox
    la frame DOIT être plus petite que la pictureBox.
    Un Ascensseur verticale et un horizontal
    Le code... 
    Private Sub ScrollBar1_Change()
    Image1.Top = -ScrollBar1.Value
End Sub

Private Sub ScrollBar2_Change()
    Image1.Left = -ScrollBar2.Value
End Sub

Private Sub UserForm_Initialize()
    ScrollBar1.Max = Image1.Height - Frame1.Height
    ScrollBar2.Max = Image1.Width - Frame1.Width
End Sub

    Si c'est du texte tu peu remplacer Image1 par un label.

    A+
    PS: Prochaine fois que l'ont te pose des questions aie au moins la décense d'y répondre, c'est bon que je suis dans un bon jour que je t'ai répondu.
    0