Barre de défilement du tableur

Bonsour® M41 avec ferveur ;o))) vous nous disiez :

Pour un motif ergonomique local, peut on déplacer en haut avec VBA,
la barre de défilement horizontale placée en bas de la feuille de
calcul ?

:-(
pas à ma connaissance...
tout au plus inverser droite-gauche
ActiveSheet.DisplayRightToLeft = True ' ou False

--
--
@+
;o)))

Merci. Donc j'ai testé la solution avec un ScrollBar directement
placé sur la feuille


Programme de test (avec volets pour que l'objet reste visible) :

Private Sub ScrollBar1_Change()
Dim j As Long, R As Range: Static i As Long
On Error Resume Next
Set R = ActiveCell
If i = 0 Then
j = R.Column: i = j
ScrollBar1.Value = j
Exit Sub
Else
j = ScrollBar1.Value
End If
Set R = R.Offset(0, j - i)
Range("A1").Value = R.Address
R.Activate '.Select
i = j
End Sub


Pourquoi A1 contient la bonne valeur
alors que la cellule correspondante
n'est activée ou sélectionnée qu'une fois sur 2 ???
Comment sélectionner la cellule dans ce cas là
autrement qu'en cliquant sur le curseur ?

Cordialement

M41





"M41" <boomerang.pro00@wanadoo.fr> a écrit dans le message de news:
4812fa1e$0$838$ba4acef3@news.orange.fr...

Bonjour

Pour un motif ergonomique local, peut on déplacer en haut avec VBA, la
barre de défilement horizontale placée en bas de la feuille de calcul ?

Cordialement

M41