[VBA-E] Une ScrollBar pour deux TextBox

Bonjour,

J'ai deux textbox multilignes (qui n'ont rien à voir avec mes précédents messages ;) )
J'ai aussi inséré un ScrollBar.
Comment dois-je faire pour faire défiler le texte des deux textbox à partir de la ScrollBar ?

Je ne sais pas si ça peut servir, mais il y a autant de lignes dans chaque TextBox.

Merci :)

Faudrait simuler les flèches hautes et basses dans ton textbox (!)

Pour chaque déplacement de l'ascenseur, parcourir les lignes jusqu'au bon N°
Avec Sendkey, peut-être ???

Ou un tableau de tes lignes de texte, en connaître le nombre (= Ubound(LeTableau) et n'afficher que la donnée correspondant à l'index du tableau fourni par le scollbar

Juste des idées :(

Une fois n'est pas coutume et je dois aller faire ma sieste

Alors, et en saluant Ousk car le Sendkeys est ici la socution, mais en évitant l'analyse des flêches, pour ne me consacrer qu'à la scrollbar :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub VScroll1_Change() Text1.SetFocus Text1.SelStart = 0 For i = 1 To VScroll1.Value SendKeys "{DOWN}" DoEvents Next Text2.SetFocus Text2.SelStart = 0 For i = 1 To VScroll1.Value SendKeys "{DOWN}" DoEvents Next End Sub

---

Précision : ne marche qu'en cliquant sur les petites flêches de la scrollbar.

Si vous voulez la "totale" .... je vous laisse deviner ce qu'il convient d'ajouter.

Bonne sieste à ceux qui, comme moi, auront la chance de la faire

merci pour le code, jmfmarques.
par contre le raffraichissement est pas top :(
Peut-être est-ce du au fait que les textbox récupèrent le focus, puis le perdent, etc....

Citation:

---

le raffraichissement est pas top

---

C'est à dire ? :mouarf:

Les Textbox clignotent (enfin, si on appuie rapidement sur les flèches de la ScrollBar)
Et puis, j'ai essayé de changer le point de départ de selStart. jmfmarques l'a mis à 0.
Le problème, c'est que mon Textbox peut afficher 14 lignes. Ce qui veut dire que si je veux voir la 15è, il faut cliquer 15 fois sur la flèche du bas. Ensuite, c'est bon, mais bon... :)
Donc comme j'ai 48 caractères par ligne dans le Textbox, et qu'on peut voir 14 lignes, j'ai mis selStart à 672 (14*48).
Bien m'en a pris, le PC a ramé comme un fou, j'ai eu du mal à stopper la macro, et quand ce fut fait, tout mon code a défilé, enfin, c'était un bor... sans nom (excusez moi :) )

Hé bien, mes aieux !....
Je reviens de la sieste pour découvrir qu'on peut faire confiance à votre esprit créatif !8O

OK, ender, tu n'aimes pas revenir en haut, hein ? :lol:

Alors voilà :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim coucou As Integer Private Sub VScroll1_Change() If VScroll1.Value >= coucou Then vers = "{DOWN}" Else vers = "{UP}" End If Text1.SetFocus SendKeys vers DoEvents Text2.SetFocus SendKeys vers coucou = VScroll1.Value End Sub

---

C'est tout !

Citation:

---

Hé bien, mes aieux !....
Je reviens de la sieste pour découvrir qu'on peut faire confiance à votre esprit créatif !

OK, ender, tu n'aimes pas revenir en haut, hein ?

---

:mrgreen:

C'est sympa d'avoir proposé une variante de ton code mais (désolé) j'ai pas compris la différence et la macro non plus.

Par contre, y'a un truc qui cloche, c'est que si je "joue" trop avec la ScrollBar, le PC se met à ramer, la souris avance à 2 à l'heure (c'est pas mal mais bon...) et surtout si je veux m'en sortir avec le gestionnaire des tâches, histoire d'arrêter Excel, ben la fenêtre du gestionnaire va se cacher tout en bas de l'écran. Et c'est Javel la Croix et la bannière pour s'en sortir (rebooter le PC)
Le SendKeys est surpuissant, non seulement il me fait descendre (ou monter) mes textbox mais en plus il agit sur tout ce qui bouge et qui est extérieur à la macro.

J'ai un peu modifié ton code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub ScrollBar1_Change() TextBox1.SetFocus TextBox1.SelStart = 0 For i = 1 To ScrollBar1.Value SendKeys "{DOWN}" DoEvents Next TextBox2.SetFocus TextBox2.SelStart = 0 For i = 1 To ScrollBar1.Value SendKeys "{DOWN}" DoEvents Next End Sub

---

Parce que il ne connait ni Text, ni VScroll.

Et petite question, ne faut-il pas déclarer un truc du genre :

Code:

---

Private Sub ...... lib "Kernel32".....

---

vu que je fais appel à la toute puissante API Windaube ?

Merci :)

