Discussion :

[amorapa]

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

[Pierre Fauconnier]

Salut.

[...]

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

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

[HopPopPop]

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

[Invité]

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!

[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 :

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

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

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

[amorapa]

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

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 :

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

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

[Pierre Fauconnier]

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

[amorapa]

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

[HopPopPop]

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

[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.

[Pierre Fauconnier]

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

[amorapa]

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

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 :

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

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

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

[HopPopPop]

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

Code :

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

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.

[amorapa]

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