Modifier valeur min et max d'une scrollbar par VBA Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
quentinmgt
Membre fidèle
Membre fidèle
Messages : 162
Appréciation reçue : 1
Inscrit le : 1 août 2018
Version d'Excel : Office 365

Message par quentinmgt » 9 avril 2019, 14:14

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 !
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'124
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 9 avril 2019, 14:26

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
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Avatar du membre
quentinmgt
Membre fidèle
Membre fidèle
Messages : 162
Appréciation reçue : 1
Inscrit le : 1 août 2018
Version d'Excel : Office 365

Message par quentinmgt » 9 avril 2019, 16:46

Sérieusement.... ::)

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

merci à toi
Avatar du membre
quentinmgt
Membre fidèle
Membre fidèle
Messages : 162
Appréciation reçue : 1
Inscrit le : 1 août 2018
Version d'Excel : Office 365

Message par quentinmgt » 9 avril 2019, 22:50

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

La ligne désigné :
Barrededéfilement1.Min = Range("O2")
merci d'avance
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'124
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 10 avril 2019, 08:16

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... :|
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Avatar du membre
quentinmgt
Membre fidèle
Membre fidèle
Messages : 162
Appréciation reçue : 1
Inscrit le : 1 août 2018
Version d'Excel : Office 365

Message par quentinmgt » 10 avril 2019, 08:52

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")
demo Ausecour.xlsx
(14.36 Kio) Téléchargé 7 fois
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'124
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 10 avril 2019, 09:20

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:
Copie de demo Ausecour.xlsm
(21.45 Kio) Téléchargé 12 fois
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Avatar du membre
quentinmgt
Membre fidèle
Membre fidèle
Messages : 162
Appréciation reçue : 1
Inscrit le : 1 août 2018
Version d'Excel : Office 365

Message par quentinmgt » 10 avril 2019, 11:05

Super, c'est ce qu'il me manquais! merci beaucoup ! :mrgreen: :mrgreen:
Avatar du membre
Ausecour
Passionné d'Excel
Passionné d'Excel
Messages : 3'124
Appréciations reçues : 346
Inscrit le : 31 mai 2018
Version d'Excel : 2010 FR, 2013 FR

Message par Ausecour » 10 avril 2019, 11:44

Re,

De rien :) merci d'avoir passé le sujet en résolu :bien:
Plus un sujet a un titre précis, des explications claires, et un fichier Excel bien préparé, plus il a de chances d'avoir une réponse qui répond au besoin, mettez toutes les chances de votre côté :bien:
"100% des gagnants auront tenté leur chance" :trfl:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message