Non, pas d'API


Par ailleurs, regarde ce que j'avais précisé plus haut :

J'avais bien dit :

Précision : ne marche qu'avec des clics sur les 2 petites fkêches... et ajouté : "je vous laisse deviner ce qu'il faut faire pour "la totale" (le scroll):lol:

C'est toujours le cas ! A vous de jouer un peu avec vos méninges .... juste pour voir ...

Alors, Ender ?

A part renommer "glorieusement" les choses pour qu'elles correspondent à VBA (que je n'ai pas)... on ne sait pas faire, hein ?
J'attends, moi... je suis prêt depuis belle lurette , et je veux voir ton agilité ...:lol:

Un conseil : au lieu d'aller chercher des "trucs miracles" à la

Citation:

---

Et petite question, ne faut-il pas déclarer un truc du genre :

Code :
Private Sub ...... lib "Kernel32"..... (oh.... en voilà, une démonstration de connaissance des formes de déclaration d'une dll 8O )
vu que je fais appel à la toute puissante API Windaube ? (je vois, je vois...)

---

fais donc une bonne et simple gymnastique de l'esprit (moi c'est fait) et montre ta puissance de réflexion.

Citation:

---

Précision : ne marche qu'avec des clics sur les 2 petites fkêches... et ajouté : "je vous laisse deviner ce qu'il faut faire pour "la totale" (le scroll)

---

Alors là je croyais avoir compris mais je suis totelement perdu. Les "2 petites flèches" en question sont bien celles du Scrollbar ? Si c'est le cas, j'avais bien compris qu'en appuyant dans la zone entre l'ascenseur et la flèche ne fonctionnerait pas. Et j'étais même prêt à n'utiliser que les "2 petites flèches".

Citation:

---

A part renommer "glorieusement" les choses pour qu'elles correspondent à VBA

---

Désolé :oops: VScroll ne me dit rien en VBA. Alors j'ai remplacé par ScrollBar.

Citation:

---

on ne sait pas faire, hein ?

---

Euh... :aie: non .
Un truc que j'ai compris c'est que le SendKeys simule l'appui de la flèche du bas (ou du haut) du clavier.
Par contre j'ai besoin d'une petite précision : pourquoi n'avoir fait qu'un

Code:

---

SendKeys "{DOWN}"

---

et pas de

Code:

---

SendKeys "{UP}"

---

?
C'était ça la totale dont tu parlais ? Dans ce cas, il faut placer un écouteur d'événement sur chaque flèche de la ScrollBar.

Bon suis un peu perdu, désolé de pas avoir montré toute mon agilité ;)

Ouais...

Bon, je m'étais un peu amusé avec les sendkeys, pour rigoler....(je suis assez taquin, parfois)

regarde comme tout peut être simple :lol:
Dans le code qui suit, rebaptise les choses à la VBA (Userform pour form, etc...)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub Form_Initialize() If Len(Text1.Text) >= Len(Text2.Text) Then VScroll1.Max = Len(Text1.Text) Else VScroll2.Max = Len(Text1.Text) End If VScroll1.SmallChange = Text1.Height / 10 End Sub   Private Sub Text1_Change() If Len(Text1.Text) > VScroll1.Value Then VScroll1.Max = Len(Text1.Text) End Sub   Private Sub Text2_Change() If Len(Text1.Text) > VScroll1.Value Then VScroll1.Max = Len(Text1.Text) End Sub   Private Sub VScroll1_Change() Text1.SelStart = VScroll1.Value Text2.SelStart = VScroll1.Value End Sub   Private Sub VScroll1_Scroll() VScroll1_Change End Sub

---

Pas de UP - pas de DOWN - Aucun sendkeys - Pas de FOCUS à déplacer sans cesse - Tes 2 textboxes peuvent avoir un nombre de lignes différent l'une de l'autre - Elles doivent bien évidemment être multilignes -

Tu peux utiliser à ton gré l'avancement lent (les petites flêches) ou rapide (l'ascenseur).

