Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ScrollBar cellule

ScrollBar cellule

16 réponses
Avatar
Tr
Bonjour à tous,

j'ai un scrollbar qui met à jour une cellule, jusqu'ici tout va bien.
la suite?
j'aimerais que, lorsque je mets à jour la cellule à la main ou via VBA,
le scrollbar reflète la nouvelle valeur...
et là, ben, merci à vous :-) pour vos futures pistes...

--
L'intelligence ne se défend pas, elle se constate. (Réflexion)
tranquille.xav@free.fr
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
MichDenis
Utilise un contrôle émanant de la barre d'outils "contrôle"
et copie ce code dans le module feuille où est ton contrôle.

Tu devras via les propriétés définir la valeur minimum et le maximum
du contrôle.

'-----------------------------
Private Sub ScrollBar1_Change()

ScrollBar1_Scroll

End Sub
'-----------------------------
Private Sub ScrollBar1_Scroll()

Range("a1").Value = Me.ScrollBar1.Value / 100

End Sub
'-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("A1")) Then
Me.ScrollBar1.Value = Range("A1").Value * 100
End If
End If
End Sub
'-----------------------------




"" a écrit dans le message de news:

*Ecrit* *par* *MichDenis*:
Tu copies ce qui suit dans le module feuille où est ton scrollbar

Évidemment, tu devras définir la valeur minimale et la valeur maximale
du contrôle de la façon appropriée.

Si ton scrollbar émane de la barre d'outils "Contrôle"
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("A1")) Then
Me.ScrollBar1.Value = Range("A1").Value
End If
End If
End Sub


bon, ok, merci à tous, différentes techniques fonctionnent, je ne sais
pas pourquoi mais linkedcell s'est mis à fonctionner après avoir enlevé
puis remis le contrôle.
bref.

mon problème en fait, c'est que j'ai dans la cellule un nombre à
virgule qui varie entre 0.01 et 1.4
le contrôle scrollbar refuse les valeurs à virgule, je mets donc des
valeurs *100, et lorsque je clique sur le contrôle, la cellule est bien
mise à jour avec la valeur du contrôle /100

avec linkedcell on voit le passage de 100 à /100, c'est pas /net/ ...
sans linkedcell ça marche nickel dans un seul sens.

comment faire donc pour gérer correctement les nombres à virgules avec
un scroll ou un autre contrôle pourquoi pas?

--
Haro sur la langue de bois! (Politique)


Avatar
Tr
*Ecrit* *par* **:
*Ecrit* *par* *MichDenis*:
Tu copies ce qui suit dans le module feuille où est ton scrollbar

Évidemment, tu devras définir la valeur minimale et la valeur maximale
du contrôle de la façon appropriée.

Si ton scrollbar émane de la barre d'outils "Contrôle"
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("A1")) Then
Me.ScrollBar1.Value = Range("A1").Value
End If
End If
End Sub


bon, ok, merci à tous, différentes techniques fonctionnent, je ne sais pas
pourquoi mais linkedcell s'est mis à fonctionner après avoir enlevé puis
remis le contrôle.
bref.

mon problème en fait, c'est que j'ai dans la cellule un nombre à virgule qui
varie entre 0.01 et 1.4
le contrôle scrollbar refuse les valeurs à virgule, je mets donc des valeurs
*100, et lorsque je clique sur le contrôle, la cellule est bien mise à jour
avec la valeur du contrôle /100

avec linkedcell on voit le passage de 100 à /100, c'est pas /net/ ...
sans linkedcell ça marche nickel dans un seul sens.

comment faire donc pour gérer correctement les nombres à virgules avec un
scroll ou un autre contrôle pourquoi pas?


bon, j'ai trouvé un truc.
déjà pas utiliser linkedcell, c'est pas zoli :-)
utiliser ça:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ScrollBar1.Value = Range("A1").Value
End Sub



pas de isnumeric sinon ça fonctionne pas avec les virgules on dirait,
faire un contrôle sur la valeur de la cellule avant de la transmettre
au scroll.
je suis en train de peaufiner, juste pour dire qu'il est inutile de
chercher plus
en tout cas merci à tous pour le coup de main!!!

--
Je n'ai pas fait des enfants pour qu'ils m'obéissent au doigt et à
l'oeil. (Réflexion)



Avatar
Tr
*Ecrit* *par* *MichDenis*:
Utilise un contrôle émanant de la barre d'outils "contrôle"
et copie ce code dans le module feuille où est ton contrôle.

Tu devras via les propriétés définir la valeur minimum et le maximum
du contrôle.

