Modifier valeur min et max d'une scrollbar par VBA

Bonjour le forum,

J'aimerai pouvoir définir les valeurs MIN et MAX d'une ScrollBar en fonction de la valeur de :

O2 = MIN

O3 = MAX

dans ce principe :

Sub Barrededéfilement1_QuandChangement()

            Barrededéfilement1.Min = "O2"
            Barrededéfilement1.Max = "O3"
End Sub

Mais je ne sais pas écrire le code que correspond réellement à ma demande.

Merci d'avance !

Bonjour,

Dommage tu n'es pas loin de la solution!

Sub Barrededéfilement1_QuandChangement()
    Barrededéfilement1.Min = Range("O2")
    Barrededéfilement1.Max = Range("O3")
End Sub

Sérieusement....

Bon beh la prochaine fois je me taperai sur les doigts pour une erreur pareil

merci à toi

Je viens d'essayer, et la macro ne fonctionne pas.

La ligne désigné :

Barrededéfilement1.Min = Range("O2")

merci d'avance

Bonjour,

Je ne vois que 2 erreurs possibles:

Le nom de ton contrôle n'est pas bon et n'est donc pas recconu

Ou la valeur dans O2 n'est pas un nombre

Malheureusement sans savoir quel message d'erreur VBA t'affiche et sans voir le classeur, je ne peux pas faire plus que ces hypothèses...

En effet la valeur n'est pas un nombre, c'est une cellule.

Je t'envoi ce fichier exemple afin que tu puisse y voir plus claire.

- Erreur n°424 "Objet requis"

- Ligne désigné

Barrededéfilement1.Min = Range("C2")
13demo-ausecour.xlsx (14.36 Ko)

Bonjour,

Le problème vient du type de contrôle, tu as voulu utiliser un contrôle de formulaire, alors qu'il fallait choisir un contrôle ActiveX, j'ai changé le type de contrôle et mis du code sur l'évènement Change de ce contrôle et ça fonctionne

Voici le fichier en retour:

Super, c'est ce qu'il me manquais! merci beaucoup !

Re,

De rien merci d'avoir passé le sujet en résolu

Bonjour,

J'ai le même problème ! Sauf que je n'utilise pas une ScrollBar mais plutôt les flèches verticales de la ListBox.

J'ai une ListBox au niveau de mon UserForm et je veux que les flèches de haut et de bas inversent leur rôles.

Actuellement, quand j'appuie sur la flèche d'en haut, au lieu d'incrémenter ma valeur, elle passe à la cellule précédente (càd : valeur décrémentée), et inversement pour la flèche d'en bas.

Y'a une solution d'envisageable : Inverser le contenu des cellules (mais ça serait moche).

Help please !

Private Sub UserForm_Initialize()

    ' Liste Nb Sources
    Me.ListBox18.Min= 6 '(ou Range("D9"))
    Me.ListBox18.Max= 1 '(ou Range("D4"))
    Dim NbSources As Range
    For Each NbSources In ws.Range("D4:D9")
        With Me.ListBox18
            .AddItem NbSources.Value & " min"
        End With
    Next NbSources

    For Each NbSources In ws.Range("D4:D9")
        With Me.ListBox19
            .AddItem NbSources.Value & " max"
        End With
    Next NbSources

'... suite du code

End Sub

J'ai même essayé au niveau du code spécifique de ma ListBox comme ci-dessous, mais en vain :

Private Sub ListBox18_Change()
        ListBox18.Min = Range("D9")
        ListBox18.Max = Range("D4")
End Sub
Rechercher des sujets similaires à "modifier valeur min max scrollbar vba"