Valeur de la barre de défilement multipliée par la valeur d’une variable

Je veux remercier les membres de developpez.com pour leur aide précieux je revins avec une autre question cette fois alors voilà mon problème :

-Les valeurs de la variable ENT proviennent d’un filtre automatique lié à des comobox en cascade. A chaque fois que la variable prend une valeur cette dernière est attribuée à la première cellule vide de la plage I4 à I15

-La cellule liée à la barre de défilement est A1

Question : Est-ce qu’il y a une proposition de macro qui permet de récupérer la valeur de la cellule "I4" (par exemple) puis de la multiplier par la valeur de la barre de défilement "A1" ensuite la ré-afficher le résultat dans la même cellule "I4". De telle façon qu’à chaque fois que je déplace la barre de défilement la valeur de I4 change.
NB : la valeur de I4 n’est pas fixe elle est variable (Fichier en pièce jointe)Pièce jointe 169688

Bonjour, l'énoncé n'est pas très clair, un petit bout de code au cas où.

Code:

---

1 2 3 4 5 6 7

Sub Barrededéfilement5_QuandChangement() Dim i As Byte i = 2 For i = 4 To 15 Sheets("feuil1").Range("i" & i) = Sheets("feuil1").Range("i" & i) * Sheets("feuil1").Range("a1") Next End Sub

---

:help:

Merci WOLF ,

C'est très gentil de votre part, je vais m'expliquer davantage, j'ai le contenu d'une cellule qui varie à chaque fois que ma variable prend une valeur, je veux récupérer cette valeur, la multiplier par la valeur de barre de défilement et la réafficher dans la même cellule de la valeur initiale de ma variable (travailler sur le contenu de la même cellule).
Je me suis inspiré de votre proposition mais le problème c'est que mon code ne me permet pas de travailler avec la valeur initiale de ma variable, par ailleurs il prend le dernier résultat et la multiplie par le contenu de la barre de défilement, donc je progresse ou je régresse la barre défilement l'opération de multiplication est toujours maintenue et mon résultat final est toujours en progression.:marteau:

Code:

---

1 2 3

Sub Barrededéfilement5_QuandChangement() Sheets("feuil1").Range("C4") = Sheets("feuil1").Range("C4") * Sheets("feuil1").Range("A1") End Sub

---

Merci d'avance

En fin de compte vous voulez vous servir de la cellule A1 comme un facteur ?
a l'état initial A1= 1. Votre cellule variable = 2 et donc quand vous augmentez votre barre vous multipliez à chaque fois la variable par la valeur de la barre ?
Ce qui donnerai à l'extrême position 2*100 (où 2 = la valeur de la variable et 100= la position maximum de la barre ) ?

Bonjour

Merci infiniment Wolf, exactement c’est ce que je veux faire, de même lorsque je recule ma barre de défilement (de 100 à 0) je garde toujours la cellule variable = 2 multiplier par les nouvelles valeurs de ma barre de défilement

Merci encore une fois !

Dans se cas, changez l'expression en orange par l'adresse de la cellule où se trouve votre valeur. Ainsi, si j'ai bien vu l'affaire, ce sera toujours la valeur initiale qui sera multipliée

Code:

---

1 2 3

Sub Barrededéfilement5_QuandChangement() Sheets("feuil1").Range("C4") = Sheets("feuil1").Range("C4") * Sheets("feuil1").Range("A1") End Sub

---

Bonjour WOLF,

Le problème c'est qu'il s'agit de la même cellule C4 , c'est comme si je veux mémoriser la valeur initiale de "C4" ,que multiplie à chaque fois par la valeur de la barre de défilement( à chaque déplace la barre de défilement) et j'réaffiche le résultat dans la même cellule "C4" . je sais pas déjà est ce que cela est possible !

un très grand merci à toi WOLF!

C'est une saisie manuelle ou un résultat renvoie par un combobox ?

La valeur initiale de C4 est une valeur renvoyer par un filtre automatique liée à des combobox en cascade . Mon fichier en pièce liée: Pièce jointe 169756

Votre fichier je l'ai téléchargé dès le début mais quand on est extérieur au produit, on s'y perd vite. J'ai bien essayé de remplir tous les combobox mais je n'ai aucune donnée qui s'est affichée nul part...difficile de vous aider dans ses cas là

Bonjour WOLF,
Désolé j'ai envoyé le mauvais fichier (voir pièce jointe code et formulaire 2 )Pièce jointe 169764

Pour le moment je ne vois aucune solution,cela ne veut pas dire qu'il n'y en a pas, c'est simplement que je n'ai pas assez de connaissance pour. Peut-être créer une colonne supplémentaire pour afficher la valeur modifiée et dans celle-ci remettre la formule que vous aviez trouvé = c4 * a1

Je vous remercie beaucoup WOLF!!