Discussion :

[pilounet54]

bonjour dans une cellule je recuper le row par ceci:

Code :

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

Sheets("BILAN").Range("A2").Value = ActiveCell.Row

je souhaiterai que sur l'initialisation de userform je recupe ce chiffre pour le
mettre le ScrollBar2 sur le meme chiffre j'ai fais ceci cela ne fonctionne pas
es que quelqu'un pourrai m'aider svp

Code :

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

1
2
3
4
5
Dim lcellule As Long
 
   lcellule = ActiveSheet.Range("A2").Value
   ScrollBar2.Min = lcellule
   ScrollBar2.Value = lcellule

merci

[Pimpampoum]

Bonjour,

Voici une proposition à adapter :

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Public lcellule As Variant
 
Private Sub test()
    lcellule = ActiveCell.Row
    MsgBox lcellule
End Sub

Dans un module tu déclares comme public la variable "lcellule" de type variant, comme ça tu auras toujours ta valeur de disponible pour ton USF.

Après, dans ton USF tu récupères la valeur actuelle de ton ActiveCell dans ta variable lcellule pour l'utiliser après comme valeur pour ton ScrollBar2.

[gFZT82]

Bonjour,

Tu ne dois pas confondre le positionnement du curseur (ScrollBar2.value) et la position mini (ScrollBar2.Mini).
Dans le code de ton Userform, tu devrais trouver quelque chose comme çà.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
Dim lcellule As Long
    'Récupération de la valeur de la position initiale du curseur dans la cellue A2 de la feuille active
    lcellule = ActiveSheet.Range("A2").Value
    With ScrollBar2
        .Min = 10 'Position mini du curseur
        .Max = 100 'Position maxi du curseur
        .LargeChange = 10 'Distance de déplacement intervenant lorsque l'utilisateur _
        clique entre le curseur de défilement et la flèche de défilement.
        .SmallChange = 5 'Déplacement se produisant lorsque l'utilisateur clique sur _
        les flèches de défilement.
        .Value = lcellule 'Positionnement initial du curseur
    End With
End Sub
Private Sub ScrollBar2_Change()
    'Affichage de la position dans une TextBox
    TextBox1 = ScrollBar2.Value
End Sub

Cordialement.

[pilounet54]

bonjour voila j'ai mis le code et cela ne fonctionne pas comme je le souhaite
regarde svp le fichier joint
ce que je souhaite c'est que sur un click dans la cellule exemple D15
le texbox affiche la valeur de la cellule de la colonne B15 c'est o
j'espere que c'est plus explicite merci beaucoup

fichier joint nom :userform
merci bonne journée

[pilounet54]

dans le programme

impossible de definir la propriéte value le type ne correspond pas
ou erreur de compilation argument non facultatif
le lcellule=nothing j'ai l'impression que le lcellule range il ne l'accepte pas ?
il y a pas mal de code et des modules qui peuve t'intéressé
mais si tu peu me trouver cette misere je serai tres content
je travail sur userformdepense j'ai enlever le plus possible de programme qui pourrai gene et sur la feuille bilan pour userfom
je viens de mettre la piece jointes merci

[gFZT82]

Bonjour,

Cela fonctionne en plaçant le code sous l’événement Initialize.
Je remarque que l’incrémentation est réalisée par la barre de défilement Scrollbar2 située à gauche des boutons Valider, Suivante, Fermer. Est-ce bien le fonctionnement recherché ?

Cordialement.