Discussion :

[paf26]

Bonjour,

je cherche à comprendre comment je peux modifier une barre de défilement (scrollbar1) depuis une macro

exemple: je veux changer la valeur maximale à 1000 depuis ma macro du module 1.

j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms.ScrollBar1.Maximum=1000

(marche pas)
j'ai cru comprendre qu'il fallait utiliser une classe tabPage, mais je ne sais pas du tout commen m'y prendre, j'ai essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim oObj As Object
oObj = Forms.ScrollBar1
oObj.Maximum = 10

ainsi que de nombreuses tentatives..

Quelqu'un peut me venir en aide?


Merci

[mathspountz]

La propriété c'est max non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Userform1.ScrollBar1.Max=1000

Au lieu de Maximum

[paf26]

Tout d'abord merci pour ta réponse,
pour le Maximum, j'avais lu cela sur le site de microsoft:
https://msdn.microsoft.com/fr-fr/lib...vs.110%29.aspx

J'ai essayé ta proposition, il me dit variable non déclarée en surlignant l'userform.

après je suis pas un pro, mais je ne crois pas être dans un userform. Ma barre est directement dans la feuille de calcul... C'est d'ailleurs le soucis, j'avais déjà réussi pour un userform mais ce n'est pas le cas ici.

Bon je crois que je vais essayer de contourner mon problème en utilisant un userform

En attendant, je laisse le topic ouvert quelques jours si qqn a une idée

[paf26]

Bon, ben vu que personne d'autre ne répond je ferme, j'ai "contourné" le problème mais je n'ai pas réussi à faire ce que je voulais...

Je met résolu même si ce sujet ne l'est pas du tout

[GP78280]

Bonjour,
J'espère que tu as résolu ton problème
mathspountz a donné la solution pour un scrollbar dans une Userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Userform1.ScrollBar1.Max=1000

Si le scrollbar est dans l'onglet "Feuil1", il faut simplement le préciser à ton module: (testé)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

  Sheets("Feuil1").ScrollBar1.Max = 1000

Je viens de m'inscrire, j'espère que cela rendra service.
Désolé, je ne sais pas encore rentrer du code dans le message, mais cela viendra ...