Barre de défilement - Macro pour gérer la valeur max

Bonjour,

je cherche une macro qui puisse gérer la valeur max, rattachée à une cellule liée.

Pour être plus clair,

J'ai des données qui défile avec ma barre de défilement.
Mais, je peux avoir 20 lignes de données ou 300 lignes.

Mon idée est de déterminer dans une cellule liée, le nombre de lignes de donnée.

Et la macro détermine la valeur max avec cette valeur liée.



Merci à vous d'avance pour votre aide

Salut.

Citation:

---

Envoyé par amorapa

[...]

J'ai des données qui défile avec ma barre de défilement.
[...]

---

C'est quoi, ta barre de défilement?

Bonsoir à tous,
Si tu parles de cellule liée, je pense que ta barre de défilement est un contrôle formulaire, la valeur est fixée dans ses propriétés et ne peut pas être changée par macro je crois.
Il serait bon de le remplacer par un contrôle ActiveX et là c'est possible par la propriété ScrollBar1.Max

Si HopHopHop a vu juste avec la barre de défilement, tu peux t'inspirer de ce code, qui suppose que tu aies une barre de défilement appelée "ScrollBar1") sur la feuille active.

Code:

---

ActiveSheet.Shapes("ScrollBar1").DrawingObject.Max = Range("d1").Value

---

A toi d'adapter, par exemple en faisant compter le nombre de lignes à la macro ;)

Bonsoir,
Je rejoint Pierre sur la définition de barre de défilement.

De ce que j'en comprens on dirait un bandeau publicitaire ou le texte défile!

Citation:

---

Envoyé par Pierre Fauconnier

Salut.

C'est quoi, ta barre de défilement?

---

Merci pour vos réponses,

Je parle de la barre défilement de l'onglet développeur / insérer contrôle formulaire

Citation:

---

Envoyé par Pierre Fauconnier

Si HopHopHop a vu juste avec la barre de défilement, tu peux t'inspirer de ce code, qui suppose que tu aies une barre de défilement appelée "ScrollBar1") sur la feuille active.

Code:

---

ActiveSheet.Shapes("ScrollBar1").DrawingObject.Max = Range("d1").Value

---

A toi d'adapter, par exemple en faisant compter le nombre de lignes à la macro ;)

---

Je parle de la barre de défilement avec les contrôle formulaires.

Mais je ne comprend pas trop, la différence avec ce qu'on appelle active X.

Dans la barre de défilement normal (sans contrôle active x), on peut pourtant affecter une macro ?

Je cherche à pour voir gérer la valeur max

Merci

La ligne de code que je te donne manipule la barre de défilement des contrôles de formulaire. As-tu essayé?

Mais cela me met un message d'erreur.

Mais cette ligne de code est pour quelle barre de défilement

Sans controle X
ou controle X

Merci

C'est pour un contrôle de formulaire (donc PAS un ActiveX). C'est dit explicitement dans le message ;)

Ce serait intéressant que tu nous mettes le code d'erreur que tu reçois... As-tu bien adapté ton code en fonction de ta config? Si tu relis mon message, je t'y écris que tu dois adapter. Dès lors, cela dépend du nom que tu as donné à ton contrôle. L'as-tu renommé (c'est toujours mieux)? Si oui, as-tu adapté le nom dans le code que je t'ai donné? Es-tu sûr que la feuille qui contient le contrôle est bien la feuille active?

Plutôt que de poster ton fichier, poste ton code.

Peut-être en remplaçant "ScrollBar1" par "Barre de défilement 1" ?

Spécifie également ta version d'Excel stp...

Voici le code source pour ma barre de défilement avec ta ligne de code

Citation:

---

Envoyé par Pierre Fauconnier

C'est pour un contrôle de formulaire (donc PAS un ActiveX). C'est dit explicitement dans le message ;)

Ce serait intéressant que tu nous mettes le code d'erreur que tu reçois... As-tu bien adapté ton code en fonction de ta config? Si tu relis mon message, je t'y écris que tu dois adapter. Dès lors, cela dépend du nom que tu as donné à ton contrôle. L'as-tu renommé (c'est toujours mieux)? Si oui, as-tu adapté le nom dans le code que je t'ai donné? Es-tu sûr que la feuille qui contient le contrôle est bien la feuille active?

Plutôt que de poster ton fichier, poste ton code.

---

Mon code pour la barre de défilement

Code:

---

1 2 3

Sub Barrededéfilement2_QuandChangement() ActiveSheet.Shapes("ScrollBar1").DrawingObject.Max = Range("B3").Value End Sub

---

Ma cellule lié est B3

Voilà

Mais j'ai un message d'erreur avec plein de chiffres

Citation:

---

Envoyé par Pierre Fauconnier

Spécifie également ta version d'Excel stp...

---

Excel 2010

Le fichier avec le code et le message d'erreur
http://www.cjoint.com/c/ELgvcpvppeA

D'après ton fichier, il faut mettre :

Code:

---

ActiveSheet.Shapes("Barre de défilement 2").DrawingObject.Max = Range("G2").Value

---

Comme disait Pierre, il fallait adapter le nom de la barre de défilement ;
G2 est la valeur max de défilement ;
B3, la cellule liée est la valeur de la barre de défilement et non la valeur max.

Désolé d'être aussi nul en macro,

Mais, je fais l'effort ensuite de comprendre la solution que vous m'avez apporté.


Merci encore à tous