Positionnement sur une ligne dans Excel ne se fait pas
Résolu
Papyx
Messages postés
307
Date d'inscription
Statut
Membre
Dernière intervention
-
Papyx Messages postés 307 Date d'inscription Statut Membre Dernière intervention -
Papyx Messages postés 307 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai une application comportant plusieurs onglets.
Je me positionne sur une ligne en haut de la fenêtre sans problème;
sauf pour une feuille. Voici la procédure de cette feuille :
La feuille s'affiche à partir du début; alors que je voulais me positionner vers la fin
(environ 550 lignes).
En utilisant le pas-à-pas du debug, l'instruction s' exécute correctement sur la ligne, mais après sortie du debug, on revient au début de la liste.
j'ai une application comportant plusieurs onglets.
Je me positionne sur une ligne en haut de la fenêtre sans problème;
sauf pour une feuille. Voici la procédure de cette feuille :
Private Sub Worksheet_Activate()
Dim l%: l = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row - 7
Cells(l, 1).Select
ActiveWindow.ScrollRow = l
End Sub
La feuille s'affiche à partir du début; alors que je voulais me positionner vers la fin
(environ 550 lignes).
En utilisant le pas-à-pas du debug, l'instruction s' exécute correctement sur la ligne, mais après sortie du debug, on revient au début de la liste.
3 réponses
-
@Papyx
Bonjour, pour ton 1er message, essaye ce code VBA :
Private Sub Worksheet_Activate() Dim l%: l = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row - 7 Application.Goto Cells(l, 1), True End Sub -
Bonjour Papyx, bonjour le forum,
Chez moi ça fonctionne correctement !... N'aurais-tu pas aussi une procédure SelectionChange dans cet onglet qui vienne interférer ?...
-
bonjour TT
en général je n'ai pas de problème avec cela.
Dans ma feuille, il n'y-a que 2 procédures; la 2éme est :Private Sub Worksheet_Change(ByVal target As Range)
Select Case target.Column
Case 1
If target.Value <> "" And fourniture_existe(target.Value) Then _
MsgBox "Référence existe", vbCritical, target.Value: _
target.Value = ""
Case 2
Call Module1.prep_ligne_fournitures(target)
Case 7
If InStr("pcm|g|m", target) = 0 Then _
MsgBox "Valeur invalide dans cette colonne", vbCritical, "colonne G"
Case 4, 5
Call tableau.recalcul(target)
End Select
End Sub
mais elle s’ exécute que si on modifie la feuille