'-----------------------------
Private Sub ScrollBar1_Change()

ScrollBar1_Scroll

End Sub
'-----------------------------
Private Sub ScrollBar1_Scroll()

Range("a1").Value = Me.ScrollBar1.Value / 100

End Sub
'-----------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("A1")) Then
Me.ScrollBar1.Value = Range("A1").Value * 100
End If
End If
End Sub
'-----------------------------


exactement ce à quoi je suis arrivé, sans le test isnumeric...
reste le problème du max et du min à gérer, mais ça je sais faire :-)
merci beaucoup!

--
L'intelligence ne se défend pas, elle se constate. (Réflexion)


Avatar
Tr
*Ecrit* *par* **:
*Ecrit* *par* **:
*Ecrit* *par* *MichDenis*:
Tu copies ce qui suit dans le module feuille où est ton scrollbar

Évidemment, tu devras définir la valeur minimale et la valeur maximale
du contrôle de la façon appropriée.

Si ton scrollbar émane de la barre d'outils "Contrôle"
'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
If IsNumeric(Range("A1")) Then
Me.ScrollBar1.Value = Range("A1").Value
End If
End If
End Sub


bon, ok, merci à tous, différentes techniques fonctionnent, je ne sais pas
pourquoi mais linkedcell s'est mis à fonctionner après avoir enlevé puis
remis le contrôle.
bref.

mon problème en fait, c'est que j'ai dans la cellule un nombre à virgule
qui varie entre 0.01 et 1.4
le contrôle scrollbar refuse les valeurs à virgule, je mets donc des
valeurs *100, et lorsque je clique sur le contrôle, la cellule est bien
mise à jour avec la valeur du contrôle /100

avec linkedcell on voit le passage de 100 à /100, c'est pas /net/ ...
sans linkedcell ça marche nickel dans un seul sens.

comment faire donc pour gérer correctement les nombres à virgules avec un
scroll ou un autre contrôle pourquoi pas?


bon, j'ai trouvé un truc.
déjà pas utiliser linkedcell, c'est pas zoli :-)
utiliser ça:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ScrollBar1.Value = Range("A1").Value
End Sub



pas de isnumeric sinon ça fonctionne pas avec les virgules on dirait, faire
un contrôle sur la valeur de la cellule avant de la transmettre au scroll.
je suis en train de peaufiner, juste pour dire qu'il est inutile de chercher
plus
en tout cas merci à tous pour le coup de main!!!


voilà le code final, au cas où:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'If Target.Address = Range("A1").Address Then
' If IsNumeric(Range("A1")) Then
If (Range("E13").Value < 0.01) Then Range("E13").Value = 0.01
If (Range("E13").Value > 1.4) Then Range("E13").Value = 1.4
Me.ScrollBar_Test.Value = Range("E13").Value * 100
' End If
'End If
End Sub

--
Croyez en la force de l'exemple. (Vécu)




Avatar
lSteph
La question avant de savoir si c'est ergonomique est bien plus simple
le ScrollBar s'en moque lui il prend des valeurs entières

Si tu as compris le principe, c'est l'essentiel.

Au lieu de passer par une cellule tu passes par une variable en VBA
et le tour est joué!

Cdbl et Cint seront tes amis..(je dois bosser pour mon chocolat)

@+

--
lSteph
I

On 31 oct, 16:38, wrote:
*Ecrit* *par* *lSteph*:

Exemple:
En A2
²/100
linkedcell b2
Quand tu veux modifier la cellule c'est b2
exemple tu veux 0,71 en a2 tu entres 71 en b2


oui, j'avais pensé à utiliser un truc comme ça, mais ça signifie que
pour un utilisateur, la saisie et la visu ne se font pas au même
endroit avec les mêmes valeurs, c'est pas très ergonomique :-)
désolé...

--
Pas d'bras, pas d'chocolat! (tronqué)




Avatar
Tr
*Ecrit* *par* *lSteph*:
La question avant de savoir si c'est ergonomique est bien plus simple
le ScrollBar s'en moque lui il prend des valeurs entières

Si tu as compris le principe, c'est l'essentiel.

Au lieu de passer par une cellule tu passes par une variable en VBA
et le tour est joué!


ok, j'ai capté, je regarderai ça aussi

Cdbl et Cint seront tes amis..(je dois bosser pour mon chocolat)


pourquoi, t'as pas de bras ? :-)))

merci encore en tout cas hein.

--
Ce n'est pas l'argent qui n'a pas d'odeur mais les banquiers qui n'ont
pas d'odorat. (Pas de moi)


1 2