Tu peux également écrire dans l'une ou l'autre (ou les 2) textbox (donc modifier la longueur du texte) et tout s'adaptera automatiquement ...

Voilà tout Ender et c'est à la fois facile à imaginer et facile à comprendre. Il suffit de se concentrer un peu...:mouarf:
Bonne chance

PS : Je précise ici que je pourrais faire beaucoup plus élégant et précis encore si (je n'ai pas VBA) tu me disais que VBA connait l'objet Font et la propriété textheight qui s'applique à une variable de type string. A toi de me dire, donc...

Ok, merci jmfmarques.
J'ai rebaptisé les objets à la sauce VBA et ça fonctionne. (et j'avoue que je préfère nettement ça aux SendKeys ;) parce que je les comprends peut-être moins bien).

En tout cas, merci.

Code:

---

1 2 3 4 5 6

Private Sub VScroll1_Change() TextBox1.SetFocus TextBox1.SelStart = ScrollBar1.Value TextBox2.SetFocus TextBox2.SelStart = ScrollBar1.Value End Sub

---

Sinon, s'ils n'ont pas le focus, ça ne marche pas.
Font existe bien pour changer la police et la taille du texte. Par contre textheight ne me dit rien.

Merci encore :)

Il n'y a pas de quoi, Ender.
La seule façon de me remercier et de me faire plaisir (si tu y tiens) est sans aucun doute de commencer à regarder le développement informatique comme un simple jeu de bûchettes. Le mot "informatique" ne doit pas égarer... il est pompeux pour bien peu...
Je l'ai dit mille fois : le mécanisme de la pensée vaut beaucoup mieux que tous les "trucs" et toutes les syntaxes du monde .
Bonne chance à toi.

Comme je l'ai dit, le code me satisfait mais je pense qu'il va falloir l'améliorer.

Citation:

---

Je l'ai dit mille fois : le mécanisme de la pensée vaut beaucoup mieux que tous les "trucs" et toutes les syntaxes du monde .

---

Je suis totalement d'accord avec toi et je vais faire fonctionner mon cerveau pour résoudre ceci :
En effet, le fait de faire un

Code:

---

TextBox1.selStart =ScrollBar1.Value

---

place le curseur après le ScrollBar1.Value ème caractère.
Ce code a ses limites :oops: (je sais, ce n'est pas bien de dire ça mais ce n'est pas une critique négative mais plutôt constructive), parce que s'il y a par exemple 10 caractères par ligne dans TextBox1 et seulement 5 dans TextBox2, l'un des deux va défiler plus vite que l'autre. Or ce qu'il faudrait, c'est que les lignes correspondent.
Pour illustrer ce problème, remplissez TextBox1 avec les lettres de l'alphabet en sautant une ligne entre chaque lettre. Remplissez TextBox2 avec les chiffres de 1 à 26 en sautant une ligne entre chaque.
On voit qu'à partir de j (10è lettre), il y a un décalage.

Il faut donc remplacer

Code:

---

TextBox1.SelStart=Scrollbar1.Value

---

par

Code:

---

TextBox1.SelStart=InStr(----, TextBox1, vbCrLf)

---

Je réfléchis pour trouver ce qu'il faut mettre à la place de ----.

Citation:

---

parce que s'il y a par exemple 10 caractères par ligne dans TextBox1 et seulement 5 dans TextBox2, l'un des deux va défiler plus vite que l'autre. Or ce qu'il faudrait, c'est que les lignes correspondent.

---

Tu ne pourras jamais rien pour remédier à celà, hélàs, sauf si chaque ligne de chacune de tes 2 textboxes est, d'une part, de longueur inférieure ou égale à celle de la largeur de la textbox et que, d'autre part, chaque ligne est séparée de l'autre par un retour à la ligne "physique" (chr(13), vbcrlf,...)

J'ai déjà eu l'occasion d'en parler, notamment à propos d'un sujet relatif au numéro d'une ligne d'une textbox.... hé hé ! (ce qui était présenté comme une astuce, ne pouvait pas être fiable, hélàs... mais bon ....)

S'il s'agit maintenant de faire avancer ensemble, dans les 2 textboxes, des lignes réellement séparées par des vrais retours à la ligne, la solution est encore plus simple que celle déjà donnée.

PS : ne surtout jamais confondre, dans les textboxes, les vrais retours à la ligne avec ceux qui n'en sont pas (juste un affichage géré par VB, mais sans insertion d'un caractère spécial;) )

