Barre de défilement du tableur

Le
M41
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #6411481
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)))

M41
Le #6412261
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" 4812fa1e$0$838$
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





Publicité
Poster une réponse
Anonyme