Discussion :

[Hadi2015]

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)Mon programme .xlsm

[(WOLF)]

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

Code :

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

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

[Hadi2015]

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.

Code :

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

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

Merci d'avance

[(WOLF)]

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 ) ?

[Hadi2015]

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 !

[(WOLF)]

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 :

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

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