Il y a bien un vbCrLf entre chaque ligne :) J'en suis sûr

Et chaque ligne "réelle" (donc entre 2 retours à la ligne) est affichable entièrement sur une seule ligne de la textbox (sans jamais de débordement) ?
Si tu en es sur, celà va être réglé à la vitesse Grand V !:lol:

:aie: ben c'est bien emm...dant ça.
Il y a bien un vbCrLf entre chaque ligne de TextBox2
Par contre ce n'est pas le cas pour TextBox1, puisque VBA gère le retour à la ligne en cas de débordement.
MAIS, ça peut peut-être servir, la police utilisée pour TextBox1 est CourrierNew. En d'autres termes, le nombre de pixels pour chaque caractère est le même que l'on ait affaire à un "i" ou à un "m".
Donc, dans TextBox1, j'ai très exactement 48 caractères par ligne.
On peut en tirer quelque chose ? :roll:

Merci

1) :

Citation:

---

puisque VBA gère le retour à la ligne en cas de débordement.

---

Non ! relis ce que j'ai écrit : ne pas confondre retour à la ligne "réel" avec gestion d'affichage.
2)

Citation:

---

MAIS, ça peut peut-être servir, la police utilisée pour TextBox1 est CourrierNew. En d'autres termes, le nombre de pixels pour chaque caractère est le même que l'on ait affaire à un "i" ou à un "m".
Donc, dans TextBox1, j'ai très exactement 48 caractères par ligne

---

celà n'apportera rien car (voir ci-dessus) ne pas confondre ligne réelle et ligne affichée.

Citation:

---

1) :

Citation:
puisque VBA gère le retour à la ligne en cas de débordement.


Non ! relis ce que j'ai écrit : ne pas confondre retour à la ligne "réel" avec gestion d'affichage.

---

Oui, oui, j'ai bien compris, un retour à la ligne réel est un Chr(13) ou un vbCrLf. Un retour à la ligne non "réel" se produit quand le nombre de caractères dépasse TextBox1.width.
Donc, il y a bien un vbCrLf entre chaque ligne de TextBox2.

Et pour TextBox1, je peux toujours modifier le code et écrire :

Code:

---

1 2 3 4

For i=1 to Len(TextBox1) Step 1 If i Mod 48 = 0 then TextBox1=Textbox1 + vbCrLf Next

---

Ca résout le problème non ? :)

