Lancer une instruction " Range("?") .Select " par un Scrollbar

[lmc38]

Bonjour à vous, et tout d'abord un grand merci pour toutes les informations que j'ai pu trouver sur votre Forum et la cordialité des intervenants

Mon problème,

J'utilise un Formulaire (userform) avec un scrollbar pour afficher un tableau de trois colonnes, pour le modifier ou faire d'autres enregistrements (qui fonctionne très bien)

J'ai donc en arrière plan écran "le tableau" et au centre " l'userform"
Je voudrais que le curseur écran ce déplace en fonction de la position sélectionnée par le "Scrollbar",

avec une instruction du style:

 Range("A & ("A" & ScrollBar1.Value)").Select  'dans "A"& Scrollbar1.value  il y a "1" à "x"
 UserForm_Initialize  'pour finir je suppose

Mais voilà ....ou la placé ....?
Dans un

Private Sub   Curseur()  'par exemple.... je suppose ...!

Et d’où l'appeler pour que ce soit automatique au changement de position du "Scrollbar"

Par avance merci pour toute info ou un lien....🙂

 

[job75]

Re : Lancer une instruction " Range("?") .Select " par un Scrollbar

Bonjour lmc38, bienvenue sur XLD,

Vous savez peut-être que sur XLD c'est MAGIQUE.

Mais même les magiciens ont besoin de matériel.

Lisez donc attentivement la Lien supprimé, particulièrement son paragraphe 3 - c.

A+

 

[kjin]

Re : Lancer une instruction " Range("?") .Select " par un Scrollbar

Re, salut Job,
Je n'ose plus de peur de passer pour un malotru...
A+
kjin

 

[lmc38]

Re : Lancer une instruction " Range("?") .Select " par un Scrollbar

Bonsoir "Job75"

Désolé pour le contretemps mais je n'ai rien trouvé de subtil dans le "paragraphe 3 c" à part joindre mon fichier en pièce jointe (qui est trop lourd et avec des données confidentielles)

Mais mon problème est résolu en bidouillant un peu :

Sub Pointeur()
Range("b" & ScrollBar1.Value).Select
End Sub

et dans mon "Scrollbar" :

Private Sub ScrollBar1_Change()
ScrollBar1.Max = Sheets("feuil1").Range("a65000").End(xlUp).Row + 1
TextBox1.Value = Range("a" & ScrollBar1.Value).Value
TextBox2.Value = Range("b" & ScrollBar1.Value).Value
TextBox3.Value = Range("c" & ScrollBar1.Value).Value
Pointeur  'appel de la procédure
End Sub

ça fonctionne "Nickel" ..... donc problème résolu
Ci joint fichier "ClasseurExp1" monté pour Démo ....

http://www.archive-host.com/link/ddf06efba7038e3ae9c6aeed155a18d005f11ef6.xlsm

 

[lmc38]

Re : Lancer une instruction " Range("?") .Select " par un Scrollbar

Re, salut Job,
Je n'ose plus de peur de passer pour un malotru...
A+
kjin

Bonsoir à toi

T'as raison, suis allez un peu trop vite dans mon 1er message en parlant de cordialité des intervenants, mais pas grave, j'en ai vu d'autres avec mes 65 printemps 😛