Microsoft 365 Objet vba qui suit scrollbar

[raf26]

Bonjour

Dans mon fichier, j’ai une image qui suit le scroll (code qui aligne l’image sur la ligne de la cellule active).

Donc cette image est affichée en permanence sur la droite de mon tableau (avec couleur changeante suivant la valeur d’une cellule) même si je suis en bas du tableau.

Est il possible de faire la même chose avec soit une combobox ou une zone de liste (ou autre objet vba) ?

Je ne trouve pas le code nécessaire et j’ai essayé d’adapter le code de mon shape, mais sans succès.

Merci d’avance pour votre aide

Cordialement

 

[eriiic]

Bonjour,

oui bien sûr.
Il suffit d'agir sur sa propriété .Top de la même façon.
eric

 

[raf26]

Ok merci eriiic

Et du coup je dois rentrer quoi comme code pour un combobox ou zone de liste


Pour info voici celui de mon shape :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Shapes.Range(Array("camion")).Top = ActiveCell.Top
End Sub

Cordialement

 

[eriiic]

Bonjour,

et bien tu fais pareil en mettant le bon nom :

' type formulaire'
ActiveSheet.Shapes("Drop Down 1").Top = ActiveCell.Top
' type ActiveX'
ActiveSheet.Shapes("ComboBox1").Top = ActiveCell.Top

C'est quoi ton problème au juste ?
eric

 

[raf26]

Que mon combobox soit toujours affiché sur la droite de mon tableau, quelque soit ma position dans le tableau et suive ainsi le scroll

Ex. : si je suis ligne 173 dans mon tableau, mon combobox s'affiche également ligne 173 et lorsque je reviens ligne 4, idem combobox se positionne ligne 4

 

[eriiic]

Le scroll n'est pas un événement détectable. Celui que tu as utilisé est SelectionChange , donc clique une cellule pour qu'il se déplace.
Sinon épose un fichier avec ce que tu as mis comme code.
eric

 

[raf26]

Le fichier est sur mon ordi au bureau je le posterais demain.

et avec SelectionChange est ce possible sur une combobox ?

cela m’irait

cordialement

 

[eriiic]

C'est possible avec tous les objets, encore faut-il que l'événement choisi soit délenché.

 

[raf26]

Bonjour,

Ci joint fichier test "fantaisie"

Le but : que la textbox se positionne sur la ligne ou je me trouve dans le tableau (comme le shape le fait)

Cordialement

 

[eriiic]

Bonjour,

tu parles de combobox, tu mets un soit-disant textbox1 qui s'avère être une image... C'est un autre type d'objet
Met un vrai textbox et ça ira mieux
eric

 

[Dudu2]

Bonjour,
On peut détecter le Scroll mais ce n'est pas une simple affaire http://www.cpearson.com/Excel/DetectScroll.htm.
Une autre solution consisterait à utiliser un Application.OnTime qui tous les 1/10ème de seconde vérifierait le ActiveSheet.VisibleRange et agirait en conséquence.

Par contre ce que je ne comprends pas c'est que la position .Top des objets exprimée en points se réfère à la fenêtre Excel, pas au niveau du scroll. Donc je ne vois pas trop le lien.

 

[raf26]

Bonjour,

tu parles de combobox, tu mets un soit-disant textbox1 qui s'avère être une image... C'est un autre type d'objet
Met un vrai textbox et ça ira mieux
eric

Bonjour Eric

Il y a bien une textbox dans mon fichier positionnée vers la cellule C6 (chiffre 15677 dans la textbox dont la valeur cible est la cellule B2) en plus de l'image (le caddie).

C'est un fichier test, j'ai mis une textbox pour l'exemple, j'aurais pu mettre il est vrai une combobox

Cordialement

 

[eriiic]

Chez moi c'est une image que tu as appelée Textbox1...
Met un objet ActiveX

 

[Dudu2]

Pour info dans ton fichier il y a 3 shapes:
- un graphique appelé "camion"
- une TextBox appelée "TextBox1"
- une Image appeléee "TextBox1" initialement "contenue" dans la TextBox
La TextBox est-elle utile à quelque chose ?

 

[raf26]

Je souhaite que le résultat d’une formule (ici en B2 pour le test) s’affiche dans un objet (combobox / textbox / peu importe l’objet) ET que cet objet se positionne sur la ligne sur laquelle je le trouve dans le tableau (comme le shape nommé camion).

PS j’ai modifié le fichier test sur Mac, cela a une incidence (pas d’activeX sur Mac)