VBA liée la scrollbar à un label

Fermé
Pouloupe - 2 nov. 2010 à 11:13
cousinhub29 Messages postés 1046 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 14 avril 2025 - 3 nov. 2010 à 09:30
Bonjour, voici mon problème j'ai dans un UserForm1 un label : "condition" qui contient du texte qui dépasse en longueur ma fenêtre. donc j'ai placer une scrollbar1 a coté.
Voici le code : 

Private Sub UserForm1_Initialize()
 With ScrollBar1
        .Min = 0 'Valeur mini
        .Max = 100 'Valeur maxi
        
        'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
        'clique entre le curseur de défilement et la flèche de défilement.
        .LargeChange = 10
        
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle ScrollBar
        '(La valeur par défaut = 1)
        .SmallChange = 5
    End With

End Sub

Private Sub ScrollBar1_Change()
condition = Scollbar1.Value
End Sub


J'ai une erreur avec condition = Scollbar1.Value

Pouvais vous me dire ce qui ne va pas. Je copie l'exemple de la doc mais impossible de faire marcher cette barre de défilement;

A voir également:

6 réponses

Réponse 1 / 6
cousinhub29 Messages postés 1046 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 14 avril 2025 359
2 nov. 2010 à 11:27
Bonjour,

J'ai bien peur que ce que tu désires faire ne soit pas réalisable, via un scrollbar ou autre

Ton label va prendre la valeur de la scrollbar, et non pas descendre ou monter...

Pour réaliser ce que tu veux, je te conseille une ListBox (avec propriété Enabled à false...)

bonne journée
0
Réponse 2 / 6
Caûpcin
2 nov. 2010 à 17:49
Si tu pouvais détailler car j'ai essayer plein chose et aucune ne marche.

C'est une catastrophe, je comprend pas qu'il n'ai pas prévu quelque chose.
Donc si quelqu'un à une piste!!
0
Réponse 3 / 6
Lupin
2 nov. 2010 à 20:32
Bonjour,

Suggestion,

Ce n'est pas parfait, mais je crois que c'est le résultat souhaité.

Reste à faufiner, compter le nombre de caractères dans le label
le diviser par ligne et conserver ces informations dans une structure
et adapter le code. 


Option Explicit
'

Private Sub cmdQuitter_Click()
    Unload Me
End Sub
'

Private Sub UserForm_Initialize()
 
    With ScrollBar1
        .Min = 0 'Valeur mini
        .Max = 280 'Valeur maxi
        
        'Spécifie la distance de déplacement intervenant lorsque l'utilisateur
        'clique entre le curseur de défilement et la flèche de défilement.
        .LargeChange = 20
        
        'Spécifie le déplacement se produisant lorsque l'utilisateur clique sur
        'les flèches de défilement dans le contrôle ScrollBar
        '(La valeur par défaut = 1)
        .SmallChange = 5
    End With

End Sub
'

Private Sub ScrollBar1_Change()

    Dim Longueur As Long
    Dim Ligne As Long
    
    Longueur = Len(Condition)
    Ligne = ScrollBar1.Value
    Condition = Mid$(Condition, Ligne)

End Sub


Lupin
0
Réponse 4 / 6
Caûpcin
3 nov. 2010 à 08:54
Coucou j'ai galérer mais j'ai trouver plus simple: 

Private Sub UserForm_Initialize()

TextBox1.Locked = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.MultiLine = True
TextBox1.WordWrap = True
TextBox1.Text = "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp" & vbCrLf & "ppppppppppppppppppppppppppppppppppppppppp"


End Sub
0

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

Posez votre question
Réponse 5 / 6
Caûpcin
3 nov. 2010 à 08:56
Merci de vos réponse les gars. Bonne continuation;
0
Réponse 6 / 6
cousinhub29 Messages postés 1046 Date d'inscription mardi 10 août 2010 Statut Membre Dernière intervention 14 avril 2025 359
3 nov. 2010 à 09:30
Re-,

Effectivement, un TextBox faisait aussi bien l'affaire qu'une ListBox comme je l'avais suggéré...

tant mieux si tu as ce qu'il te faut

Bonne journée
0