pour ce qui est du nombre de ligne d'un contôle TextBox MsFOrms. (VBA..) .. je me suis apperçu ( hier :cry: ) ... qu'il existait tout simplement la propriété LineCount qui renvoi le nombre de ligne du dit textbox.. que ces lignes soient dues as des caractéres retours à la ligne ( Touche entrée..) ou des retours en fin de TextBox...! (nota: La propriété LineCount s'applique aussi au ComboBox et RefEdit)

Non, pas vraiment !... vraiment pas....
La longueur d'un texte, genre laine(chaine), est un nombre cde caractères, pas une largeur d'affichage, y compris si la police est TrueType des 2 côtés...

Si tu te moques maintenant de l'affichage et que ce que tu veux, c'est faire avancer simultanément des lignes séparées par un vrai vbcrlf, c'est possible (tu les verras avancer ensemble jusqu'au prochain vbcrlf réel de chacune, mais sans que celà ne corresponde forcément à un même avancement de ligne d'affichage, qui est autre chose, une fois de plus...)

Tu choisis et tu dis, en voulant bien comprendre qu'il n'y a comme choix possibles que ce que je t'ai déjà fonné ou cette dernière proposition..
..

A toi de choisir entre les deux .
Si tu gardes la 1ère, tu l'as déjà
si tu préfères la 2ème, je te la fais après la sieste.

Il n'y en aura pas d'autre, sauf à "faire dans de l'à peu près" non souhaitable.

La propriété linecount n'existe pas sous VB, Bbil, et je ne sais ce qu'elle renvoie sous VBA.
Mais si elle se contente de "renvoyer", elle ne servira pas ici, hélàs, car il ne faut pas faire un état des lieux mais déplacer un texte en fonction de la valeur d'une scrollbar !

Merci Bbil pour cette précision.
J'essaie de voir ce que je peux tirer de la propriété LineCount mais je suis intéressé par la deuxième solution dont tu parles jmfmarques.
Je verrais ce que ça donne pour l'affichage, mais l'essentiel est que les lignes des deux TextBox défilent en même temps.

Merci

A ce soir, donc
Bonne sieste à ceux qui vont la faire, comme moi

oui en plus de LineCount il y as CurLine qui permet d'afficher le numéro de ligne courante, mais aussi de le modifier si le contrôle à le focus...

?on doit pouvoir faire quelque-chose avec cela... en Mettant au ScrollBar en Max = au Lingecount le plus grand.. puis en effectuant un curLine=Scrollbar sur changement d'état...

Pas de curline non plus sous VB...

A toi de jouer donc, Bbil...

si ces 2 trucs là existent sous VBA, ce que tu as écrit est parfaitement et facilement réalisable.

Je te lirai après ma sieste...

Ben...
Vous n'avez rien fait avec linecount et curline ?

Bon, je vais m'y mettre alors avec vbcrlf
(encore ensommeillé, mais...)

A tout de suite

Allez !
Bâclé mais doit marcher :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Private Sub Form_Initialize() comptecar Text1.Text, vbCrLf, nblignes1 comptecar Text1.Text, vbCrLf, nblignes2 If nblignes1 >= nblignes2 Then VScroll1.Max = nblignes1 Else VScroll1.Max = nblignes2 End If End Sub   Private Sub VScroll1_Change() Text1.SelStart = 0 pos1 = 0 Text2.SelStart = 0 pos2 = 0 For i = pos1 To VScroll1.Value pos1 = pos1 + InStr(pos1 + 1, Text1.Text, vbCrLf) Next For i = 0 To VScroll1.Value pos2 = pos2 + InStr(pos2 + 1, Text1.Text, vbCrLf) Next Text1.SelStart = pos1 Text2.SelStart = pos2 End Sub   Private Sub VScroll1_Scroll() VScroll1_Change End Sub     Public Sub comptecar(chaine, car, nbcar) nbcar = 0: chaine1 = chaine: pos = InStr(chaine1, car) While pos > 0 nbcar = nbcar + 1 chaine1 = Mid(chaine1, pos + 1) pos = InStr(chaine1, car) Wend End Sub

---

Qui essaye et me dit ?

EDIT : je viens d'ajouter le Vscroll1.scroll (que j'avais oublié...)

Citation:

---

Allez !
Bâclé mais doit marcher :

---

Ben ça marche pas pour moi

Code:

---

pos1 = pos1 + InStr(pos1 + 1, Text1.Text, vbCrLf)

---

J'avais pensé à ce code et je l'avais même écrit mais au fur et à mesure qu'on appuie sur les flèches, le nombre de lignes qui défilent augmente.

Je ne réussis pas à trouver un bout de code qui repérerait le début de chaque ligne (càd trouver le vbCrLf et ajouter 2) et incrémenter (ou décrémenter) ce nombre quand on appuie sur les flèches.

Quelqu'un peut me mettre sur la piste ?
Merci

Je ne comprends pas Ender, car il n'y a en principe à ce niveau aucune différence entre VB et VBA... et ce code marche parfaitement sous VB

Montre-moi alors la totalité de ton code, car je pense que tu as fait une erreur ici ou là... et souhaite voir !

tiens pour l'autre direction avec CurLigne et LigneCount...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

' ' Init Maxi... ' Private Sub UserForm_Initialize() Dim i1 As Integer Dim i2 As Integer TextBox2.SetFocus i2 = TextBox2.LineCount TextBox2.CurLine = 0   TextBox1.SetFocus i1 = TextBox1.LineCount TextBox1.CurLine = 0 If i1 > i2 Then ScrollBar1.Max = i1 Else ScrollBar1.Max = i2 End If ScrollBar1.Value = 0 End Sub   Private Sub ScrollBar1_Change() Dim NeWPos As Integer Dim MemoFoc NeWPos = ScrollBar1.Value - 1 TextBox1.SetFocus If NeWPos < TextBox1.LineCount Then TextBox1.CurLine = NeWPos Else TextBox1.CurLine = TextBox1.LineCount - 1 End If TextBox2.SetFocus If NeWPos < TextBox2.LineCount Then TextBox2.CurLine = NeWPos Else TextBox2.CurLine = TextBox2.LineCount - 1 End If ScrollBar1.SetFocus End Sub

---

Salut,

J'ai essayé le code de bbil et il fonctionne farpaitement. Merci beaucoup bbil et jmfmarques pour votre aide.
Je n'aurais pas réussi une aussi bonne utilisation de curLine qui aide bien à résoudre le problème.

Merci encore :)

Ender